MATLAB 语言 应 用 系列 书 
MATLAB 应 用 程序 接口 
用 户 指 南 


刘 志 俭 等 编著 


伏 学 澳 睛 放 


2000 


内 客 简介 


本 书 是 tMATLAB 语言 应 用 系列 书 }? 之 一 。 全 书 共 分 八 章 ,其 中 前 七 音 
在 对 MATLAB 进行 简要 介绍 的 基础 上 ,详细 而 系统 地 介绍 了 MATLAB 
应 用 程序 接口 的 使 用 ,内 容 包括 如 何在 MATLAB 环境 下 调用 现 有 的 用 C 
语言 和 FORTRAN 语言 开发 的 算法 ; 如何 完成 C 语言 和 FORTRAN 语言 
应 用 程序 与 MATLAB 间 的 数据 交换 ,以 及 如 何在 C 语言 和 FORTRAN 语 
育 的 应 用 程序 中 调用 MATLAB 中 的 各 种 函数 ,包括 工具 箱 函 数 。 同时 为 了 
方便 用 户 对 MATLAE 应 用 程序 接口 的 使 用 , 书 中 对 MATLAB 应 用 程序 
接口 中 所 提供 的 接口 函数 进行 了 详细 说 明 。 本 书 第 八 章 在 简要 分 析 
MATI.AB 放 用 程序 接口 和 MATLAB C 十 十 数学 函数 库 之 间 异 局 的 基础 
上 ,对 MATLAB C 十 十 数学 函数 库 进 行 了 简单 的 介绍 ,上 内容 包括 类 mwAr- 
ray 的 说 明 、 阵 列 对 象 的 操作 , 库 函 数 及 运算 符 的 使 用 和 简单 的 程序 设计 。 

本 书 可 作为 高 等 学 校 数 学 .计算 机 .电子 工程 ,信息 工程 .机 械 工程 等 专 
业 师 生 的 参考 教材 , 对 从 事 上 述 领域 工作 的 广大 科技 工作 者 和 开发 应 用 人 
员 具 有 重要 的 参考 应 用 价值 。 
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前 言 


自 1984 年 MathWorks 公司 首次 推出 MATLAB V1.0 版 本 ， 到 目前 为 止 的 MAT- 
LAB V5. 3 版 本 , MATLAB 采用 了 开放 性 开发 的 思想 , 不 断 吸 收 各 学 科 领 域 权威 人 士 所 
编写 的 实用 程序 , 经 过 不 断 地 发 展 和 扩充 ,MATLAB 现 已 发 展 成 为 国际 上 最 优秀 的 科技 
应 用 软件 之 一 。 其 强大 的 科学 计算 与 可 视 化 功能 、 简 单 易 用 的 开放 式 可 扩展 环境 以 及 多 
达 30 多 个 面向 不 同 领域 而 扩展 的 工具 箱 (Toolbox) 支持 , 包括 了 通信 系统 、 信 和 号 处 理 、 
图 像 处 理 、 小 波 分 析 、 鲁 棒 控 制 、 系 统 辩 识 、 非 线性 控制 、 模 糊 控 制 、 神 经 网 络 、 忧 化 
理论 、 样 条 、 商用 统计 分 析 等 等 大 量 现代 工程 技术 学 科 的 内 容 , 使 得 MATLAB 在 许多 学 
科 领 域 中 成 为 计算 机 辅助 设计 与 分 析 、 算 法 研究 和 应 用 开发 的 基本 工具 和 首选 平台 。 在 
我 国 , MATLAB 已 经 拥有 许多 用 户 ,， 许多 高 校 陆续 开设 了 有 关 MATLAB 的 课程 , 清华 
大 学 、 华 中 理工 大 学 等 高 校 的 BBS 上 还 专门 设立 了 MATLAB 讨论 区 。 

MATLAB 应 用 程序 接口 (MATLAB Application Program Interface) 是 MATLAB 
系统 提供 的 一 个 非常 重要 的 组 件 , 通过 该 接口 ,用 户 可 以 方便 地 完成 MATLAE 与 外 部 环 
境 的 交互 .MATLAB 应 用 程序 接口 主要 包括 三 部 分 内 容 , 分 别 为 MEX 文件 一 -外 部 程 
序 调用 接口 , MAT 文件 应 用 程序 一 一 数据 输入 输出 接口 和 MATLAB 计算 引擎 函数 库 ， 
它们 实现 的 功能 分 别 为 

*。 在 MATLAHB 环境 中 调用 C 语言 或 FORTRAN 语言 编写 的 程序 ， 以 提高 数据 处 
理 的 效率 ; 

。 向 MATILAB 环境 传送 数据 或 从 MATLAB 环境 接收 数据 ， 即 实现 MATLAB 系 
统 与 外 部 环境 的 数据 交换 

， 在 MATILAB 和 其 他 应 用 程序 间 建 立 客户 机 /服务 器 关系 ,将 MATLAB 作为 一 
个 计算 引擎 ， 在 其 他 应 用 程序 中 调用 ， 从 而 降低 程序 设计 的 工作 量 。 

MATILABCAC 十 十 数学 函数 库 是 MATIAB 扩展 中 的 重要 组 成 部 分 ,其 中 包含 了 约 
400 个 MATLAB 数学 函数 , 用 户 按照 一 定 的 规则 , 可 以 在 C 语言 和 C 十 十 语言 的 应 用 程 
序 中 轻松 地 调用 它们 ， 用 于 完成 原本 非常 繁杂 的 矩阵 运算 任务 ， 从 而 极 大 地 减少 程序 设 
计 的 工作 量 。 更 为 重要 的 是 , 使 用 MATLAB C/C 十 十 数学 函数 库 编 写 的 应 用 程序 可 以 完 
全 陪 离 MATLAB 环境 独立 地 执行 ， 与 MATLAB 应 用 程序 接口 相 比 ， 这 是 其 最 大 的 优 
点 。 

本 书 的 具 体 组 织 如 下 ， 

第 1 章 对 MATLAB 进行 简要 的 介绍 ; 

第 2 章 至 第 7 章 详 细 地 讲述 了 MATLAB 应 用 程序 接口 的 使 用 ， 并 对 所 有 的 库 蚁 数 
进行 了 说 明 ; 

第 8 章 对 MATLAB C 十 十 数学 函数 的 基本 概念 及 其 使 用 进行 了 一 般 的 介绍 。 

本 书 中 第 5 章 的 第 1、 第 2 节 由 张志勇 编写 ， 其 余 各 章 均 由 刘 志 俭 编写 。 
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第 1 章 MATLAB 系统 及 程序 设计 简介 


本 章 将 从 四 个 方面 对 MATLAB 系统 进行 较为 全 面 的 介绍 ,首先 介绍 MATLAB 系 
统 的 产生 .MATLAB 系统 的 构成 以 及 MATLAB 的 共生 产品 ,证 读者 对 MATILAB 系统 
有 一 个 整体 的 了 解 ; 然 后 介绍 MATLAB 系统 所 使 用 的 数据 结构 ; 再 次 简单 地 介绍 
MATLAB 语 言 程序 设计 ;最 后 介绍 基本 的 MATLAB 矩阵 操作 。 部 悉 MATLAB 系统 的 
读者 可 以 越过 本 章 内 容 , 从 第 2 章 开始 阅读 本 书 。 


1.1 MATLAB 系统 简介 


1.1.1 MATLAB 系统 的 产生 


使 用 过 CC 十 十 和 FORTRAN 等 高 级 程序 语言 进行 算法 开发 的 读者 可 能 已 经 知道 ， 
当 算法 中 涉及 到 对 和 矩阵 的 处 理 , 运 算 和 一 些 绘 图 操作 时 ,程序 设计 将 是 一 件 非 常 麻 类 的 任 
务 , 这 主 训 是 因为 两 点 :第 一 ,这 些 高 级 程序 设计 语言 本 身 并 不 包含 矩阵 类 型 的 数据 结构 
《注意 ,这 里 所 说 的 数据 结构 仅仅 是 指 那些 程序 设计 语言 本 身 所 包含 的 数据 结构 , 而 不 包 
含 第 三 方 开发 的 一 些 数据 类 型 , 如 C 十 十 矩阵 类 等 ) ,这 样 , 当 读 者 希望 进行 一 些 关于 矩阵 
的 算法 设计 时 , 首先 需要 完成 的 任务 就 是 将 矩阵 的 元 素 一 一 读 人 ,并 以 它们 为 处 理 和 计算 
的 对 象 ,而 并 非 以 矩阵 整体 为 对 象 ,这 个 步 豫 将 由 一 系列 的 循环 过 程 来 完成 ,非常 麻烦 ;第 
二 ,在 这 些 高 级 程序 设计 语言 中 ,没有 财 人 自身 的 标准 计算 子 程序 库 和 函数 库 , 这 样 读者 
在 进行 算法 设计 时 ,往往 需 要 重复 地 编写 一 些 代 码 来 完成 固定 的 功能 ,这 是 一 个 非常 费时 
和 枯燥 的 工作 。 

MATLAB 的 首创 者 Cleve Molier 搜 士 在 新 墨西哥 大 学 讲授 线性 代数 时 , 发 现 了 同样 
的 问题 , 便 萌 生 了 开发 MATLAB(MATYix LABoratory) 一 和 矩阵 实验 室 的 想法 ,并 将 之 
付 诸 实施 ,利用 FORTRAN 语言 和 当时 极为 流行 的 基于 特征 值 计 算 的 软件 包 EISPACK 
以 及 线性 代数 软件 包 LINPACK 中 大 量 可 理 的 子 程序 ,编写 了 这 一 集 命 令 翻 译 、 科 学 计 
算 于 一 身 的 交互 式 软件 。 在 MATLAB 下 ,繁琐 的 矩阵 处 理 和 运算 变 得 异常 容易 。 

随 普 MATLAB 的 应 用 范围 越 来 越 广泛 ,Moler 博士 等 数学 家 与 一 些 软件 专家 成 立 
了 现在 的 MathWorks 公司 ,致力 于 开发 .扩展 和 改进 MATLAB 系统 .而 后 由 于 采用 了 开 
放 式 的 开发 思想 ,不 断 吸 收 各 学 科 领 域 权 威 人 士 所 编写 的 实用 程序 , 如今 的 MATLAB 不 
但 已 经 完全 用 C 语言 进行 了 全 面 的 改写 , 增 演 了 丰富 的 图 形 图 像 处 理 和 多 媒体 功能 , 向 
且 形 成 了 一 个 规模 庞大 、 覆 盖 面 极 广 的 工具 箱 (Toolbox) ,其 内 容 包括 了 信和 号 处 理 (Signal 
Processing) 图像 处 理 (Image Processing) .小波 分 析 (Wavelet) 、 重 棒 控 制 (Robust Con- 
trol)、 系 统 辩 识 (System Jdentification) 、 非 线性 控制 (Non-linear Control)、 模 糊 尿 辑 
(Fuzzy Logic)》、 神 经 网 络 (Neural Network) .优化 理论 (Optimization)、 样 条 (Spline) 分 
析 和 综合 (p-Analysis and Synthesis) .统计 分 析 (Statistics) 等 等 大 量 现代 工程 技术 学 科 
的 内 容 ,极为 实用 。1992 年 , MathWorks 公司 推出 了 交互 式 模型 输入 与 仿真 环境 
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Simulink ,为 MATLAB 在 仿真 和 CAD 中 的 应 用 开创 了 新 的 局 面 。 该 公司 于 同年 推出 了 
具有 划时代 意义 的 MATLAB4.0 版 本 ,并 于 1993 年 推出 了 其 基于 PC 机 平台 的 现 in- 
dows 版 本 ,并 且 不 断 地 升级 改进 ,现在 已 经 推出 了 5. 3 版 本 ,不 但 适用 于 各 种 配 件 平台 和 
操作 系统 ,而 且 功 能 得 到 了 进一步 的 增强 ,成 为 一 个 高 度 集成 的 , 集 科 学 计算 .程序 设计 和 
可 视 化 于 一 身 的 软件 环境 .在 该 软件 环境 中 , 问题 和 问题 的 解答 均 以 人 们 部 悉 的 数学 形式 
表示 出 来 ,极为 易 用 ,其 典型 应 用 包括 ， 

。 数学 和 计算 ; 

。 算法 开发 ; 

*。 建 模 和 仿真 ; 

-。 数值 分 析 , 检测 和 可 视 化 ; 

。 应 用 程序 开发 (包括 图 形 用 户 界 面 ) 。 

此 外 ,MATLAB 在 控制 界 . 生 物 医学 工程 .语音 处 理 . 图 像 信 呈 处理、 雷达 工程 .信和 号 
分 析 , 计 算 枫 技术 等 各 行 各 业 中 也 得 到 了 广泛 的 应 用 。 


11.2 MATLAB 系统 的 构成 


MATLAB 系统 主要 由 五 大 部 分 组 成 ,分 别 为 MATLAB 语言 (the MATLAB Lan- 
guage) ,MATLAS 工作 环境 (the MATLAB Working Envirconment),MATLAB 数学 函 
数 库 (the MATLAB Math Library), 图形 句 柄 系统 (Handle Graphics@) 和 MATLAB 应 
用 程序 接口 (the MATLAB Application Interface)。 下 面 对 它 们 进行 分 别 介绍 。 


1. MATLAB 语言 


MATLAB 语言 是 一 种 以 矩阵 (matrix) 和 阵列 (array ) 为 基本 编程 单元 的 ,拥有 完整 
的 控制 语句 .数据 结构 ,函数 编写 与 调用 格式 和 输 和 人 输出 功能 的 具有 面向 对 象 程序 设计 特 
征 的 高 级 程序 语言 ,读者 不 但 可 以 利用 它 方便 快捷 地 完成 小 规模 的 算法 验证 、 程 序 开 发 和 
调试 工作 ,而 且 可 以 使 用 它 进行 大 规模 的 复杂 应 用 程序 设计 ,非常 有 效 。 

与 其 他 高 级 程序 设计 语言 相 比 ,MATLAB 语言 除了 执行 效率 要 低 于 高 级 语言 之 外 ， 
无 论 是 在 编程 的 效率 、 可 污 性 还 是 可 移植 性 方面 都 要 远 远 高 于 其 他 高 级 语言 ,对 于 科技 工 
作者 来 说 ,是 一 种 非常 实用 的 编程 工具 .而 且 由 于 MATLAB 语言 轻松 地 实现 了 C 语言 和 
FORTRAN 语言 的 几乎 全 部 功能 ,并 且 在 图 形 功能 方面 有 所 加 强 , 同时 提供 了 大 量 的 功 
能 齐全 的 数学 函数 ,不 但 可 以 使 用 户 编制 出 功能 强大 .界面 优美 的 应 用 程序 ,而 且 可 以 极 
大 地 缩短 开发 周期 。 但 是 严格 说 来 ,MATLAB 语言 并 不 是 一 种 真正 的 计算 机 语言 , 为 
用 它 所 开发 的 程序 不 能 脱离 MATLAB 的 解释 性 执行 环境 而 运行 。 

相关 的 MATLAB 语言 的 数据 类 型 和 MATLAB 语言 的 语法 将 分 别 在 1.2 节 和 1.3 
节 中 进行 介绍 。 


2. MATILAB 工作 环境 


MATLAB 工作 环境 简 而 言 之 就 是 一 系列 实用 工具 的 集合 , 它 不 但 包括 了 各 种 操作 
工作 空间 中 变量 的 工具 和 管理 数据 输入 输出 的 方法 ,而 且 包 括 了 开发 调试 M 文件 和 
MATLAB 应 用 程序 的 集成 环境 ,使 用 起 来 极为 方便 。 当 用 户 在 Window NT 系统 下 启动 
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MATLAB 后 ,将 会 出 现 如 图 1. 1 所 示 的 命令 窗口 (the Command Window), 这 是 用 户 同 
MATLAB 工作 环境 交互 的 主要 窗口 ,在 命令 提示 符 () 下 ,用 户 可 以 键 人 各 种 相关 命令 ， 


来 完成 所 希 户 的 操作 。 例 如 为 了 求 得 矩阵 A-[ 《| 的 转生 矩阵 ,可 在 提示 符 下 键 人 如 
下 两 条 命令 ， 
? 和 一 [1,233,4]: 太 一 到/， 
第 一 条 命令 终止 于 中 括号 后 的 第 一 个 分 号 ,用 于 构造 矩阵 A, 其 中 中 括号 为 抵 阵 的 构 


造 算 符 , 逗 号 用 于 将 同一 行 中 的 元 素 分 开 , 而 分 号 则 用 于 区 别 不 同 的 行 ; 第 二 条 命令 用 于 
求 矩 阵 A 的 转 置 ,其 中 为 转 置 运算 符 。 当 键 人 回 车 (Enter) 后 ,MATLAB 将 显示 如 下 结 
果 ， 


有 一 
1 3 
2 4 


这 里 注意 一 点 ,在 MATLAB 中 ,同一 命令 行 中 可 以 键 人 多 条 命令 ,中 间 用 逗号 或 分 号 岗 
开 , 它 们 的 区 别 是 ,用 逗号 时 ,MATLAB 将 回 显 每 一 条 命令 的 执行 结果 ,而 用 分 号 则 不 会 
回 显 。 有 关 MATLAB 的 具体 应 用 ,本 书 不 再 闭 述 ,读者 可 以 参阅 相关 的 参考 书籍 。 





图 1.1 MATLAB 命令 窗口 


在 命令 窗口 中 ,用 户 除 了 可 以 在 命令 提示 符 下 键入 命 令 执行 操作 外 ,还 可 以 通过 菜单 
和 工具 条 执行 多 种 任务 ,如 图 1. 1 所 示 , 通 过 建立 新 的 M 文件 按钮 和 打开 已 有 的 M 文件 
按钮 可 以 开启 Medit 编辑 调试 器 ,如 图 1. 2 所 示 , 这 是 一 个 功能 非常 完善 的 编辑 调试 环 
境 ; 通 过 工作 空间 浏览 器 按钮 ,可 以 开启 工作 空间 浏览 器 ,察看 当前 工作 空间 浏览 器 中 各 
变量 的 类 型 和 内 容 ;通过 路 径 浏览 器 按钮 ,可 以 开启 路 径 浏览 器 ,让 用 户 设置 当前 MAT- 
LAB 工作 环境 所 使 用 的 默认 路 径 ; 通 过 帮助 按钮 ,可 以 打开 帮助 窗口 ,让 用 户 查找 在 线 帮 
助 ;通过 Simulink 模型 库 按钮 ,可 以 打开 Simulink 模型 库 , 让 用 户 向 自己 的 模型 中 应 加 新 
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bug 





图 1,2 Medit 编辑 调试 窗口 


的 模块 。 总 之 ,MATLAEB 工作 环境 是 一 个 功能 异常 强大 的 工具 集合 ,可 以 令 用 户 完 成 几 
乎 所 有 的 操作 ,并 且 简 单 易 用 。 


3. MATLAB 教学 函数 库 


MATLAB 数学 郴 数 库 是 大 量 的 各 种 形式 的 数学 函数 和 算法 的 案 合 , 它 不 但 包括 了 
最 基本 的 初等 画 数 , 如 sum .sine .cosine 和 复数 运算 等 , 而且 包 含 了 大 量 复 杂 的 高 级 函 救 
和 算法 ,如 贝 塞 尔 (Bessel) 画 数 ,快速 傅 里 叶 变 换 和 和 下 阵 求 道 等 。 用 户 在 编写 自己 的 
MATLAB 程序 时 ,可 以 轻松 地 调用 这 些 函 数 和 算法 ,从 而 极 大 地 方便 了 算法 的 开发 。 所 
有 这 些 函 数 按 类 别 分 别 存放 在 MATLAB 工具 箱 目 录 下 的 人 个子 目录 中 , 详 见 表 1.1， 


表 1.1 MATLAB 数学 笑 数 库 的 分 类 和 组 织 


目 录 名 函 数 功 能 
elmat 对 矩阵 和 矩阵 元 素 的 操作 
elfun 初等 获 学 函数 
specfun 专门 数学 函数 
matfun 矩阵 函数 一 一 数值 线性 代 示 
datafun 数值 分 析 和 傅 星 叶 变 换 
polyfun 插值 和 多 边 形 近似 
funfun 功能 函数 和 O 〇 DE 求解 
sperfun 希 硫 矩阵 函数 
4， 图 形 自 柄 系统 


Handle Graphics@, 为 MathWorks 公司 的 注册 商标 ,是 MATLAB 的 图 形 系 统 。 它 在 
包含 了 大 量 高 级 的 2D 和 3D 数据 可 神化 .图 形 显 示 、 动 画 生 成 和 国 像 处 理 命令 的 同时 ,还 
提供 了 许多 低级 的 图 形 命令 ,允许 用 户 按照 自己 的 需求 显示 图 形 和 定制 应 用 程序 图 形 用 
户 接口 , 既 不 失 方便 ,又 不 失灵 活 .具体 的 函数 分 为 五 大 类 ,分 别 放置 于 MATLAB 工具 箱 
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下 五 个 不 局 的 目录 内 ，, 详 见 表 1. 2。 
家 1,.2 MATIAB 儿 形 函数 的 分 类 和 组 织 


月 录 名 函数 荔 能 
graph2d 二 维 图 形 函 数 
多 rafh3d 三 维 图 形 函 数 
specgkraph 专用 图 形 函 数 
和 raphics 议 形 句柄 函 落 
uitools 异形 用 户 界面 工具 


5. MATLAB 应 用 程序 接口 


MATLAB 应 用 程序 接口 是 MATLAB 为 用 户 提 供 的 一 个 功能 完善 的 函数 库 , 它 包 
含 了 大 量 的 MATLAB 与 C 语言 和 REORTRAN 语言 之 癌 的 接口 函数 ,是 MATLAB 的 一 
个 非常 重要 的 组 成 部 分 ,通过 它 ,不 仅 可 以 在 MATLAB 下 以 动态 链接 库 的 形式 调用 C 语 
言 或 FORTRAN 语言 编写 的 子 程序 ,而 且 可 以 在 C 语言 和 FORTRAN 语言 中 调用 
MATLAB 的 大 量 函 数 ,将 MATLAEB 作为 一 个 计算 引擎 ,同时 还 能 够 完成 MATLAE 与 
外 界 必 要 的 数据 交换 , 极 大 地 增强 了 MATELAB 的 灵活 性 ,非常 实用 。 本 书 将 闭 重 讲述 这 
一 部 分 内 容 , 使 读者 能 够 熟练 地 应 用 MATLAB 应 用 程序 接口 。 


1.1.3 MATLAB 共生 产品 


由 图 1. 3 所 示 的 MATLABSB 产品 家 族 可 以 看 到 ,MATLAB 产品 家 族 是 一 个 非常 旋 
大 的 系统 ,MATLAB 系统 仅仅 是 其 中 的 一 个 部 分 , 它 还 有 许多 其 他 重要 的 成 员 , 如 
Simulink 等 ,于 面 我 们 对 它们 进行 一 些 简单 的 介绍 。 





图 1.3 MATLAB 产品 家 族 
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1. Simnulink 及 其 扩展 


simalink 是 一 个 用 来 对 非 线性 动态 系统 进行 仿真 的 .鼠标 驱动 的 交互 式 图 形 系统 ， 
它 允 许 用 户 通过 绘制 一 系列 的 方 框图 来 完成 建 模 工 作 , 并 动态 地 对 模型 进行 操作 ,适用 于 
各 种 系统 ,包括 线性 系统 、 非 线性 系统 .连续 系统 .离散 系统 和 多 变 量 系 统 , 是 MATLAB 
系统 的 一 个 非常 重要 的 共生 产品 。 

Blocksets 是 Simulink 的 一 个 捅 件 集 , 它 为 Simulink 提供 了 大 和 量 额 外 的 专用 模块 库 ， 
如 信和 号 处 理 ,通信 等 。 

Real-Time Workshop 是 一 个 非常 实用 的 应 用 程序 , 它 可 以 由 用 户 的 方 框图 生成 C 
语言 的 代码 ,并 且 能 够 运行 在 各 种 各 样 的 实时 系统 上 。 


2. MATLAB 编译 器 


MATLAB 编译 器 是 MATLAB 系统 扩展 的 重要 组 成 部 分 , 通过 它 , 用 户 可 以 将 
MATLAB 的 M 文件 转化 为 C 或 C 十 十 语言 的 源 代 码 , 增 强 了 MATLAE 应 用 的 灵活 性 。 
转换 后 的 源 代码 主要 有 以 下 三 种 类 型 

。 可 生产 MEX 文件 的 C 语言 源 代 码 ; 

。 可 与 其 他 模块 结合 ,生成 可 执行 程序 的 C 或 C 十 十 源 代 码 ,所 生成 的 可 执行 程序 
可 以 独立 于 MATLAB 的 解释 性 环境 单独 运行 ,但 是 需要 MATLAB C/VC 十 十 数 
学 函数 库 的 支持 ; 

。 用 于 Simulink 和 Real-Time 允 orkshop 的 C 语言 S 函数 。 


3. MATLABC/AC 十 十 数学 豚 数 库 


MATLAB C 数学 函数 库 是 MATLAB 系统 扩展 的 另 一 重要 组 成 部 分 ,包含 了 大 约 
400 个 用 C 语言 进行 重新 编写 的 MATLASB 数学 函数 ,不 但 包括 大 量 的 MATLAB 内 建 
函数 ,而 且 包 含 了 许多 MATLAB 的 M 文件 ,是 MATLAB 系统 数学 计算 核心 的 C 语言 
的 再 现 。 任 何 能 够 调用 C 语言 函数 的 程序 , 均 能 够 调用 该 函数 库 所 包含 的 所 有 数学 函数 ， 
为 应 用 程序 开发 者 提供 了 一 种 方便 的 使 用 MATLAB 强大 计算 能 力 的 途径 ,其 核心 结构 
是 mxArray 结构 体 。 这 里 需要 明确 的 一 点 是 该 函数 库 包含 的 仅仅 是 数学 函数 ,并 没有 包 
含 其 他 的 一 些 专用 函数 ,如 图 形 句柄 系统 函数 .Simulink 函数 等 。 

MATLAB C 十 十 数学 函数 库 的 功能 与 MATLAB C 数学 函数 库 的 功能 相同 ,不 过 它 
是 构建 在 MATLA C 数学 本 数 库 的 上 层 , 用 mxArray 类 代替 了 mxArtray 结构 体 , 对 许多 
功能 进行 了 封装 。 在 本 书 的 最 后 一 章 , 我 们 将 对 MATLAB C 十 十 数学 函数 库 的 使 用 进行 
” 简要 的 说 明 。 


4 MATLAB 工具 箱 


MATLAB 工具 箱 是 由 -一 系列 各 式 各 样 的 函数 库 组 成 ,内 容 涉及 方方面面 ,包括 了 大 
量 的 M 文件 和 MEX 文件 ,主要 由 各 行 各 业 的 专业 人 士 编写 ,其 目 的 是 为 了 方便 某 一 领 
域内 的 科学 研究 和 工程 应 用 ,将 一 些 已 经 非常 成 熟 或 完善 的 算法 标准 化 供 人 调用 ， 到 目前 
为 止 ,由 MathWorks 公司 正式 发 布 的 工具 箱 已 达 22 个 ,图 1.3 中 仅仅 列 出 了 其 中 的 一 部 
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分 ,可 见 其 涉及 的 领域 是 相当 广泛 .而 且 由 于 采用 了 开放 式 的 开发 思想 ,在 因特网 上 ,有 相 
当 多 的 个 人 或 团体 将 自己 开发 的 工具 箱 置 于 网 上 , 供 人 借鉴 和 免费 下 载 , 从 而 形成 了 巨大 
的 资源 宝库 ,同时 也 促进 了 MATLAB 的 发 展 。 


1.2 MATLAB 的 数据 类 型 


在 上 一 节 中 ,我 们 对 MATLAB 系统 作 了 全 面 的 介绍 ,讲述 了 MATLAB 系统 的 产 
生 .MATLAB 系统 的 组 成 以 及 MATLAB 系统 的 一 些 共生 产品 ,使 读者 对 MATLAB 系 
统 有 了 一 个 大 概 的 了 解 。 在 本 节 中 ,我 们 将 对 MATLAB 所 使 用 的 数据 结构 进行 介绍 ,以 
加 深 读 者 对 MATLAB 系统 的 理解 。 在 本 节 中 ,为 了 讲解 方便 ,举例 一 般 为 一 维 或 二 维 , 但 
是 同样 可 以 推广 到 多 维 傅 况 下 。 


1.2.1 MATLAB 阵列 


MATLAB 阵列 (array) 是 MATLAB 语言 惟一 能 够 处 理 的 对 象 类 型 ,MATLAB 所 
有 的 基本 数据 类 型 ,包括 数量 (scalar) ,向 量 (veetor) ,和 失 阵 (matrix) ,字符 串 (string) ,单元 
阵列 (celi array) ,结构 性 (structure) ,都 属于 阵列 对 象 ,只 不 过 是 阵列 对 象 的 不 同 构成 方 
式 。 在 本 小 节 中 ,我 们 将 首先 对 MATLASB 的 数据 存储 方式 进行 说 明 , 然 后 讲述 一 些 简单 
的 MATLAB 基本 数据 类 型 


1 MATLAB 数据 的 存储 


所 有 的 MATLAB 数据 类 型 的 存储 方式 均 为 按 列 存储 ,这 主要 是 因为 最 初 的 MAT- 
LAB 系统 采用 的 是 FORTRAN 语言 进行 编写 ,而 FORTRAN 语言 的 数据 存储 方式 为 按 
列 存储 。 这 与 C 语言 按 行 进行 数据 存储 的 方式 有 着 较 大 的 差异 ,对 于 习惯 使 用 C 语言 的 
读者 来 说 ,需要 特别 注意 这 一 点 。 例 如 在 MATLAB 命令 提示 符 下 键 人 如 下 给 定 和 矩阵 ， 


A = TIMATLAB' ，'ABACUS' ; 'DEDUCE'] 
回 车 后 得 到 如 下 结果 ， 


上 一 
MATLAB 
太 BACUS 
DEDUCE 


为 一 个 3X6 的 矩阵 。 在 MATLAB 的 内 存 中 , 它 是 按 如 下 方式 进行 存储 的 ， 
MADABETADLCUAUCEBSE 


2. 数量、 向 量 和 矩阵 


复数 矩阵 (complex matrixz) 是 MATLAB 中 最 常用 和 最 基本 的 数据 类 型 ,大 小 可 以 
表示 为 目 Xn, 其 中 m 和 n 分 别 为 矩阵 的 行 数 和 列 数 。 数量 (scalar) 物 向 量 (vector)? 是 特殊 
的 矩阵 形式 ,其 中 数量 为 1X1 的 单元 素 矩 阵 , 向 量 则 是 维 数 为 IXn 或 mxX1l 的 单行 或 单 
列 的 矩阵 。 按 照 矩 阵 元素 的 类 型 ,可 以 将 MATLAB 矩阵 分 为 以 下 几 类 : 双 精 度 浮 点 型 , 单 
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精度 浮 点 型 ,逻辑 型 ,8 位 .16 位 或 32 位 有 符 续 和 无 符号 整数 型 ,其 中 以 双 精 度 浮 点 型 最 
为 常用 。 在 MATLAB 中 , 双 精 度 的 复数 矩阵 用 两 个 向 量 来 表示 , 分别 用 来 存储 矩阵 的 实 
数 部 分 和 庶 数 部 分 ,通过 指针 pr( 实 部 ) 和 pi( 虚 部 ) 可 以 得 到 相应 的 数据 ， 对 于 实数 型 的 
矩阵 来 说 ,存储 和 表示 方法 与 复数 型 矩阵 相间 ,只 不 过 虚 部 指针 为 空 NULL)。 同 时 ,在 
MATLAB 中 还 提供 了 一 些 可 判断 和 转换 矩阵 数据 类 型 的 函数 ,如 isa 函数 可 以 判断 矩阵 
所 属 的 数据 类 型 ,uint8 函数 可 以 将 任何 类 型 的 数值 矩阵 转换 为 用 8 位 整数 表示 的 和 矩阵， 
而 double 函数 可 以 将 矩阵 转换 为 双 精 度 浮 点 型 。 具 体 的 函数 使 用 格式 ,读者 可 参阅 联机 
帮助 。 


3. 字符 囊 


MATLAB 字符 串 (string) 是 MATLAB 和 插 阵 的 又 一 种 表现 形式 ,其 元 素 类 型 为 用 16 
位 无 符号 整数 表示 的 Unicode ASCII 字符 (character) 。 与 C 语言 不 间 的 是 ,在 MATLAB 
中 字符 串 不 以 空子 符 NULL 来 表示 字符 串 的 结束 。 如 果 MATLAB 工作 空间 中 存在 一 个 
A = 'CDEF' 的 字符 串 , 使 用 whos 命令 ,MATLAB 将 显示 如 下 结果 ， 


Name Size Bytes Class 
息 1X4 8 char array 


可 以 清楚 地 帮 到 ,MATLAB 系统 将 该 字符 串 作为 一 个 1X4 的 矩阵 ,并 且 占 用 8 个 字 节 
的 存储 空间 。 

间 时 在 MATLAB 系统 中 ,提供 了 相当 多 的 对 字符 串 进行 操作 和 转换 的 内 部 函数 ( 见 
表 1, 3) ,使 得 对 字符 串 的 操作 极为 方便 。 


表 工 3 字符 素 操作 及 转换 冰 数 (部 分 ) 


二 数 名 功 能 
thar 构造 字符 串 
blank 构 追 空格 字符 曲 
Ischar 判断 矩阵 是 否 为 字符 串 类 型 
Stremp 字 管 申 比 较 
Strcat 字符 串 拼 接 
Upper 将 字符 申 转 换 为 大 写 
Lower 将 字符 申 转换 为 小 写 
num2atr 将 数字 转换 为 字符 中 
4， 黎 获 矩 阵 


MATLAB 中 ,为 矩阵 提供 了 两 种 完全 不 同 的 存储 方式 , 即 满 (fuli) 和 稀 朴 (sparse)， 
在 一 般 情 况 下 ,MATLAB 所 创建 的 年 阵 均 为 full 的 存储 类 型 。 

稀 六 矩 阵 (sparse matrix) 是 MATLAB 矩阵 的 一 种 特殊 类 型 , 它 包含 了 大 量 的 值 为 
零 的 矩阵 元 素 。 正 是 由 于 这 个 特性 ,MATLAB 系统 为 稀 琉 矩阵 提供 了 完全 不 局 的 存储 方 
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式 和 处 理 方法 , 即 只 对 那些 非 零 的 元 素 进 行 存 储 和 计算 ,从 而 在 很 大 程度 上 降低 了 对 内 存 
的 需求 量 和 处 理 的 计算 量 。 

考虑 一 个 mXn 的 拥有 nnz 个 非 零 元 索 的 实 稀 琉 矩阵 ,MATLAB 系统 将 使 用 三 个 内 
部 阵列 来 表示 该 稀 玻 矩 阵 ,其 中 第 一 个 阵列 按 单 精度 浮 点 型 来 存储 稀 琉 怎 阵 中 所 有 的 非 
零 元 素 , 其 长 度 为 anz! 第 二 个 阵列 用 来 存储 所 有 非 零 元 素 的 行 索引 值 ,长度 同 样 为 nnz， 
元 素 类 型 为 整 型 ,第 三 个 阵列 则 是 一 个 用 来 标示 每 一 列 开始 的 整 型 指针 , 其 长 度 为 n。 如 
果 存 储 一 个 单 精度 型 浮 点 数 需要 8 个 子 节 , 而 整 型 需要 4 个 字 节 , 这样 对 于 一 个 mxXn 稀 
疏 和 矩阵 来 说 ,其 内 存 需 求 量 为 


8Xnnz 十 4X(nnz 十 D》。 


对 于 复数 型 的 稀 朴 矩阵 , 则 需要 第 四 个 阵列 来 存储 非 零 矩 阵 元 素 的 虚数 部 分 ,长 度 为 
nnz。 这 里 需要 提醒 读者 注意 一 点 ,MATLAB 系统 并 不 会 自行 创建 稀 斑 矩阵 类 型 ,而 需要 
1 0.04 


用 户 通过 命令 行 来 显 式 建 立 。 例 如 存在 矩阵 和 一 ,读者 可 以 在 MATLAB 


02 0 0 
003 0 
DO oo 5 
命令 提示 符 下 键入 命令 S = sparse(A) 来 将 矩阵 A 转换 为 稀疏 矩阵 , 回 车 后 ,可 以 得 到 如 
下 结果 ， 
S 一 
(1，17) 
《2，27) 
《3;3) 
《1，47 


44》 5 
反之 ,同样 可 以 将 一 个 稀疏 矩阵 显 式 转换 为 一 个 满 矩阵 ,通过 使 用 命令 
A = fall(S) 
在 实际 的 使 用 中 ,是 否 将 一 个 矩阵 转换 为 稀疏 矩阵 ,应 视 非 零 元 素 的 多 少 而 定 。 如 果 


将 非 零 元 素 较 多 的 失 阵 转换 为 稀 朴 矩阵 ,不 但 达 不 到 减少 内 存 消 耗 的 目的 ,反而 会 增加 内 
存 的 使 用 量 。 所 以 在 转换 前 ,必须 小 心 衡量 。 


5， 多 维 阵 列 


MATLAB 多 维 阵列 (Multidimensional Array) 是 常规 的 MATLAB 抢 阵 的 一 种 扩展 
形式 ,其 维 数 一 般 大 于 2, 除 了 使 用 常规 的 行 下 标 和 列 下 标 外 ,对 于 多 维 阵列 的 元 素 的 访 
问 还 需要 使 用 更 多 的 下 标 描述 ,通常 将 3 或 大 于 3 的 维 描述 为 “页 面 ", 其 示意 图 见 图 
1.4, 命令 

六 (2，3，17 一 5 
的 功能 是 将 多 维 阵列 中 第 一 个 页 面 、 第 二 行 . 第 三 列 的 元 素 赋值 为 5。 这 里 必须 特别 注意 
_- 点 ,MATLAB 中 对 于 下 标的 使 用 方式 与 C 语言 中 完全 不 同 , 在 C 语言 中 , 排 在 最 前 面 
的 下 标 等 级 最 高 ,依次 向 后 递减 ;而 在 MATLAB 中 , 排 在 第 一 第 二 的 下 标 分 别 代表 矩阵 


为 


和 划 9 十 
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Al(231) 站, 允 各 ,23) 019: 驴 《1 本 


(2,1, 习 (2,2,3) [2 号 区 《24 本 
外 ,1 ,起 加 ,337 全,3,3) (3 


(1 《4,2.17 (3 (400 
图 1.4 多 维 阵 列 示意 图 
的 行 和 列 , 从 第 三 个 下 标 开始 才 为 页 面 ,而 且 排 在 越前 面 的 下 标 等 级 越 低 , 最 后 一 个 下 标 
为 最 高 级 。 
MATLAB 中 一 共 提 供 了 三 种 创建 多 维 阵列 的 方法 ,其 中 第 一 种 方法 为 直接 通过 下 

标 索 引 来 创建 多 维 阵列 ,例如 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 

As:2) 一 [1044356;987] 
就 相当 于 创建 了 一 个 三 维 阵 列 , 并 将 其 中 第 二 个 页 面 内 的 元 素 全 部 赋值 ,同时 MATLAB 
通过 使 用 算 符 “:” 可 以 将 一 个 页 面 内 的 所 有 元 素 赋 为 间 一 个 值 ,命令 如 下 ， 

Ais2) 一 5 

第 二 种 方法 为 使 用 MATLAB 提供 的 阵列 构造 函数 , 例如 randnvrepmatyones 以 及 

zetos 等 ,命令 

B = randn(4,3,2) 
构造 了 一 个 数值 为 正 态 分 布 的 具有 两 个 页 面 的 4X3 的 3 维 阵列 ,而 命令 

B 一 repmat(5,[3 4 2]) 
则 创建 了 一 个 具有 两 个 页 面 的 3X4 的 3 维 阵列 ,并 且 将 所 有 的 元 素 冉 值 为 5 第 三 种 方 
法 为 使 用 cat 函数 构造 多 维 阵列 ,通过 cat 画 数 可 以 在 指定 维 数 的 情况 下 ,将 多 个 阵列 连 
结 在 一 起 从 而 构成 多 维 阵列 ,例如 命令 

B= eat(3,[28;05],[13; 79]》 
创建 了 三 维 阵列 ,其 中 第 一 个 页 面包 含 了 答 阵 [2 8 0 5], 第 二 个 页 面包 含 了 和 拖 阵 [1 3 7 
9]。 


1.2.2 复杂 的 MATLAB 基本 数据 类 型 


除了 上 一 小 节 中 的 几 种 较为 简单 的 MATLAB 基本 数据 类 型 外 ,还 有 三 种 较为 复杂 
的 基本 数据 类 型 ,它们 分 别 是 单元 阵列 、 结 构 体 和 对 象 , 在 本 小 节 中 ， 我 们 将 对 它们 分 别 加 
以 介绍 。 
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1. 单元 阵列 (cell array) 


单元 阵列 是 MATLAB 系统 中 非常 特殊 的 一 种 阵列 类 型 ,阵列 的 每 一 个 元 素 称 为 一 

个 单元 (cell) ,每 一 个 单元 可 以 为 各 种 类 型 的 MATLAB 基本 数据 类 型 ,不 但 可 以 为 上 一 
小 节 中 讲述 过 的 简单 的 数据 类 型 ,而 且 可 以 为 本 小 节 中 即将 讲述 的 结构 体 以 及 对 象 ,同时 
可 以 为 单元 阵列 ;更 为 重要 的 是 单元 阵列 的 各 个 单元 之 间 可 以 互 不 相同 ,极为 灵活 。 创 建 
单元 矩阵 总 的 说 来 有 两 种 方式 :一 种 方式 为 直接 对 单元 阵列 的 单元 进行 由 值 , 另 一 种 为 首 
先 使 用 cell 函数 为 单元 阵列 分 配 空间 , 然后 进行 赋值 。 例 如 在 MATLAB 命令 提示 符 下 ， 
键 人 如 下 命令 ， 

A(1,1)? 一 14350588729])} 

肯 K1,2) 一 《Itisacell yy 

AC2，1)》 一 《[1,253，4]j 

上 (2,2) 一 《一 141) 
可 以 得 到 如 图 1. 5 所 示 的 单元 阵列 。 


cell(1,1) cell(2,1) 


it is a eell 


cel(1,2) celi(2，2) 


1 [一 1,0,1] 
3 4 








图 1.5 单元 矩阵 


2， 结 构 体 
MATLAB 结构 体 (structure) 的 定义 与 C 语言 结构 体 的 定义 类 伺 , 是 由 一 系列 不 同 


的 域 (field) 组 成 ,每 一 个 域 均 可 以 为 不 同 的 MATLAB 基本 数据 类 型 ,图 1. 6 是 一 个 典型 
的 MATLAB 结构 体 示意 图 ， 


NAME， "有 ANG HAT 
各 GE， 17 
HEIGHT: 173 

图 1.6 MATLAB 结构 体 


与 其 他 数据 类 型 相同 ,MATLAB 系统 同样 将 结构 体 视 为 一 个 阵列 ,其 维 数 为 1X1。 
构造 结构 体 的 方法 不 外 乎 两 种 ,一 种 为 直接 揣 值 , 另 一 种 为 使 用 struct 函数 。 例 如 在 


“12 。 MATLASB 应 用 程序 接口 用 户 指南 


MATLAB 命令 提示 符 下 键 人 如 下 命令 ， 


? STUDENT.NAME = ' 友 ANG HAT'， 
? STUDENT. AGE = 17; 

? STUDENT.HEIGHT = 173: 

? STUDENT 


回 车 后 MATLAEB 系统 将 回 显 如 二 结果 ， 


NAME:， WANG HAT? 
AGE:， 17; 
HEIGHT:， 1735 


这 样 就 构造 了 一 个 名 为 STUDENT 的 结构 体 。 使 用 struct 函数 的 格式 如 下 ， 
STRUCTIT _ 六 RRAY 一 structK'fieldl valuel' ，'field2: ，'valne2: ，) 
其 中 field 代表 域名 ,value 代表 域 值 。 访 问 结构 体 的 内 容 下 以 使 用 如 下 格式 ， 
field _value 一 STRUCT _ ARRAY,field _name 
读者 同样 可 以 梅 造 结构 体 阵列 ,对 其 访问 只 需 在 结构 体 阵 列 名 后 加 上 索引 吕 可 ,与 C 语 
言 的 结构 体 数 组 的 定义 和 使 用 非常 类 似 。 
1.2.3 类 (class) 和 类 对 象 (objeet) 


在 MATLAB 中 ,类 (class) 的 定义 与 C 十 十 语言 中 类 的 定义 极为 相似 ,是 一 组 具有 相 
似 特 征 对 象 Cobjeet) 的 抽象 ,每 一 个 对 象 都 是 类 的 一 个 实例 。 前 面 小 节 中 讲述 的 各 种 
MATLAB 的 基本 数据 类 型 都 是 MATLASB 的 内 建 类 ( 见 表 1. 4) ,用 它们 定义 的 变量 称 为 
该 类 的 类 对 象 。 


表 1.4 MATLAB 的 内 建 类 








类 名 描 述 
double 双 精 度 译 点 类 型 矩 亩 或 阵列 
sparse 二 徘 稀 琉 低 阵 
字符 阵列 
struct 结构 体 阵列 
cell 单元 阵列 


通过 类 ,用 户 可 以 构造 新 型 的 MATLAB 数据 类 型 ,并且 声 明 一 系列 对 该 类 类 对 象 的 
运算 符 和 操作 函数 。 正 是 因为 有 了 类 , 才 使 MATLAB 语言 具有 了 面向 对 象 编程 语言 的 特 
征 , 因 此 对 类 和 类 对 象 概念 的 理解 ,对 学 习 和 使 用 MATLAB 来 说 至 关 重 要 。 在 各 种 各 样 
的 MATLAB 工具 箱 中 ,类 更 是 得 到 了 广泛 的 应 用 ,例如 MATLAB 的 符号 计算 工具 箱 就 
是 建立 在 自 定义 类 sym 的 基础 上 , 该 类 定义 了 各 种 对 符号 矩阵 和 变量 的 操作 ;而 在 控制 
系统 工具 箱 中 , 则 是 通过 自 定 义 的 类 lti 以 及 它 的 三 个 子 类 来 完成 对 线性 时 变 系统 分 析 的 
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任务 
1. 类 的 组 成 


一 般 来 说 ,一 个 类 可 以 分 为 两 个 组 成 部 分 , 即 成 员 变 量 和 成 员 函 数 。 成 员 变量 相当 于 
MATLAB 结构 体 的 域 ,可 以 为 各 种 类 型 的 MATLAB 数据 ;而 成 员 函 数 是 一 系列 的 M 文 
件 , 可 以 包括 各 种 类 型 的 MATLAB 运算 符 、 数 学 算 子 、 功 能 函数 以 及 重 载 后 的 MAT- 
LAB 内 建 算 子 和 组 数 ,用 来 对 成 员 变 量 进行 操作 。 类 对 象 的 存储 结构 与 MATLAB 结构 
体 的 存储 方式 完全 相同 ,但 是 在 对 域内 容 的 访问 和 保护 上 却 截然 不 同 , 类 对 象 的 域内 容 只 
能 通过 类 的 成 员 函 数 来 获取 和 和 修改, 外界 根本 无 法 得 知 , 这 也 就 是 面向 对 象 程序 设计 的 一 
个 重要 特性 一 一 数据 的 封装 性 。 此 外 ,在 MATLAB 系统 下 ,类 成 员 函 数 的 存放 有 若 相当 
严格 的 规定 ,所 有 的 类 成 员 函 数 必须 放 在 同一 目录 下 , 且 目 录 名 必须 为 @class _name( 不 
同 的 操作 系统 格式 可 能 存在 差别 ,本 书 主要 基于 Windows 系统 ), 其 中 符号 人 @@ 为 固定 格 
式 , 不 可 省 略 ,class _name 为 用 户 所 定义 类 的 类 名 ; 同时 这 个 新 建立 的 目录 @rlass 
name 必须 设置 为 MATLAB 系统 搜索 路 径 中 工作 目录 的 子 目录 。 


2.。 类 的 构造 郴 数 


由 于 在 MATLAB 语言 中 ,没有 数据 类 型 的 声明 语句 ,数据 的 类 型 一 般 在 定义 时 幅 式 
地 通过 构造 函 表 来 确定 ,并 设置 类 型 标志 。 例 如 如 下 定义 


站 一 zeros(5，5) 
将 矩阵 A 默认 地 定义 为 双 精 度 浮 点 类 型 的 MATLAB 抑 阵 ,而 定义 
STR = 'She ia beautiful' 


则 将 变量 STR 定义 为 char 类 的 一 个 实例 。 因此 在 构造 MATLAE 新 类 时 ,类 构造 函 教 的 
建立 非常 重要 .MATLAB 规定 ,类 构造 函数 名 必须 与 类 名 相同 ,并 且 存 放 在 目录 @class _ 
name 下 ， 下面 是 一 个 简单 的 类 构造 函数 DEMO _CLASS() ,类 DEMO _CLASS 仅 包 含 
一 个 类 理 为 double 的 矩阵 的 域 A: 


funetion p 王 DEMO _CLASS (ay) 
外 DEMO CLASS class constructor， 
%b = DEMO _CLASS (v) creates a matrix of v 尺 Y。 
让 nargin 一 一 
P. 丰 一 zeros(5，573 
pb = classg(p，'DEMO _CLASS' 7) %% Set class tag 
ejse 
计 isaka， :DEMO _CLASS' ) 
P 一 34 
elge 
p. 太 一 zeros(a 8). 3 
p 一 class(p，'DEMO _CLASS' )# 
en 夺 
end 
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该 构造 国 数 在 没 用 输入 人 参数 的 情况 下 产生 一 个 大 小 为 5X5 的 double 类 型 零 矩 阵 , 赋 给 
DEMO __CLASS 类 对 象 p, 并 且 设 置 类 型 标志 。 

本 小 节 简 单 地 对 MATLAB 类 和 类 对 象 进行 了 介绍 ,详细 的 使 用 请 读者 参见 相关 的 
参考 书籍 。 


1.2.4 阵列 与 数组 


细心 的 读者 可 能 已 经 发 现 , 在 前 面 的 讲述 过 程 中 , 书 中 将 array 全 部 解释 为 阵列 , 而、 
在 其 他 的 一 些 相关 书籍 中 , 一 般 将 array 翻译 为 数组 。 确 切 地 说 ,这 两 种 解释 都 是 正确 的 ， 
但 是 作者 在 全 书 中 采用 了 “阵列 "这 种 解释 , 主要 是 出 于 以 下 原因 考虑 ， 

”首先 ,这 是 为 了 与 一 般 的 计算 机 高 极 编程 语言 中 数组 的 概念 相 区 分 。 轩 为 在 一 般 的 计 
算 机 高 级 编程 语言 中 ,数组 的 定义 为 一 组 相交 数据 类 型 变量 的 集合 ,这 里 必须 非常 注意 
“相同 数据 类 型 ", 而 在 MATLABH 中 array 的 概念 却 没有 这 种 限制 , 它 的 元 素 可 以 为 任意 
类 型 变量 ,如 单元 阵列 , 它 的 每 一 个 元 素 的 类 型 均 可 以 互 不 相同 ; 

其 次 ,从 数据 处 理 的 角度 来 说 ,在 一 般 的 计算 机 高 级 编程 语言 中 ,数组 虽然 是 一 组 相 
同 数据 类 型 的 数据 的 集合 ,但 是 在 处 理 时 , 仍 是 以 数组 元 素 为 对 象 的 , 即 分 别 对 数组 中 的 
每 个 元 素 进行 处 理 ,而 在 MATLAB 中 却 不 是 这 样 ,所 有 的 处 理 过 程 都 是 以 array 为 对 
象 ,将 array 视 为 一 个 整体 ,而 并 非 对 array 的 每 一 个 元 素 进 行 处 理 ( 这 并 不 是 说 MAT- 
LAB 不 能 对 元 素 进行 处 理 , 相 反 , 在 MATLAB 中 ,提供 了 丰富 的 对 单个 元 素 进行 处 理 的 
功能 ) 。 这 里 将 array 解释 为 阵列 也 是 为 了 突出 整体 处 理 的 概念 。 


1.3 MATLAB 语言 程序 设计 


在 1.2 节 中 ,我 们 对 MATLAB 使 用 的 数据 类 型 进行 了 简单 的 介绍 ,为 的 是 使 读者 对 
MATLAB 系统 有 进一步 的 了 解 。 本 节 中 我 们 将 就 MATLAB 语言 的 程序 设计 分 四 方面 
进行 介绍 ， 

，MATLAB 的 基本 运算 符 ; 

。 MATLA8S 的 基本 语句 结构 ; 
。MATLAB 控制 语句 ; 

。 MATLAB M 文件 的 编写 。 


1.3.1 MATLAB 的 基本 运算 符 


MATLAB 中 ,针对 阵列 的 计算 握 供 了 大 量 的 功能 丰富 的 运算 符 , 包 括 算术 运算 符 、 
关系 运算 符 .逻辑 运算 符 以 及 其 他 一 些 特殊 运算 符 , 使 得 对 阵列 的 一 些 常用 操作 变 得 异常 
的 容易 .下 面 我 们 以 矩阵 ( 即 二 维 的 数值 阵列 ?为 例 , 对 MATLAB 的 基本 运算 符 进行 简单 
地 介绍 。 


1， 算 林 运 算 符 


在 MATLAB 中 ,不 但 提供 了 完整 的 传统 挫 阵 算术 运算 符 , 还 提供 了 一 些 新 型 的 矩阵 
算术 运算 符 ,例如 左 除 , 右 除 等 ,各 运算 符 的 使 用 及 功能 见 表 1. 5, 不 熟悉 MATLAB 的 读 
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者 请 详细 阅读 ,对 以 后 的 MATLAB 程序 设计 大 有 益处 。 
囊 1.5 MATLAB 算术 运算 符 


运算 符 名 及 使 用 格式 黄 能 

plusg(A,B) 或 吉 十 B 计算 矩阵 A 与 矩阵 了 的 和 ,要 求 矩 阵 A .矩阵 B 具有 相同 的 维 数 ,或 者 其 
中 之 一 为 数量 ,这 时 相当 于 炬 阵 的 每 一 元 素 与 数量 相 加 

ininus(A,B) 或 A-B 计算 矩阵 A 与 矩阵 了 的 差 ,要求 矩阵 4、 矩阵 B 具有 相同 的 维 数 ,或 者 其 
中 之 一 为 数量 ,这 时 相当 于 矩阵 的 每 一 元 素 与 数量 相 减 

mtimes(A,B》 或 六 * 卫 计算 矩阵 A 与 矩阵 B 的 数学 意义 上 的 慷 积 ,六 、.B 也 可 以 为 数量 或 向 量 

times(A,B) 或 AwB 矩阵 A 与 矩阵 B 的 对 应 元 素 相 乘 ,机 求 撼 阵 A、 和 矩阵 3 具有 相间 的 维 数 ， 


或 者 其 中 之 一 为 数量 ,这 时 相当 于 矩 阵 的 每 一 元 素 与 数量 相 芭 


0 当 A 与 B 均 为 数量 时 ,前 示 数 量 A 的 了 次 方 午 ! 当 A 为 方 阵 ,B 为 正 整 数 
时 ,计算 方 阵 A 的 B 次 乘积 , 当 3 为 负 整数 时 ,计算 方 阵 A 的 道 的 B 次 采 


/V ,其 中 V 为 特征 向 量 矩 阵 ， 
奢 
)X,…*) 为 矩阵 有 的 特征 值 . 当 妆 为 数量 ,B 为 方 阵 时 ,六 ABR 一 Vx 


积 ,而 卫 为 非 整 数 时 ,六 AB 一 V 党 | 


站 加 
| 二 jw, 其 中 居心 "*j 为 矩阵 上 的 特征 值 ,V 为 相应 的 特征 向 量 
和 


抵 阵 ， 当 六 和 了 均 为 抵 舞 时 ,无 定义 


power{t 入 ,B) 或 六 ,A 了 3 相当 于 计算 [Ai,j)AB(i,j)], 要 求 矩阵 和 与 炬 阵 B 为 相同 维 歼 

mldivide( 二 ,B) 或 ANB 即 方程 上 *X=3 的 解 和 X 

mrdivide(AA,B) 或 A78 即 方程 X* 大 一 B 的 解 区 

ldivide(A,B) 或 羡 .NB 矩阵 B 中 的 元 素 除 以 矩阵 & 中 相对 应 的 元 率 , 豆 求 矩阵 A .矩阵 B 共有 
相 而 的 锥 数 , 或 者 其 中 之 一 为 数量 

rdivide(A,B) 或 A. 7/B 上 矩阵 A 中 的 元 素 除 以 给 阵 B 中 相对 应 的 元 素 , 要 求 矩 阵 A .矩阵 3 具有 


相同 的 维 数 ,或 者 其 中 之 一 为 数量 


2. 关系 运算 符 


MATLAB 中 共 提 供 了 六 种 关系 运算 符 , 用 于 比较 两 个 相同 维 数 的 矩阵 , 它们 分 别 是 
一 (小 于 ), 二 = (小 于 或 等 于 ) ,> (大 于 ) ,> 一 (大 于 或 等 于 ) ,一 = 一 (等 于 ) 和 一 = (不 等 
于 ) ,使 用 它们 可 以 检查 矩阵 中 的 元 素 是 否 满足 某 些 条 件 .在 MATLAB 中 ,用 1 表示 真 ,0 
表示 假 ,这 一 点 与 C 语言 类 似 。 

3。 巡 辑 运算 符 


MATLAB 提供 了 六 种 逻辑 运算 符 ( 详 见 表 1. 6)， 
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运算 符 名 及 使 用 格式 
and(&A,B) 或 Ag&E 


or 二 ,B) 或 和 | 了 


not( 上 ) 或 一 上 


xor( 太 ,BEB) 


any( 凡 》 


al 以 六 》 


表 1.6 运 辑 适 算 符 
基 能 


矩阵 与 ;结果 为 0-1 邱 阵 , 当 和 矩阵 A.B 相对 应 的 元 素 沟 为 非 零 信 时 ,结果 为 1， 
否则 为 0; 要求 矩 阵 A .矩阵 B 具有 相同 的 维 数 ,或 者 其 中 之 一 为 攻 量 


和 矩阵 或 :结果 为 0-1 上 失 阵 , 当 和 矩阵 A、B 相对 应 的 元 素 诅 一 个 为 非 零 值 时 ,结果 为 
1 ,否则 为 0! 要 求 拭 阵 和 A ,矩阵 B 具有 相同 的 维 数 ,或 者 其 中 之 一 为 圳 量 


矩阵 非 :结果 为 0-1 矩阵 , 即 对 矩阵 &A 的 元 索取 反 , 当 的 元 素 为 0 时 ,结果 为 
14 元 素 为 1 时 ,结果 为 0 


扼 阵 异 或 ,结果 为 0-1 矩阵 , 当 矩 阵 A.B 相对 应 的 元 素 取 不 同 值 时 ,结果 为 1， 
和 理 则 为 0 要 求 矩阵 A、 矩 洗 B 具有 相同 的 维 数 ,或 者 其 中 之 一 为 数量 


当 矩 阵 A 中 存在 任意 一 个 非 零 元 素 时 ,结果 为 1 , 否 周 为 0 


当 矩 阵 A 中 所 有 的 元 素 均 为 非 零 值 时 ,结果 为 1, 否则 为 0 


此 外 ,MATLAB 还 提供 了 相当 多 的 与 迎 辑 运算 相关 的 内 建 函数 ,如 find ,finite 等 ， 
由 于 篇 幅 关 系 , 请 读者 自行 参阅 联机 帮助 ， 


4. 特殊 和 运算 特 


除了 上 述 三 类 较为 常见 的 运算 符 外 ,MATLAB 还 提供 了 大 量 的 特殊 运算 符 , 包 括 位 
运算 符 、 集 合 运 算 以 及 特殊 符号 运算 符 , 极 大 地 方便 了 MATLAB 的 使 用 , 表 1.7 列 出 了 
其 中 一 部 分 较为 常用 的 运算 符 。 


运算 符 名 及 使 用 棒 式 


5] 
下 


bitand(A,B) 


bitor( 太 ,B) 


Uniatm( 及 也) 


inteIsectf 和 ,也 ) 


囊 1.7 特殊 运算 符 ( 部 分 ) 
功 能 


一 般 用 于 生成 向 量 , 也 可 用 于 和 皂 阵 行列 或 矩阵 块 的 表示 , 例如 1:5 将 生成 
向 量 fi,2,3,4,5]A(: ,表示 算 阵 六 的 第 ) 列 


用 于 注 硕 
行 连接 符 
由 于 生成 矩阵 


表示 矩阵 A 的 转 置 
对 矩阵 A.B 相对 应 的 元 素 进行 按 位 与 计算 ,要 求 太 和 了 B 为 具有 相同 推 
数 的 正 整数 矩阵 ,或 者 其 中 之 一 为 正 整 歼 


对 称 阵 &A、B 相对 应 的 元 素 进行 按 位 或 计算 ,要 求 A 和 B 为 具有 相同 维 
数 的 正 整 数 和 矩阵 ,或 者 其 中 之 一 为 正 整数 

并 集 ( 详 细 使 用 见 联机 帮助 ) 

交集 (详细 使 用 见 联机 帮助 ) 
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1.3.2 MATLAB 的 基本 语句 结构 


MATLAE 语言 本 质 上 是 一 种 解释 性 的 语言 ,用 户 不 但 可 以 通过 它 直 接 在 MATLAB 
命令 提示 符 下 键入 语句 执行 ,而 且 可 以 使 用 它 编写 这 样 或 那样 的 应 用 程序 ,然后 回 到 
MATLAB 环境 中 ,由 MATLAB 解释 器 进行 翻译 执行 ,最 后 返回 处 理 结果 ,非常 类 似 于 
古老 的 DOS 操作 环境 ,不 过 在 MATLAB 命令 提示 符 下 ,所 有 符合 MATLAB 语言 语法 
的 语句 ,MATLAB 均 认为 它们 是 合法 的 命令 ,不 受命 令 个 数 的 约 训 。 

在 MATLAB 语言 中 ,最 基本 的 语句 结构 为 赋值 语句 , 除 控制 语句 外 的 所 有 语句 都 是 
贱 值 语句 ,只 不 过 是 存在 形式 上 的 复杂 和 简单 差异 .基本 的 赋值 语句 结构 可 以 表示 为 如 下 
形式 ， 

变量 名 列表 = 表达 式 
其 中 等 号 右边 为 表达 式 的 定义 , 它 可 以 是 MATLAB 所 允许 的 各 种 运算 或 函数 调用 ,等 号 
左边 的 变量 名 列表 为 等 号 右边 MATLAB 表达 式 的 计算 返回 值 。 这 里 有 三 点 需要 说 明 ， 

第 一 ,与 C 语 言 类 似 ,MATLAB 语言 敏感 字母 的 大 小 写 (case-sensitive ) , 例如 变量 
名 dfg 和 变量 名 DFG 表示 的 就 是 不 同 的 变量 ,在 编程 时 必须 非常 注意 。 此 外 ,在 MAT- 
LAB 中 ,基本 上 所 有 的 内 建 函 数 均 以 小 写 形式 进行 声明 ,如 果 在 MATLAB 命令 提示 符 
下 键 人 如 下 命令 ， 


?aa 一 COSCL) 
MATLAB 将 返回 如 下 错误 提示 : 
?? Undefined variable or capitalized interBal function COS Caps Lock may be on， 


所 以 在 调用 MATILAB 内 建 函 数 必须 同样 小 心 ; 

第 二 ,等 号 右边 的 表达 式 可 以 用 多 种 符号 来 表示 结束 ,分 别 代表 了 不 同 的 含义 。 当 用 
分 号 结束 时 , 则 左边 的 变量 的 结果 不 会 回 显 在 屏幕 上 ; 当 用 去 导 或 不 用 任何 符号 结束 时 ， 
回 车 后 左边 变量 的 计算 结果 将 显示 在 屏 莫 上 ; 当 用 行 连接 符 “. .. ”结束 表达 式 并 回 车 ， 
MATLAB 将 不 作 任何 反应 ,继续 等 竺 用户 输 人 表达 式 ,因为 行 连接 符 “..， ?表示 输入 未 
完成 ,换行 后 继续 输入; 

第 三 ,与 C 语言 不 同 ,但 与 FORTRAN 语言 相同 ,在 函数 调用 时 MATLAB 允许 一 次 
返回 多 个 结果 ,这 时 赋值 语句 左边 的 变量 必须 用 中 括号 [ ] 括 起 来 ,例如 命令 

[BW, THRESH] = edge(im，'Soble' ) 
调用 了 图 像 工具 箱 中 的 边缘 计算 函数 edge() ,其 中 im 为 图 像 数 据 ,'Soble' 表示 使 用 
Soble 算 子 进行 边缘 计算 ,返回 的 边缘 图 像 存放 在 变量 BW 中 ,而 THRESH 为 计算 边缘 
时 使 用 的 边缘 域 值 。 


1.3.3 MATLAB 控制 语句 


与 其 他 计算 机 高 级 编程 语言 类 似 ,MATLAB 提供 了 完备 的 控制 语句 ,例如 条 件 转移 
语句 .循环 语句 等 常用 的 控制 语句 ,从 而 使 MATLAEB 的 程序 设计 变 得 非常 灵活 。 下 面 分 
别 加 以 介绍 。 
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1、while 循环 语句 


while 循环 语句 是 MATLAB 查 供 的 两 种 循环 语句 中 的 一 种 , 它 的 组 成 结构 为 ; 


while《〈 条 件 表达 式 》 
循环 体 语句 组 
and 
其 执行 过 程 为 首先 判断 条 件 表 达 式 的 真 假 , 若 为 假 , 则 跳出 循环 体 , 执行 end 语句 后 的 语 
句 ; 若 为 真 , 则 执行 循环 体 中 的 语句 组 ,执行 完毕 后 ,返回 条 件 表 达 式 ,重复 以 上 过 程 ,直至 
条 件 表达 式 不 再 成 立时 为 止 ,其 结构 框图 见 图 1, 7, 






热 行 循环 体 语句 组 


图 1.? ”wiile 循 环 结构 框图 


如 果 用 户 希 望 计算 1 至 100 的 累加 和 ,在 不 使 用 内 建 函数 的 前 提 下 ,可 以 由 以 下 程序 
段 实现 ， 


Rs 一 0 
while (na< 一 100)， 
9 一 8s 十 nn 一 aa 十 1 


ef 


在 MATLAB 语言 中 , 允许 while 循环 的 嵌 套 。 
2. for 循环 语 多 


for 循环 语句 是 MATLAB 提供 的 两 种 循环 语句 中 的 另 一 种 , 它 的 组 成 结构 为 : 


for 循环 变量 = 表达 式 1 : 表达 式 2， 表 达 式 3 
循环 体 语 句 组 

en 
其 中 表达 式 1 的 计算 结果 为 循环 变量 的 初始 值 ,表达 式 3 的 计算 结果 为 循环 变量 的 终止 
值 ,而 表达 式 2 的 计算 结果 为 循环 变量 的 步 进 值 ,在 缺 省 的 情况 下 ,默认 步 进 值 为 1。for 
循环 语句 一 般 用 于 循环 次 数 已 知 的 情况 下 。 

整个 循环 的 执行 过 程 为 ,首先 初始 化 ,计算 表达 式 1 和 表达 式 3 的 值 , 并 将 表达 式 1 

的 信 冉 给 循环 变量 ;然后 进入 循环 体 , 首先 判 断 循 环 变量 的 取 值 是 否 位 于 表达 式 1 和 表达 
式 3 所 限定 的 范围 之 内 , 若 不 在 则 跳出 循环 体 , 若 在 则 执行 循环 体 语句 组 ， 之 后 将 循环 变 


第 1 章 MATLAB 系统 及 程序 设计 简介 * 19 。 


基 增 加 由 表达 式 2 确定 的 步 进 值 ,然后 重复 执行 循环 体内 容 ,直至 循环 变量 不 再 满足 条 件 
为 止 ,结构 框图 见 图 1. 8。 






计算 表达 式 I 的 值 ” 桶 环 变量 
计算 表达 式 3 的 值 


拜 环 变量 是 否 位 于 
琢 达 式 1，3 之 间 
循环 变量 增加 由 表达 式 2 确定 的 步 进 值 


图 1.8 fcer 循 环 语句 结构 框图 
用 for 循环 实现 1 至 100 的 累加 和 ,可 以 表述 为 如 下 形式 ， 
s 一 人 
fora 一 1:1:100 
3 一 8 十 ni 
end 


赐 样 在 MATLAB 语言 中 , 允许 for 循环 的 典 套 。 
3. 过 条 件 转移 语句 


这 条 件 转移 语句 是 MATLAB 语言 提供 两 种 条 件 转移 语句 中 的 一 种 , 它 有 三 种 常用 
的 组 成 结构 ， 
















二 一 一 一 


循环 体 语 句 组 





结束 怎 环 


庄 条 件 表 达 式 1 计 条 件 表达 式 1 计 条 件 表达 式 1 
语句 组 1 语句 组 1 语句 组 1 
end el]Se elseif 条 件 表 达 式 2 


语句 组 ? 语句 纽 2 
et ws 


en 


它们 一 般 的 执行 过 程 为 ,首先 判断 条 件 表 达 式 1 的 成 立 是 否 成 立 , 若 成 立 则 执行 语句 
组 1, 若 不 成 立 , 则 分 为 三 种 情况 ,第 一 种 情况 跳出 并 语句 ,第 二 种 情况 执行 else 后 的 语句 
组 2, 第 三 种 情况 下 则 先 判断 条 件 表达 式 2 的 成 立 与 否 ,然后 按 上 面 的 流程 继续 向 下 执 
行 ,直至 跳出 让 条 件 转移 语句 。 它 们 的 结构 框图 分 别 见 图 1, 9 的 (a)、(b) 和 (c)。 
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图 1,9 半 条 件 转移 语 名 结构 框 图 


2 1 0 
1 2 1 
并 
0 1 2 
成 : 
让 工 一 = 一 可 
下 (> 一 2 
elseif abs(I-J) 一 一 
有 (IJ 一 一 1 
else 
上 (I]) 一 0 
end 


4。switch.…case 多 重 条 件 转移 语句 


swireh…ecase 多重 条 件 转移 语句 是 MATLAB 语言 提供 两 种 条 件 转移 语句 中 的 另 一 
种 , 它 的 基本 组 成 结构 为 : 


switeh 选择 表达 式 
case 常量 1， 
语句 组 1 
case { 常 量 2, 常 量 3) 
语句 组 ? 


Otherwise， 
语句 组 n 十 1 


end 
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其 执行 过 程 为 首先 计算 选择 表达 式 的 值 , 并 与 各 case 语句 中 的 常量 比较 ,然后 选择 第 一 
个 与 之 匹配 的 case 语句 组 执行 ,执行 完毕 后 立即 退出 switeh 语句 组 ; 若 没有 与 选择 表达 
式 值 相 匹 配 的 case 语句 , 则 执行 otherwise 后 的 语句 组 n 十 1, 并 退出 switch 语句 组 。 这 里 
必须 注意 一 点 ,在 一 个 ease 语句 后 ,可 以 拥有 多 个 常量 表达 式 。 

它 与 C 语言 的 switch 语句 相 比 存在 明显 的 不 同 ,在 C 语言 中 , 当 执 行 完 某 个 case 语 
旬 组 后 ,如 果 不 使 用 跳出 谨 句 ,将 继续 执行 后 面 的 case 谨 色 ,直至 switch 语句 结束 ,而 在 
MATLAB 语言 中 ,不 存在 这 个 问题 , 当 程 序 执行 完 一 个 case 语句 组 后 即 呈 出 switch 语 
名 ,执行 后 续 的 语句 。 下 面 是 一 个 典型 的 switch 语句 例子 。 


swritch lower(METHOD) 
case flinear' ，'bilinear' } ， 
出 sp Method is lineat' ) 
ease 'cubic” ， 
dispK'Method is cubic') 
case /nearest' ， 
disp('Method jg nearest' ) 
ofthetwise， 
disp(CUnknown method.) 
end 


5。break 语 勾 


break 语句 是 MATLAB 语言 提供 的 一 种 非常 有 用 的 控制 语句 , 主要 用 于 终止 当前 
正在 执行 的 for 循环 语句 和 while 循环 语句 ,以 跳出 循环 体 ,结束 不 必要 的 计算 。 当 break 
语句 用 于 循环 获 套 中 时 , 它 仅仅 中 断 最 内 层 包 含 该 语句 的 循环 体 的 执行 ,而 不 影响 高 层 特 
环 体 的 执行 。 例 如 以 下 形式 的 程序 段 中 ， 


while 条 件 表 达 式 1 
forn 一 aib:ec 
语句 组 2 
这 条 件 表达 式 2 
break! 
end 
end 
庄 句 组 2 
end 
当 条 件 表达 式 2 为 真 时 ,执行 break 语句 ,程序 将 跳出 内 部 的 for 循环 体 ,终止 其 执行 ,而 
外 部 的 while 循环 将 不 受 影响 继续 执行 ,直到 条 件 表达 式 1 得 不 到 满足 时 , 才 终 止 while 


循环 的 执行 。 
1.3.4 MATLAB M 文件 的 编写 


由 MATLAB 语言 编写 而 成 的 文件 ,习惯 上 称 之 为 M 文件 ， 其 后 级 均 为 mm。 从 总 体 上 
来 说 ,可 以 将 M 文件 分 为 两 类 , 即 函 数 M 文件 (Function M-file) 和 法 本 M 文件 (Script 
M-fae)。 二 者 之 间 存 在 车 较 大 的 差别 ， 
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首先 , 申 数 M 文件 可 以 从 用 户 处 接受 一 定数 量 的 输入 参数 ,并 返回 若干 输出 参数 ,而 
脚本 M 文件 一 般 不 接受 任何 输 和 人 参数 ,也 不 返回 任何 的 输出 参数 ; 

其 次 ,在 默认 情况 下 ,函数 M 文件 中 所 定义 和 包含 的 变量 均 为 局 部 变量 ,仅仅 在 函数 
执行 期 间 有 效 , 当 退 出 该 函数 后 ,所 有 这 些 变量 全 部 失效 ,在 MATLASB 工作 环境 中 , 使 用 
whos 命令 看 不 到 它们 的 存在 :而 脚本 M 文件 却 不 同 , 它 一 般 是 针对 MATLAEB 工作 空间 
中 的 数据 进行 操作 , 当 脚 本 M 文件 执行 完毕 后 ,工作 空间 中 的 变量 将 仍然 存在 ,除非 在 脚 
本 M 文件 中 显 式 删 除 ; 

第 三 ,函数 M 文件 和 脚本 M 文件 的 用 途 不 尽 相 同 ,一般 脚 本 M 文件 用 来 存放 用 户 
需要 重复 执行 的 一 系列 操作 , 以 避免 重复 地 键 人 大 量 相 同 命令 ,相当 于 DOS 操作 系统 中 
的 批 处 理 命令 ;而 函数 M 文件 则 一 般 用 来 完成 某 种 特定 的 功能 ,是 用 户 应 用 程序 的 组 成 
部 分 和 MATLAB 功能 的 扩展 ,与 C 语言 中 的 子 函数 和 FORTRAN 语言 中 的 子 例 行 程序 
类 似 , 不 同 的 是 函数 M 文件 可 以 独立 执行 ; 

第 四 , 函数 M 文件 和 脚本 M 文件 的 编写 格式 不 尽 相同 ,下 面 将 分 别 予 以 介绍 。 


1. 函 孝 M 文件 的 编写 
程序 段 


function y 一 average(K) 
由 上 VERAGE Mean of vector eletments。 
听 六 VERAGE(X)，where Xis a vectory is the mean of vector elements， 
上 Noen-vector input results in an erTrOt、 
fm, n] 一 size(x); 
让 (一 (Cnm 一 一 1 1 人 na 一 =1))1(m 一 一 1 了 na 一 一 1)) 
erTrorC!Input Imtlst be a vector' ) 
end 
y 一 samtx)y/lengthkx)5 5 Actual computation 
是 一 个 非常 简单 但 又 非常 完备 的 函数 M 文件 的 定义 过 程 ,这 里 简单 是 指 其 仅仅 包含 五 行 
实际 用 于 判断 和 计算 的 语句 ,而 完备 是 指 其 具备 了 所 有 MATLAEB 函数 所 共同 具有 的 组 
成 部 分 。 下 面 将 以 它 为 例 对 函数 M 文件 的 编写 进行 讲解 。 

该 函数 段 定 义 了 一 个 名 为 average .具有 一 个 输入 参数 和 一 个 输出 参数 的 函数 ,其 功 
能 为 计算 一 个 向 量 元 素 的 平均 值 。 它 可 以 分 为 五 个 部 分 : 

第 一 部 分 为 程序 段 的 第 一 行 , 称 为 函数 定义 行 (function definition line), 它 定义 了 画 
数 的 名 称 average ,输入 形式 参数 x 和 输出 形式 参数 y ,其 中 function 为 关键 字 # 当 函 数 存 
在 多 个 返回 参数 时 ,需要 将 这 些 参数 用 中 括号 [ ] 包 括 , 并 且 使 用 喜 号 分 隔 ,同时 琴 数 可 以 
接受 多 个 输入 人 参数 ,例如 


function [ AA， 丰 2， 有 有-] 一 func _name〔Bi，Bz，…，Ba) 


此 外 ,在 MATLAB 中 还 定义 了 两 个 非常 有 用 的 关键 字 nargin 和 nargout, 它们 分 别 
用 来 纪录 郴 数 调用 语句 中 输入 和 输出 实际 参数 的 个 数 ,通过 这 种 方法 ,MATLAB 就 允许 
贡 数 调用 语句 中 的 实际 参数 个 数 可 以 与 函数 M 文件 中 的 形式 参数 个 数 不 同 ,并 且 可 以 在 
函数 M 文件 中 分 别针 对 不 同 的 参数 个 数 进行 不 同 的 处 理 , 从 而 极 大 地 增加 了 MATLAB 
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语言 程序 设计 的 灵活 性 。 

第 二 部 分 为 程序 段 的 第 二 行 , 称 为 Help 1 line, 简称 为 H1 ,意思 是 指 该 行为 帮助 信息 
的 第 一 行 , 它 的 主要 作用 是 当 用 户 检索 或 者 使 用 help 命令 查询 整个 目录 而 非 查询 单个 命 
令 时 ,MATLAB 系统 将 显示 该 行内 容 , 用 于 函数 功能 的 说 明 。 例 如 使 用 help 命令 查询 函 
数 average 所 在 的 目录 ,假设 该 目录 下 仅 有 画 数 average 和 另 一 个 名 为 allnodes 的 小 波 工 
具 箱 函数 , 则 MATLAB 将 显示 如 下 结果 ， 

? help \ 目 录 和 名 
ALLNODES Tree noxles， 
上 VERAGE Mean of vector elements， 


第 三 部 分 为 程序 段 的 第 三 .第 四 行 , 称 为 帮助 信息 (Help Text), 当 用 户 使 用 help 命 
令 直 接 查 询 该 函数 时 ,MATLAB 系统 将 连 则 H1 行将 帮助 信息 完整 地 显示 在 屏 划 上 。 例 
如 ， 
?help avetage 
上 VERAGE Mean of vector elements， 
站 WERAGE(X)》，where 和 ie a Vectory js the mean of vector eletmente- 
Non-vecetor input rfesults in an eTTOT-。 


第 四 部 分 为 程序 段 的 第 五 至 第 九 行 , 称 为 函 教 体 (function body), 这 部 分 内 容 是 郴 数 
的 主体 ,包含 了 函数 的 全 部 计算 代码 ,由 它 来 完成 所 设计 的 功能 。 

第 五 部 分 为 注释 (comment) , 它 一 般 由 % 开 始 ,位 于 某 行 代码 的 前 一 行 或 紧 随 其 后 ， 
主要 用 于 说 明 该 行 代码 的 功能 ,程序 段 中 见 第 九 行 的 后 部 。 

以 上 五 部 分 中 ,第 一 部 分 和 第 四 部 分 必 不 可 少 ,其 余 三 个 部 分 可 以 省 略 ,但 作者 强烈 
建议 按 格式 完整 书写 , 有 利于 增强 程序 的 可 读 性 和 今后 的 改进 。 


2 和 肝 本 M 函数 的 编写 


脚本 是 MATLAB M 文件 中 最 简单 的 一 种 类 型 , 它 的 编写 也 极为 简单 ,基本 上 没有 
任何 格式 上 的 约束 ,整个 文件 可 以 分 为 两 个 部 分 , 即 执行 语句 部 分 和 注释 部 分 ,所 有 注释 
内 容 均 以 符号 %% 为 开头 ,不 用 定义 输入 参数 和 输出 参数 ,不 用 定义 函数 名 ,其 存盘 时 所 使 
用 的 文件 名 即将 来 文件 调用 时 所 使 用 的 命令 名 ,但 是 作者 强烈 建议 书写 足够 的 注释 ,以 便 
于 文件 的 阅读 。 

程序 段 


外 n M-fle seript to produce "flower petaly plots 
theta 一 -pi:0. 01:piy 
rhofl,:)》 一 2xsin(5xtheta).A2; 
rho(2，,:》 一 cosK10#theta),A3# 
rho(3,:) 一 sin(theta).A2# 
rho(4,:) 一 5#xcos(3.5# tbeta) 3 
for i 一 14:4 
Polar(thetay， rhofiy:)) 
Pause 


enQd 
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为 一 个 比较 简单 但 非常 有 趣 的 脚本 M 文件 ,用 于 实现 一 定 的 绘图 功能 ,有 兴趣 的 读者 可 
以 录入 并 观看 运行 结果 。 


1.4 基本 的 MATLAB 矩阵 操作 


在 MATLAB 系统 中 ,阵列 是 MATLAB 惟一 能 够 进行 处 理 的 对 象 , 而 矩阵 是 阵列 的 
一 种 具体 形式 .在 非 正式 的 情况 下 ,和气 阵 和 阵列 的 概念 可 以 互 换 ,但 是 准确 地 说 ,下 阵 是 一 
种 二 维 的 实数 或 复数 阵列 。 最 初 开发 和 设计 MATLAB 的 动机 是 为 了 简化 复杂 的 矩阵 运 
算 , 正 是 由 于 这 个 原因 ,虽然 MATLAB 历经 了 二 十 年 的 发 展 ,功能 得 到 不 断 的 完善 和 发 
展 , 应 用 的 领域 也 得 到 了 极 大 的 拓 广 ,版 本 也 由 最 初 的 V1. 0 升 至 现在 的 V5. 3, 但 是 一 直 
以 来 ,MATLAB 都 以 矩阵 为 其 最 基本 的 处 理 对 象 ,为 矩阵 的 操作 提供 了 大 量 功能 丰富 、 
涵盖 面 广 的 内 建 函数 ,使 得 对 矩阵 的 操作 得 到 全 面 的 简化 ,本 节 将 对 MATLAB 中 一 些 基 
本 的 抢 阵 操作 如 矩阵 的 构造 .矩阵 的 数学 计算 进行 简单 的 介绍 。 


1.4.1 矩阵 的 构造 


矩阵 的 构造 是 完成 矩阵 操作 的 基本 前 提 , 在 MATLAB 中 ,系统 为 用 户 提供 了 者 干 种 
和 矩阵 构造 方式 ,可 以 用 于 构造 各 种 不 同类 型 的 矩阵 ,本 小 节 将 对 其 中 一 些 较为 常用 的 构造 
方式 进行 介绍 。 


1. 矩阵 构造 算 符 [ ] 


使 用 矩阵 构造 算 符 [ ] 来 进行 矩阵 的 构造 极为 直观 ,尤其 是 在 矩阵 维 数 较 低 的 情况 
下 ,显得 非常 方便 ,只 需 将 所 需要 定义 的 矩阵 的 所 有 元 素 按 行 的 顺序 排列 后 ,用 算 符 [ ] 括 
起 来 ,并 且 同 一 行内 的 元 素 用 空格 或 逗号 分 隔 ,不 同 的 垂 阵 行 用 分 号 进行 分 申 即 可 。 例 如 


1 2 3 
用 户 希望 定义 一 个 矩阵 A 一 。 5 | , 按 如 下 形式 书写 即 可 :， 

7 8 9 

A = [1,，2, 3; 4,，5,6;7,8,9] 

这 里 必须 非常 注意 一 点 ,矩阵 的 定义 方式 与 存储 方式 截然 不 同 ,前 者 为 按 行 定义 ,而 后 者 
按 列 存储 。 此 外 , 用户 还 可 以 利用 算 符 [ ] 构 造 一 种 极为 特别 的 矩阵 一 一 空 矩阵 , 它 不 包含 
任何 元 素 , 维 数 为 0X0, 其 主要 用 途 是 用 来 传播 空 矩阵 。 利用 这 个 特性 ,可 以 对 矩阵 的 部 
分 行 或 列 进行 删除 ,例如 命令 A(,， 1 3) = [ ] 的 功能 就 是 将 矩阵 人 A 的 第 一 和 第 二 列 删 
除 。 : 


2。zeros 、.ones 和 eye 


函数 zeros 用 来 构造 任意 维 数 的 全 零 矩 阵 , 其 使 用 格式 为 
下 一 zerosgtm ,) 或 有 一 zerostna) 
其 中 前 一 种 格式 用 于 构造 mXn 维 的 全 零 矩阵 ,而 后 一 种 格式 用 于 构造 nXn 维 的 全 零 矩 
阵 。 
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函数 ones 的 使 用 方式 与 zeros 相同 ,只 不 过 构造 的 是 全 和 矩阵， 
函 教 eye 用 于 构造 对 角 线 元 索 全 一 而 其 余 元 素 全 零 的 单位 矩阵 ,使 用 格式 同 zeros。 
3， 特 殊 答 阵 构 造 函 教 


MATLAB 中 提供 了 大 量 的 特殊 矩阵 构造 画 数 , 极 大 地 方便 了 和 阵 的 构造 , 表 1.8 为 
部 分 函数 的 列表 。 


表 1. 8 特殊 矩阵 构造 函数 (部 分 > 


函 数 名 功 能 
rand 用 于 构造 元 素 为 一 致 分 布 的 随机 矩阵 
randn 用 于 构造 元 素 为 标准 正 态 分 布 的 随机 矩阵 
hilb 用 于 构造 Hilbert 矩阵 
invhilb 用 于 构造 送 Hilbert 矩阵 
Pascal 用 于 构造 杨辉 三 角形 柴 阵 
vander 用 于 构造 范 得 蒙 眠 阵 
company 用 于 构造 多 项 式 的 伴 隐 矩 阵 
hadqamrd 用 于 构造 哈达 马 矩 阵 


1. 4.2 ”和 阵 的 数学 计算 


MATLAB 系统 不 但 提供 了 最 基本 的 和 抵 阵 的 加 、 减 . 乘 、 除 、. 乘 方 . 转 冒 .逻辑 以 及 关系 
等 运算 ( 详 见 1. 3. 1 节 ) ,还 提供 了 大 量 的 与 线性 代数 紧密 相关 的 数学 计算 功能 ,包括 矩阵 
特征 值 和 特征 向 量 的 计算 .第 阵 数字 特征 值 的 计算 ,矩阵 的 分 解 等 。 


1. 特征 值 和 特 托 向 量 


在 信号 处 理 和 模式 识别 中 , 方 阵 的 特征 值 和 特征 向 量 是 一 种 非常 有 用 的 矩阵 信息 ,对 
于 数据 的 压缩 和 特征 模式 的 选择 具有 重要 意义 ,MATLAEB 的 内 建 画 数 eig 为 这 方面 的 计 
算 提 供 了 完善 的 功能 ,其 使 用 格式 为 : 


lambda 一 eig(A) 或 [V, D] = sig(A) 
其 中 A 为 一 个 待 计算 的 方 阵 ,lambda 为 特征 值 向 量 ,V 为 特征 向 量 矩 阵 , 它 的 每 一 列 为 
一 个 特征 向 量 ,D 为 一 个 对 角 线 矩阵 ,对 角 线 上 的 元 兹 为 与 V 中 特征 向 量 相 对 应 的 特征 


1 2 3 
值 。 例 如 存在 方 阵 A== 5 | ,在 MATLAB 命令 提示 符 下 键 人 如 下 命令 ， 
7 8 9 
? [V,D] = eig(A)》 
回 车 后 MATLAB 将 显示 下 面 的 结果 ， 
V 一 
1. 2320 D, 7 了 7858 0,. 4082 
办, 5253 由 ,0868 一 0.8165 
0.8187 一 0.6123 0. 4082 
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已 王 
16.。1168 { 0 
0 一 1.1168 0 
0 0 一 0. 0000 


2. 短 阵 的 数字 特征 


和 阵 的 数字 特征 主要 是 指 抢 阵 的 范 数 和 和 抵 阵 的 秩 。 在 MATLAB 中 和 拖 阵 范 数 的 计算 
由 函数 norm 来 完成 ,其 格式 为 


P 一 norm(A， mn) 


其 中 人 A 为 任意 一 个 矩阵 ,n 为 范 数 的 阶 数 , 取 值 为 1,2 或 co ,在 省 咯 情 况 下 ,默认 值 为 2, 


9 11 3 
为 计算 所 得 的 范 数值 。 对 于 和 矩阵 B 一 7 1 ,分 别 计 算 三 种 范 数 可 得 
0 12 
[norm(B,1) ,norm( 台 ,2),normCB，inf] 
0000 19. 8692 23. 0000 

其 中 inf 为 MATLAB 的 关键 字 , 代 表 ce 

矩阵 的 秩 为 矩阵 线性 无 关 的 行 或 列 的 最 大 数目 ,可 以 用 函数 rank 进行 计算 ,用 法 非 
常 简单 ,对 于 上 面 的 矩阵 B, 使 用 语句 rank(B) 即 可 求 得 秩 为 3。 使 用 函数 orth 可 以 求 得 
相应 的 正 交 基 。 


3， 姓 阵 的 分 解 


MATLAB 提供 了 三 种 常用 的 矩阵 分 解 方法 ,分 别 是 三 角 分 解 正 交 分 解 和 奇异 值 分 
解 .三 角 分 解 是 最 基本 的 一 种 矩阵 分 解 方式 , 它 将 一 个 矩阵 分 解 为 一 个 上 三 角 气 阵 和 一 个 
下 三 角 和 矩阵 的 乘积 ,因此 也 称 为 LU 分 解 .MATLAB 中 ,用 于 实现 三 角 分 解 的 函 赦 为 lu， 
其 使 用 格式 为 


7 10 1 
其 中 A 为 任意 矩阵 ,U 和 L 分 别 为 上 .下 三 角 和 矩阵 ,对 于 和 矩阵 C 一 | 8 | ,分 解 后 可 
4 6 
得 到 


9.0000 4. 0000 6. 0000 
0 9. 5556 0. 3333 
0 0 一 2.2326 
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其 中 L 可 以 重新 排列 为 一 个 对 角 线 元 全 为 1 的 下 三 角 阵 。 
正 交 分 解 可 以 将 一 个 方 阵 或 长 方 阵 分 解 为 一 个 正 交 和 抑 阵 和 一 个 上 三 角 和 矩阵 的 乘积 ， 
又 称 为 QR 分 解 。MATLAB 中 ,用 于 实现 正 交 分 解 的 函数 为 qr, 其 使 用 格式 为 


[Q， R] 四国 Qt 入 ) 


其 中 A 为 一 个 方 阵 或 长 方 阵 ,Q 为 正 交 和 矩阵 ,R 为 上 三 角 抢 阵 。 对 于 矩阵 C, 分 解 后 结果 
为 


及 一 
一 0. 1048 
一 0 3145 
一 0. 9435 

R 一 
一 9.5394 一 7?. 3380 
0 一 11.2318 
0 0 


一 0. 8218 
一 0.5068 
人 2602 


一 0.5600 
0.8027 
一 0, 2053 


一 5.7656 
0.7397 
一 1.7920 


奇异 值 分 解 又 称 为 SVD 分 解 ,MATLAB 中 ,用 于 实现 该 分 解 的 函数 为 svd, 其 使 用 
格式 为 


[S， V， 了 Dj 一 qvdtA) 


其 中 A 为 任意 抢 阵 ,下 阵 S 和 和 矩阵 D 为 正 交 和 矩阵 ,矩阵 V 为 对 角 矩 阵 。 对 矩阵 C 进 
行 分 解 结果 为 


台 一 
0. 5840 
0. 5250 
0. 6191 

YY 一 
15, 3269 
0 8. 4186 0 
0 0 1.4880 

卫 王 


0. 5044 
0,.8166 
0, 2805 


一 0. 6564 
0.5737 


0. 5610 
一 0. 0630 


本 章 分 为 四 节 对 MATLAB 作 了 较为 全 面 的 介绍 ,以 使 不 太 熟 悉 MATLAB 的 读者 
对 MATLAB 系统 有 一 个 整体 认识 ,为 下 一 步 内 容 的 学 习 做 好 铺垫 , 由 于 此 部 分 内 容 并 非 
本 书 的 主要 内 容 , 所 以 内 容 较 浅 ,并 且 有 相当 多 的 MATLAB 精彩 内 容 没 有 介绍 ,如 
Simaulink .图形 系统 等 等 ,有 兴趣 的 读者 可 以 自行 参阅 相关 书籍 进一步 学 习 。 从 第 二 章 起 ， 
将 开始 全 面 讲解 MATLAB 应 用 程序 接口 的 使 用 及 编程 。 
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由 第 1 章 MATLAB 系统 的 简单 介绍 可 以 知道 ,MATLAB 系统 是 一 个 功能 完善 的 、 
自 包容 的 程序 设计 和 数据 处 理 集成 环境 ,使 用 它 所 提供 的 功能 .内 建 函数 以 及 大 量 的 工具 
箱 , 几 乎 可 以 完成 所 有 的 任务 ,并 且 无 需 借助 外 界 的 帮助 ,是 一 个 完全 独立 的 系统 .但 是 如 
果 仅 仅 如 此 的 话 ,MATLAB 系统 仍 将 是 一 个 不 友好 的 系统 ,这 是 因为 ， 

首先 ,在 MATLAB 环境 中 ,用 户 将 无 法 调用 外 部 大 量 已 经 用 C 语言 或 FORTRAN 
语言 编写 完成 的 算法 ,而 必须 使 用 MATLAB 语言 进行 重新 编写 ,这 对 于 规模 较 大 的 程序 
来 说 ,无 用 需 要 花费 大 量 的 时 间 和 精力 ; 

其 次 ,与 其 他 高 级 计算 机 编程 语言 ,如 C 语言 和 FORTRAN 语言 相 比较 ,MATLAB 
语言 的 执行 效率 较为 低下 ,在 进行 大 规模 的 数值 计算 和 分 析 时 ,MATLAB 显得 有 些 力 不 
从 心 , 有 必要 借助 其 他 高 级 语言 来 进行 加 速 ; 

第 三 ,MATLAB 系统 拥有 自己 的 数据 文件 格式 ,而 且 对 于 不 同 的 硬件 平台 和 操作 系 
统 , 文 件 格式 咯 有 差异 , 这 样 无 疑 增 大 了 MATLAB 系统 与 其 他 环境 进行 数据 交换 的 难 
度 ; 

第 四 ,在 其 他 的 应 用 程序 中 ,无 法 调用 MATLAB 系统 提供 的 丰富 的 函数 ,从 而 造成 
资源 的 极 大 浪费 。 

正 是 由 于 这 些 原 因 ,MATLABE 系统 提供 了 一 个 非常 重要 的 组 件 -一 -MATLAB 应 用 
程序 接口 (MATLAB Application Program Interface) 来 解决 这 些 问 题 。 它 是 一 个 功能 完 
善 的 接口 函数 库 , 通 过 它 可 以 完成 以 下 功能 ， 

。 在 MATLAB 环境 中 调用 C 语言 或 FORTRAN 语言 编写 的 程序 ,以 提高 数据 处 
理 的 效率 ; 

。， 向 MATLAB 环境 传送 数据 或 从 MATLAB 环境 接收 数据 , 即 实 更 MATLAB 系 
统 同 外 部 环境 的 数据 交换 ; 

。 在 MATLAB 和 其 他 应 用 程序 间 建 立 客 户 机 /服务 器 关系 ,将 MATLAB 作为 一 
个 计算 引擎 , 在 其 他 应 用 程序 中 调用 ,从 而 降低 程序 设计 的 工作 其 。 

MATLAEB 应 用 程序 接口 主要 包括 三 部 分 内 容 , 分 别 为 MEX 文件 一 一 外 部 程序 调用 
接口 ,MAT 文件 应 用 程序 -一 -数据 输入 输出 接口 和 MATLAB 计算 引擎 函数 库 。 本 章 中 
将 对 它们 进行 总 体 上 的 介绍 。 


2.1 MATLAB MEX 文件 介绍 


MATLAB MEX 文件 是 MATLAB 系统 的 外 部 程序 调用 接口 。 通 过 它 , 用 户 可 以 完 
成 以 下 功能 ， 

第 一 ,可 以 在 MATLAB 系统 中 像 调 用 MATLAB 的 内 建 冰 数 一 样 调用 已 经 存在 的 
用 &C 语言 和 FORTRAN 语言 编写 完成 的 算法 ,而 无 须 将 这 些 程序 重新 编写 为 MATLAB 
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的 M 文件 ,从 而 使 资源 得 到 充分 利用 ; 

第 二 , 当 使 用 MATLAEB 进行 大 规模 的 数据 处 理 时 ,MATLAB 往往 由 于 执行 效率 的 
问题 而 显得 力不从心 ,这 时 可 以 使 用 其 他 高 级 编程 语言 进行 算法 的 设计 ,然后 在 MAT- 
LAB 中 调用 ,从 而 大 大 地 提高 数据 处 理 的 效率 ; 

第 三 ,通过 MEX 文件 ,用 户 可 以 直接 对 醒 件 进行 编程 ,进一步 拓展 了 MATLAB 的 
应 用 领域 。 

可 见 ,MEX 文件 一 MATLAB 系统 外 部 程序 调用 接口 的 功能 是 相当 强大 的 ,通过 
它 不 但 可 以 大 量 地 缩短 编程 时 间 , 并 且 使 MATLAB 的 功能 进一步 增强 。 本 节 中 ,将 对 
MEX 文件 的 一 些 基 础 知识 进行 介绍 。 


2.1.1 MEX 文件 概念 


MEX 文件 是 一 种 按 一 定格 式 , 使 用 C 语言 或 FOTRAN 语言 编写 的 ,由 MATLAB 
解释 器 自动 调用 并 执行 的 动态 链接 函数 ,在 Micresoft 允 indows 操作 系统 中 ,这 种 文件 类 
型 的 后 角 名 为 dll(dynamic link library)。 而 在 其 他 的 平台 上 , 则 有 较 大 的 变化 ,例如 在 
Apple 公司 的 Macintosh 上 ,后 缀 名 为 mex, 在 其 他 类 型 的 工作 站 上 ,mex 文件 的 后 邹 名 
更 是 大 不 相同 ,这 里 不 再 歼 述 。 以 后 在 不 加 说 明 的 情况 下 ,本 书 所 使 用 的 平台 均 为 Mi- 
ctosoft Windows 操作 系统 。 

MEX 文件 的 使 用 极为 方便 ,只 需 在 MATLAB 命令 提示 符 下 键 人 MEX 文件 名 即 
可 ,这 与 MATLAB 的 内 建 函 数 的 调用 方式 完全 相同 。 当 用 户 执行 一 个 MEX 文件 时 ， 
MATLAB 系统 将 首先 搜寻 MATLAB 系统 的 所 有 可 搜寻 路 径 ( 通 过 路 径 浏览 器 设置 )， 
然后 载 人 并 执行 第 一 个 与 用 户 键 人 的 文件 名 相 匹配 的 可 执行 文件 .由 于 在 MATLASBS 中 ， 
存在 两 种 类 型 的 可 执行 文件 , 即 MEX 文件 和 M 文件 ,如 果 一 个 文件 名 同时 存在 两 种 类 
型 的 可 执行 文件 该 如 何 呢 ? MATLAB 系统 规定 ,MEX 文件 的 执行 优先 级 高 于 M 文件 ， 
这 样 MEX 文件 将 优先 执行 。 

此 外 ,由 于 MEX 文件 没有 提供 应 有 的 帮助 信息 ,一 般 情 况 下 ,每 当 构造 一 个 MEX 文 
件 ,就 应 该 编写 一 个 MATLAB 的 M 文件 ,作为 相应 的 帮助 文件 ,并 且 存 放 在 同一 个 目录 
下 。 在 该 文件 中 ,不 包含 任何 的 可 执行 语句 ,只 是 包含 一 些 帮助 信息 , 用 来 对 同名 的 MEX 
文件 的 功能 及 输入 输出 参数 进行 说 明 , 这样, 用 户 就 可 以 在 MATLAE 提示 符 下 ,通过 使 
用 help 命令 获取 帮助 了 。 因 为 在 MATLASB 解释 器 中 ,help 命令 仅仅 对 与 命令 中 同名 的 
M 文件 进行 查找 ,而 忽略 对 MEX 文件 的 查找 。 


2.1.2 mx- 函数 和 mex- 函 数 的 区 别 


在 MATLAB 外 部 程序 接口 函数 库 中 ,存在 两 种 类 型 的 库 函 数 ,分 别 以 mx 和 mex 为 
前 级 ,并 且 分 别 完成 不 同 的 功能 ， 


1. tmx- 函 数 产 


mx- 函 数 库 是 MATLAB 外 部 程序 接口 函数 库 中 提供 的 一 系列 函数 ,它们 均 以 mx 为 
前 级 , 主要 功能 是 为 用 户 提供 了 一 种 在 C 语言 和 FORTRAN 语言 中 创建 .访问 ,操作 和 
删除 mxArray 结构 体 对 象 的 方法 ,例如 画 数 mxGetPi, 其 功能 就 是 获取 mxArray 结构 体 
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对 象 虚 数 部 分 的 指针 。 
相关 于 C 语言 中 所 有 mx- 函 数 均 在 目录 


<MATLAB 根 目 录 >>NEXTERNNINCLUDE 


下 的 头 文件 MATRIX. H 中 得 到 声明 。 在 后 面 的 章节 中 ,将 对 所 有 的 这 些 函 数 进行 详细 的 
解释 和 说 明 。 

FORTRAN 语言 的 mx- 函 数 无 论 是 在 定义 还 是 在 使 用 上 与 C 语言 的 mx- 本 数 均 存 
在 较 大 的 不 同 , 在 后 面 的 章节 中 , 将 分 别 讲述 ,请 读者 注意 区 分 。 


2. mex 子 数 麻 


mex- 函 数 库 同样 是 MATLAB 外 部 程序 接口 函数 库 中 提供 的 一 系列 函 教 ,它们 均 以 
mex 为 前 级 , 主要 功能 是 与 MATLAB 环境 进行 交互 ,从 MATLAB 环境 中 获取 必要 的 阵 
列 数 据 ,并 且 返 回 一 定 的 信息 ,包括 文本 提示 ,数据 阵列 等 . 这 里 必须 注意 一 点 ,以 mex 为 
前 缕 的 函数 只 能 用 于 MEX 文件 之 中 。 

相关 于 C 语言 中 所 有 mex- 函 数 均 在 目录 


<MATLAB 根 目录 >>NEXTERNNINCLUDE 


下 的 头 文件 MEX. H 中 得 到 声明 ,在 3.7 节 中 ,将 对 所 有 的 这 些 函 数 进行 详细 的 解释 和 说 
明 ; 而 与 FORTRAN 语言 相关 的 mex- 函 数 , 在 后 面 讲 解 FORTRAN 语言 MEX 文件 时 ， 
书 中 将 同样 予以 详细 的 解释 和 说 明 。 


2.1.3 MATLAB 阵列 在 C 语言 中 的 声明 


在 学 习 MEX 文件 的 编写 前 ,非常 有 必要 对 MATLAB 阵列 (Array) 在 C 语言 中 的 声 
明 进 行 一 定 的 解释 ,因为 在 后 续 的 章节 中 将 大 草地 涉及 到 此 方面 的 内 容 。 

在 C 语言 中 ,MATLAB 阵列 被 声明 为 一 个 名 为 mxArray 的 结构 体 , 该 结构 体 的 定 
义 被 包含 在 目录 


<MATLAB 根 目 录 >>NEXTERNMNNCLUDE 
下 的 头 文件 MATRIX. H 中 ,其 具体 定义 为 ， 


typedef struct mmxArray _tag mmXArray| 
sttuct tmX 太 TTay7 _tag 
{《 
char 。 name[mxMAXNAM]; 
int Teserved1[2j# 
void “* reserved23 
int nutmnber _of _dims; 
int nelements _allocatedi 
int resetved3[3]+ 
union 《 
StFUCT 
! 


void 关 pdatas 


第 2 章 MATLAE 应 用 程序 接口 概述 .31 


void xpimag _datas 
void “<# reserveqd4; 
int teserved5[3]; 
} nurnber _ array1 
} datat 
} 
它 主要 包含 了 以 下 几 方 面 的 内 容 : 
。 阵列 的 类 型 (Classname) ,用 于 标示 阵列 的 数据 类 型 ,在 头 文件 MATRIX. H 中 ， 
数据 类 型 被 定义 为 一 个 拥有 16 种 取 值 的 枚 举 数据 类 型 ; 
。 阵列 的 名 字 (Name)1 
。 阵列 维 数 (Dimensions) ,用 于 标示 阵列 的 大 小 ,对 于 数量 .向 量 以 及 拖 阵 ,它们 的 
维 数 都 为 2; 
。 阵列 数据 , 即 阵列 实际 所 包含 的 内 容 ; 
。 当 阵列 为 数值 阵列 时 ,标示 出 阵列 为 实数 阵列 还 是 复数 阵列 ; 
。 当 阵 列 为 稀疏 矩阵 时 ,记录 非 堆 元素 的 索引 ， 
。 当 阵列 为 结构 体 或 对 象 ,记录 结构 体 或 对 象 的 域名 及 域 个 数 。 
不 同 的 矩阵 数据 类 型 ,不 同 的 矩阵 存储 方式 ,对 结构 体 mxArray 的 构造 有 着 相当 大 
的 影响 。 例 如 一 个 普通 的 复数 矩阵 ,概念 上 应 该 存在 四 个 域 , 分 别 为 矩阵 的 行 向 量 数 M、 
矩阵 的 列 向 量 数 N、 指 向 矩阵 数据 实数 部 分 的 指针 pr 和 指向 矩阵 数据 虚数 部 分 的 指针 
pi, 对 于 一 个 实数 的 普通 矩阵 , 其 虚数 指针 pi 为 空 ! 但 是 如 果 当 一 个 矩阵 为 稀 朴 矩阵 时 ， 
仅仅 使 用 以 上 四 个 域 就 不 能 满足 需求 了 , 还 需要 另外 的 由 个 域 ,分 别 为 矩阵 中 非 零乱 素 个 
数 的 上 限 nzmax ,矩阵 中 实际 存在 的 非 零 元 素 个 数 nnz, 指向 存储 和 矩阵 非 零 元 素 行 索引 值 
的 向 量 的 指针 ir 和 指向 存储 和 矩阵 非 零 元 素 列 索引 值 的 向 量 的 指针 jc。 所 有 这 些 变量 的 值 
均 可 以 通过 以 mx 为 前 缀 的 函数 从 结构 体 mxArray 中 获得 ,所 以 如 果 读 者 不 能 很 好 地 理 
解 上 面 mxArray 的 定义 ,没有 关系 ,MATLAB 接口 函数 库 已 经 对 mxArray 结构 体 进行 
了 很 好 的 封装 ,无 需 关 心太 多 的 细节 。 


2.1.4 系统 配置 


如 果 用 户 希望 编译 生成 MEX 文件 ,首先 必须 具备 两 个 最 基本 的 条 件 , 其 一 是 要 求 已 
经 安装 MATLAB 应 用 程序 接口 组 件 及 其 相应 的 工具 ;其 二 是 要 求 有 合适 的 C 语言 或 
FORTRAN 语言 编译 器 ,如 果 用 户 是 工作 在 Microsoft Windows 平台 上 ,那么 用 户 所 使 
用 的 编译 器 必须 支持 32 位 的 Windows 动态 链接 库 (DLL) 才 能 满足 有 要求， 

当 具 备 了 这 两 个 条 件 后 ,也 就 具备 了 最 基本 的 编译 生成 MEX 文件 的 基础 。 不 过 这 样 
还 是 不 够 的 ,在 编译 MEX 文件 之 前 还 必须 对 MATLAB 系统 进行 配置 ,以 使 MATLAB 
知道 用 户 所 使 用 的 编译 器 类 型 及 其 路 径 。MathWorks 公司 的 开发 者 们 为 了 简化 配置 工 
作 , 为 命令 mex 提供 了 参数 -setup( 仅 仅 针对 Windows 和 Macintosh)， 当 用 户 键 和 人 该 命令 
后 ,只 需 简 单 地 回答 系统 的 提问 , 即 可 完成 全 部 的 配置 工作 。 


1. 配置 流程 
下 面 将 基于 Mieresoft Windows NT4.0 操作 系统 及 MATLAB V5. 3， 使 用 Mi- 


* 32 。 MATILAB 应 用 程序 接口 用 户 拱 南 


cfosoft Visual C 十 十 编译 器 ,对 系统 的 配置 过 程 京 步 进行 讲解 。 首先 ,在 MATLAB 命令 
提示 符 下 键 人 配置 命令 


? mex -Setup 


系统 将 显示 如 下 内 容 : 


Please choose your compiler for building external interface (MEX) files， 
鸡 ould you like Imex to locate instalied compilers Ly]/n? 


提示 用 户 选 择 yes 或 no, 以 确定 是 否 让 mex 命令 自动 定位 用 户 计算 机 中 已 经 安装 的 各 类 
型 编译 器 ,选择 y 表示 同意 后 ,mex 命令 将 列 出 用 户 计算 机 中 所 有 MATLAB 认识 的 编译 
器 ,由 于 在 作者 的 计算 机 中 , 仅 安装 了 Microsoft Visual C 十 十 6.0 和 MATLAB V5. 3 自 
带 的 Lee 编译 器 ,所 以 mex 的 执行 结果 如 下 ， 


mex has detectedq the iollowing compilers on your machine: 


[I] : Microsoeft 6.0 compiler in erNProgram FilesNMicrosoft Visual Stddio 
[2] : Lec compiler in 了 :NMATILABNsysNcec 
[9] : None 


Please select a compiler. This cotmnpiler will become the default: 
提示 用 户 选 择 娜 一 个 编译 器 ,作为 默认 的 MEX 文件 编译 器 ,选择 1 后 ,mex 命令 将 进 一 
步 提 示 


Please verify your choices ， 


Compiier : Microsoft 6.0 
Location: exNProgram FilecsNMicrosoft Visual Studio 


上 te tbese correet? 〔〈[Ly]An); 
确认 所 选择 的 编译 器 的 路 径 是 否 正 确 , 选择 y,mex 命令 将 对 系统 进行 配置 , 若 成 功 将 显 
示 : 
The default obptions 和 le: 
CiNWINNT NProfiles\AdministratorNApplicationDataNMathWorksNMATTLABA\ 
exopts. batyis being updated,，,- 


若 不 成 功 将 显示 ， 


E:;NMATILABNBINNMEX. BAT: Frror: mex requires that the Microsoft Visual C 十 十 6.0 
direetories VC98?” and Cominonw be located within the same parent QirectoTy。 
(Could not find etNProgram FilesN\Microsoft Visual StudioNCommon, ) 


以 说 明 出 错 的 原因 ,例如 以 上 原因 表示 路 径 设置 不 正确 ,不 能 找到 所 需要 的 编译 器 的 执行 
文件 ; 当选 择 n 时 ,mex 命令 将 显示 

E:NMATLABNBINNMEX,BAT: No compiler waa set 
表示 没有 编译 器 被 设置 。 
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此 外 ,如 果 用 户 在 第 一 步 选 择 时 ,选择 了 ,表示 不 需要 mex 命令 自动 定位 编译 器 ,这 
时 ,mex 命令 将 显示 如 下 编译 器 列表 让 用 户 选 择 : 


Choose yout C compiler : 


FL] Borland C (vetrsion 5.0，5.2，er 5, 3》 

[2] Microsoft Visual C (〈version 4.2，5.0，or 6.0) 

[3] 克 atcom (version 10.6 or 11) 

[4] LeeC 《C compiler bandled with MATIAB》 


Or choose a Fortran compiler: 
[5 了 DIGITAL Visual Fortran 《version 5,. 0) 


[0] None 


cotmpiler ， 2 
选择 2 之 后 系统 将 进一步 提示 用 户 ,选择 所 使 用 的 编译 器 版 本 ， 


Choose the vetsion of your 人 compiler , 
[1 Microsoft Visual C 4. 2 
[2] Microsoft Visual C 5. 0 
[3] Microsoft Visual C 6,0 


Versioni 3 
选择 3 之 后 ,系统 将 显示 mex 命令 自身 所 找到 的 该 版 本 编译 器 的 位 置 ,如 下 : 


Your machine has a Micresoft Visgual C cotmpiler located at e;NProgram FilesNMicra 
soft Visual Studio. 
Do you want to usge this cotmpiler [y]/n? mn 


并 提示 用 户 确 认 , 不 过 此 时 mex 命令 提供 的 路 径 与 使 用 自动 定位 模式 时 提供 的 路 径 相 
同 , 不 一 定 正确 ,因此 选择 n ,系统 将 显示 : 


Pleage entey the location of your C cotnpiler : 
[eVNProgram FilesNMicrosoft Visual Studio ] 


要 求 用 户 输入 编译 器 所 在 的 路 径 , 如 : 
e:NProgram FilesNMicrosoft Visual StudioNVc98 
回 车 之 后 ,系统 将 进行 最 后 的 确认 ， 


Compilery Miicroscft Visuai C 6.0 
Location ; etNProgram FilesNMicrosotft Visual StudioNVc98 
Ate these correct? 【[y]Am): y 


如 果 问 答 y, 系 统 将 显示 


Tbhe default opticns file， 
CINWINNTNProfiles\Administrator\Application 
DataNMathWorksNMATLABNmexopts. bat"ig being updated., ， 
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如 果 回 答 n, 系 统 将 显示 
E:NVMATLABNBINNMEX.BAT，No commpiler was set 


表示 系统 配置 失败 ,必须 重新 配置 . 如果 用 户 使 用 的 是 Windows 98 操作 系统 或 者 MAT- 
LAB 系统 和 编译 器 位 置 安装 不 同 ,配置 过 程 和 内 容 可 能 略 有 不 同 。 
整个 配置 过 程 成 功 结束 之 后 , 必须 对 系统 进行 进一步 验证 ,以 确认 配置 的 正确 性 。 最 
简单 的 确认 方法 就 是 对 一 个 MEX 文件 的 源 程 序 进行 编译 ,看 是 否 能 生成 可 执行 的 DLL 
文件 。 在 目录 
MATILAB 枢 目 录 \EXTERNNEXAMPLESNMEXY 


中 存在 许多 MATLAEH 提供 的 范例 程序 ,用 户 可 以 对 其 中 任意 一 个 进行 编译 , 以 确认 配置 
的 正确 性 。 以 文件 yprime. ec 为 例 , 在 MATLAB 命令 提示 符 下 键 人 命令 ; 


? mmeX yprirne 


若 配置 成 功 , 回 车 后 MATLAB 将 不 显示 任何 内 容 直接 加 到 MATLAB 命令 提示 符 下 , 表 
示 DLL 文件 已 经 生成 ,这 时 就 可 以 直接 在 MATLAB 中 执行 冰 数 yprime ,得 


? ypPrimmedtl1，11 4) 
ans 一 
2.0000 8.9685 4.0000 一 .0947 


若 编译 不 成 功 ,系统 将 返回 一 定 的 出 错 原因 。 

对 于 使 用 MATLAB V5. 2 的 读者 来 说 ,在 配置 过 程 中 差别 较 大 ,首先 V5. 2 不 支持 
编译 器 的 自动 定位 ,而 且 在 配置 过 程 中 ,显示 的 Visual C 十 十 编译 器 的 最 高 版 本 为 5.0。 
不 过 还 要 请 使 用 MATLAB V5. 2 版 本 的 读者 放心 ,MATLAB V5.2 同样 支持 Visual 
C 十 十 6.0, 这 一 点 作者 已 在 微机 上 油 试 通过 。 


2， 选 项 文件 Coption file) 


选项 文件 是 系统 配置 过 程 中 产生 的 一 个 记录 配置 信息 的 文件 ,其 后 继 为 . bat ,是 一 
个 批 处 理 文件 ,在 Windows 操作 系统 中 的 资源 管理 器 下 ,可 以 通过 鼠标 左 键 选 取 该 文件 ， 
然后 单 击 鼠 标 右 链 , 将 出 一 个 浮动 菜单 ,选取 其 中 的 “编辑 ? 藻 单 项 , 即 可 以 打开 选项 文件 ， 
并 可 以 编辑 其 内 容 。 不 过 建议 不 熟悉 选项 文件 的 读者 尽量 不 要 对 文件 进行 编辑 ,有 可 能 导 
致 系统 配置 信息 的 损坏 ,不 能 够 正确 编译 MEX 文件 。 
在 使 用 命令 
teX -Settup 
对 系统 进行 配置 时 ,MATLAB 系统 将 配置 信息 写 人 默认 的 选项 文件 ,配置 成 功 后 ， 系统 
将 显示 
Delault oftions jle js being updated. .. 
表明 选项 文件 已 经 更 新 成 功 。 默 认 的 选项 文件 名 为 mexopts. bat, 对 于 双 indows98 操作 
系统 来 说 ,该 文件 位 于 目录 
Windows 根 目录 \ Appltication DataNMathWorksNMATLABNmnexopts' bat 
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下 ;而 对 于 Windows NT 操作 系统 来 说 ,该 文件 位 于 目录 


Windows NT 根 目 录 \ Profiles\AdministratorNApPlication DataNMathWorksN 
MATIAEBNmexopts. bat 


下 ,并 且 MATLAB 应 用 程序 接口 中 所 有 相关 的 默认 选项 文件 均 存 放 在 该 目录 下 。 
3. 简单 的 MEX 文件 编译 


系统 配置 完成 后 ,就 可 以 使 用 命令 
iex 必 源 文件 名 > 


对 文件 进行 编译 了 ,该 命令 使 用 的 是 默认 的 系统 信息 选项 文件 mexopts. bat。 同时 MAT- 
LAB 系统 为 命令 mex 提供 了 参数 -f, 通过 该 命令 参数 ,可 以 让 用 户 使 用 不 同 的 选项 文件 
对 源 文件 进行 编译 ,命令 格式 如 下 : 


mex 二 去 选项 文件 名 > 区 原文 件 名 > 


在 Windows 操作 系统 上 ,MATLAEB 为 各 种 不 同 的 编译 器 提供 了 不 岂 的 选项 文件 ， 
例如 MATLAB 为 Visual C 十 十 6.0 编译 器 提供 的 选项 文件 名 为 msve60opts. bat ,该 文 
件 位 于 目录 


MATLAB 根 目 录 \bin 


下 。 相 关 的 编译 器 选项 文件 ,请 读者 参阅 2. 4 节 。 
在 第 三 章 中 ,将 对 C 语言 MEX 文件 的 编写 以 及 相应 的 库 函 数 进行 详细 的 介绍 。 
在 第 四 章 中 ,将 对 FORTRAN 语言 MEX 文件 的 编写 以 及 相应 的 库 函 数 进行 详细 的 
介绍 。 


2.2 MATLAB MAT 文件 介绍 


2.2.1 MAT 文件 的 概念 .格式 及 功能 


MAT 文件 是 MATLASB 数据 存储 默认 的 文件 格式 , 它 的 文件 名 是 以 . mat 为 后 结 
尾 。MAT 文件 的 来 源 也 正 是 因为 这 些 文件 有 , mat 的 后 级 扩展 名 。 

MAT 文件 由 文件 买 .变量 名 和 变量 数据 三 部 分 组 成 .其 中 ,MAT 文件 的 文件 头 又 由 
以 下 部 分 组 成 ,MATLAB 的 版 本 信息 、 操 作 平台 的 信息 .文件 创建 的 时 间 。 我们 可 从 文本 
编辑 器 程序 中 打开 一 个 MAT 文件 ,查看 其 文件 头 中 的 信息 。 例 如 , 某 MAT 文件 的 文件 
头 ;5.0 MAT-fife, Platform: PCWIN ，Created on Tue Jan 18 16:25:07 2000。 变量 名 
是 存储 在 文件 中 的 变量 的 和 名字, 在 给 变量 取 名 时 ,应 尽量 做 到 见 名 知 义 。 变 量 的 数据 类 型 
包括 MATLAB 中 能 够 使 用 到 的 大 部 分 数据 类 型 ,包括 字符 申 ,和 矩阵 .多 维 阵列 、 结 构 和 单 
元 阵列 MATLAEB 以 字 节 流 的 方式 顺序 将 数据 写 人 到 MAT 文件 中 去 ,存储 在 硬盘 上 的 
数据 是 以 二 进 制 的 格式 保存 。 

在 MATLAB 中 ,用 户 可 以 直接 使 用 save 命令 存储 在 当前 工作 内 存 区 中 的 数据 ,把 
这 些 数据 存储 成 二 进 制 的 MAT 文件 ,Load 命令 则 执行 相反 的 操作 , 它 把 磁盘 中 的 MAT 
文件 的 数据 读 取 到 MATLAB 工作 区 中 。 而 且 MATLAB 提供 了 带 mat 前 缀 的 API 库 函 
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数 ,使 我 们 能 够 容易 对 MAT 文件 进行 操作 .我 们 可 以 轻松 地 编写 能 够 调用 这 些 库 函 数 的 
C 或 FORTRAN 语言 的 应 用 程序 ,用 来 创建 或 修改 MAT 文件 ,完成 应 用 程序 与 MAT- 
LAB 的 数据 共享 。 我 们 建议 读者 使 用 这 些 库 函 数 , 而 不 是 尝试 自己 去 编写 这 些 曙 数 ,这样 
即使 将 来 MAT 文件 的 结构 发 生 了 改变 ,用 户 也 不 必修 改 自 己 的 应 用 程序 。 


2.22 MAT 文件 的 优势 


在 MATLAB 中 ,用 户 可 以 通过 多 种 方法 向 MATLAB 输 和 人 数据 或 者 从 MATLAB 
中 获 到 数据 ,这 些 方 法 在 特定 的 情况 下 都 具有 其 合理 性 ,有 关 这 些 方法 在 本 书 的 第 五 章 第 
一 节 中 ,我 们 将 进行 详细 的 介绍 。 但 是 与 其 他 方法 相 比 ,用 户 将 会 发 现 ,MAT 文件 具有 非 
常 独特 的 优势 ， 

首先 ,通过 使 用 MAT 文件 来 完成 应 用 程序 与 MATLAB 之 间 的 数据 交换 ,意味 着 我 
们 能 够 利用 MATELASB 提供 的 便捷 机 制 ,高 效 地 完成 我 们 的 工作 ; 

其 次 ,即使 是 在 不 同 的 操作 平台 之 间 , 通 过 MAT 文件 来 完成 数据 交换 也 不 存在 任何 
问题 ,因为 MAT 文件 是 独立 于 平台 之 外 的 。 在 MAT 文件 中 ,其 数据 是 由 二 进 制 编码 组 
成 ,并 且 在 MAT 文件 的 文件 头 中 还 包含 了 某 一 种 操作 平台 的 符号 , 当 MATLAB 装载 
MAT 文件 时 ,会 检查 这 些 符 号 ,假如 这 些 符 号 表明 这 个 文件 是 不 同 操作 平台 的 信息 ， 
MATLAB 就 会 自动 进行 必要 的 转换 。 


2.2.3 系统 的 配置 及 MAT 文件 应 用 程序 的 编译 


使 用 MAT 文件 不 需要 经 过 特别 的 系统 配置 ,在 一 般 情 况 下 , 当 对 MEX 文件 的 系统 
瑟 置 完成 之 后 ,对 MAT 文件 的 系统 配置 也 就 基本 完成 ,无 需 额外 的 步 莫 就 可 以 对 MAT 
文件 程序 进行 编译 了 。 

对 MAT 文件 程序 的 编译 与 MEX 文件 的 编译 略 有 不 同 , 它 没有 默认 的 选项 配置 文 
件 ,在 对 程序 进行 编译 时 ,必须 使 用 mex 命令 提供 的 命令 参数 -f 来 指定 适合 不 同 编译 丹 
的 选项 文件 ,例如 MATLAB 为 Mierosoft Visual C 二 十 6.0 编译 器 的 选项 文件 名 为 
msvc60engmatopts- bat, 该 文件 位 于 目录 


MATILAB 根 目录 \bin 
下 ,使 用 它 对 MAT 文件 程序 进行 编译 时 的 命令 格式 如 下 ， 
mex -MATLAB 根 目 录 NbinNmsvc60engraatopts, bat mmatcreat' 
如 果 配 置 无 误 的 话 ,这 样 就 可 以 生成 名 为 matereat, exe 的 可 执行 程序 ， 该 程序 执行 时 将 
构造 一 个 名 为 mattest. mat 的 MAT 文件 。 其 他 一 些 编译 器 的 选项 文件 请 读者 参见 2, 4 


节 。 

总 体 说 来 ,通过 MAT 文件 来 完成 MATLAB 的 数据 输出 输入 任务 较为 方便 和 通用 ， 
是 一 种 不 错 的 选择 。 在 本 书 的 第 五 章 中 ,将 对 MAT 文件 应 用 程序 的 编写 和 库 函 数 的 使 用 
进行 详细 的 讲解 。 
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2.3 MATLAB 引擎 函数 库 介绍 


2.3.1 MATLAB 引 获 的 概念 及 功能 


MATLAB 引擎 函数 库 是 MALAB 提供 的 一 系列 程序 的 集合 , 它 允 许 用 户 在 自己 的 
C 语言 或 FORTRAN 诸 言 应 用 程序 中 对 MATLAB 进行 调用 ,将 MATLAB 作为 一 个 计 
算 引 擎 使 用 ,证 其 在 后 台 运 行 ,完成 复杂 的 矩阵 计算 ,简化 前 台 用 户 程 译 设计 的 任务 。 
MATLAB 引擎 函数 库 因此 而 得 名 。 

在 用 户 启动 MATLAB 引擎 时 ,相当 于 启动 了 另外 一 个 MATLAB 进程 ,其 在 后 台 运 
行 。 用 户 应 用 程序 通过 MATLAB 引擎 函数 库 中 提供 的 函数 完成 与 MATLAB 引擎 之 间 
进行 数据 交换 和 命令 传送 的 任务 。 在 UNIX 操作 系统 上 ,两 者 之 间 的 通信 是 通过 管道 
(PIPES) 来 完成 ;而 在 页 indews 操作 系统 上 , 则 主要 是 通过 ActiveX 来 完成 ,这 在 后 面 的 
章节 中 将 详细 介绍 。 

通过 MATLAB 引擎 ,用 户 将 可 以 完成 以 下 任务 ， 

。 可 以 将 MATLAB 作为 一 个 功能 强大 的 和 可 编程 的 数学 函 教 库 , 调 用 MATLAB 
中 大 量 的 数学 计算 函数 ,完成 复杂 的 计算 任务 ,例如 对 一 个 矩阵 进行 转 置 或 计算 
快速 傅 里 叶 变 换 , 这 对 于 普通 的 C 语言 或 FORTRAN 语言 编程 ,将 是 非常 麻烦 
的 ,而 使 用 MATLAB 计算 引擎 之 后 ,仅仅 几 行 语句 就 可 以 完成 任务 ; 

。 可 以 为 一 个 特定 的 任务 构建 一 个 完整 的 系统 ,其 中 前 台 的 用 户 图 形 界面 可 以 使 用 
C 语言 进行 定制 ,从 而 更 加 友善 和 易 用 ,而 后 台 的 计算 任务 可 交 由 MATLAB 引 
擎 来 完成 .这 种 开发 模式 ,将 极 大 地 缩短 应 用 程序 的 开发 周期 ,目前 已 经 有 一 些 较 
为 成 功 的 系统 ,例如 雷达 信号 分 析 系 统 和 气象 色谱 分 析 系统 。 

同时 ,将 MATLAB 作为 一 个 独立 的 计算 进程 也 有 诸多 好 处 : 

首先 ,用 户 编制 的 应 用 程序 可 以 独立 于 MATLASB 的 解释 性 执行 环境 而 执行 ,真正 生 
成 独立 可 执行 的 应 用 程序 ; 

其 次 ,在 UNIX 操作 系统 中 , 用 户 不 但 可 以 在 本 地 计算 机 上 调用 MATLAB 引擎 ,而 
且 可 以 通过 网 络 调用 其 他 计算 机 上 的 MATLAB 引擎 ,这 样 可 以 充分 利用 网 络 的 资源 ,将 
大 量 的 计算 任务 交 给 网 络 上 最 快 的 计算 机 完成 : 

第 三 ,所 有 这 些 功能 可 以 仅仅 通过 链接 一 小 部 分 引擎 库 函 数 来 完成 ,而 无 须 将 所 有 的 
MATLAB 代码 链接 到 用 户 程序 ,在 很 大 程度 上 ,缩减 了 程序 文件 的 长 度 ， 


2.3.2 系统 的 配置 及 MATLAB 引擎 应 用 程序 的 编译 


使 用 MATLAB 引擎 不 需要 经 过 特别 的 系统 配置 ,在 一 般 情 况 下 , 当 对 MEX 文件 的 
系统 配置 完成 之 后 ,对 MATLAB 引擎 的 系统 配置 也 就 基本 完成 ， 无 需 额 外 的 步 药 就 可 以 
对 MATLAB 引擎 程序 进行 编译 了 。 

对 MATLAB 引擎 程序 的 编译 与 MEX 文件 的 编译 略 有 不 同 ， 它 没有 默认 的 选项 配 
置 文件 ,在 对 程序 进行 编译 时 , 必须 使 用 mex 命令 提供 的 参数 - 来 指定 适合 不 同 编译 器 
的 选项 文件 ,例如 MATLAB 为 Microsoft Visual C 十 十 6.0 编译 器 的 选项 文件 名 为 
msvc6oengmatopts. bat, 该 文件 位 于 目录 
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MATLAB 根 昌 录 \bin 
下 ,使 用 它 对 MATLAB 引擎 程序 进行 编译 时 的 命令 格式 如 下 ， 
mex -f MATLAB 根 目 录 \binNmnsvc60enagmatopts.bat engfilename-.c 


如 果 配 置 无 误 的 话 , 这 样 就 可 以 生成 名 为 engfilename. exe 的 可 执行 程序 ,该 程序 执行 时 
将 在 后 台 开 启 一 个 MATLASBS 进程 ,用 于 完成 计算 任务 ,其 他 一 些 编译 器 的 选项 文件 请 读 
者 参见 2.4 节 。 

总 体 说 来 ,MATLAB 引擎 的 功能 是 相当 强大 的 ,在 本 书 的 第 六 章 中 , 将 对 使 用 
MATLAB 引擎 函数 库 的 编程 和 库 函 数 的 使 用 进行 详细 的 讲解 。 


2.4 选项 文件 说 明 


MATLAB V5. 3 版 本 为 不 同 的 编译 器 提供 了 不 同 的 选项 文件 ,在 widows 操作 系统 
中 ,这 些 选 项 文件 均 放 在 目录 


MATLAB 根 目 录 \bin 


中 。 本 节 中 ,我们 将 基于 indows 操作 系统 ,对 MATLAB 系统 提供 的 选项 文件 进行 一 定 
的 说 明 , 如 果 读 者 使 用 的 是 其 他 类 型 的 操作 系统 ,请 参阅 相关 的 联机 帮助 获取 信息 。 

在 Windows 操作 系统 中 ,MATLAB 对 一 些 常用 的 C 语言 和 FORTRAN 语言 编译 
器 提供 了 全 面 的 支持 ,尤其 是 在 V5. 3 版 本 中 ,内 容 更 加 丰 富 ， 


2.4.14 C 语 谨 选 项 文件 


C 语言 选项 文件 从 总 体 上 可 以 分 为 三 类 , 即 供 编译 MEX 文件 使 用 的 选项 文件 , 供 编 
译 MAT 文件 和 使 用 MATLAB 引擎 务 数 的 程序 的 选项 文件 以 及 供 编译 使 用 CNC 十 十 数 
学 本 数 库 程序 的 选项 文件 ,在 本 小 贡 中 ,将 对 前 两 种 进行 介绍 ,而 最 后 一 种 将 留 到 第 八 章 
进行 介绍 。 


1.、MEX 选项 文件 


在 MATLAB V5.3 版 本 中 ,为 三 种 C 语言 的 编译 器 , 即 Borland C 十 十 ,Visual 
C 十 十 和 束 atcomC 十 十 提供 了 不 同 的 选项 文件 , 详 见 表 2.1。 


表 21 MEX 选项 文件 
编译 器 类 亚 版 本 选项 文件 名 


bccepbts. bat 加 
bcc53pets, bat 
tngvcobts .bat 


insvc5Doptg, bat 





Borland C 十 士 


Visua] C 十 十 
msvc60opts, bat 
watcbts. bat 


榴 atcom C 十 二 11 watIIDbts. bat 


可 以 看 出 ,MATLAB V5. 3 版 本 几乎 对 目前 所 使 用 的 各 种 类 型 和 各 种 版 本 的 编译 器 
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都 担 供 了 支持 ,在 路 径 设置 正确 的 前 提 下 ,编译 MEX 文件 时 用 户 只 需 按 照 自己 的 编译 器 
类 型 选择 相应 的 选项 文件 进行 编译 即 可 完成 一 切 操作 。 

对 于 目前 比较 流行 的 另 一 种 编译 甘 C 十 十 Builder 来 说 ,MATLAB 并 没有 提 殿 显 式 
的 支持 ,也 没有 为 其 提供 专用 的 选项 文件 ,不 过 请 习惯 使 用 C 十 十 Builder 读者 放心 ,完全 
可 以 使 用 Borland C 十 十 的 选项 文件 来 配合 C 十 十 Builder 编译 器 对 MEX 文件 进行 编 
译 , 或 者 在 使 用 命令 Inex -setup 配置 默认 选项 文件 时 ,选择 Borland C 十 十 编译 器 ,但 将 
路 径 指 向 C 十 十 Builder ,这 一 点 作者 已 经 在 微机 上 调试 通过 。 这 可 能 是 因为 C 十 十 
Builder 和 Borland C 十 十 同 为 一 个 公司 的 产品 ,所 以 编译 器 选项 参数 相同 的 原因 吧 。 


2. MAT 和 MATLAB 引擎 选项 文件 


与 MEX 选项 文件 相同 ,MAT 和 MATLAB 引擎 选项 文件 也 因 编 译 器 的 类 型 和 版 本 
不 同 而 各 异 , 详 见 表 2, 2。 


表 22 MAT 和 MATLAEB 引 敬 选项 文件 


编译 右 关 型 选项 文件 
| .50 | bccengmatopts'bat 
| seogmaopte bt 
人 engmatopte bat 
Visual C 十 十 | 50 msvc50DengImatopts, bat 
msvc6Oengmatopts bat 
106 | wengmatopte bt 
watllengmatopts bat 


同 理 ,除了 以 上 三 种 类 型 的 编译 器 以 外 ,可 以 使 用 C 十 十 Builder 配合 Borland C 十 十 
的 选项 文件 来 对 MAT 文件 和 MATLAB 引擎 进行 编译 。 


2.4,.2 FORTRAN 语言 选项 文件 


相对 于 C 语言 来 说 ,MATLAB 所 提供 支持 的 FORTRAN 语言 的 种 类 和 版 本 就 少 多 
了 ,仅仅 提供 了 对 DIGITAL Visual Fortran V5. 0 版 本 的 显 式 支持 ,其 MEX 选项 文件 的 
文件 各 为 dt50opts.bast, MAT 和 MATLAB 引擎 选项 文件 的 文件 名 则 为 
df50engmatopts. bat。 不 过 对 于 使 用 Micerosoft Fortran PowerStation 的 读者 来 说 ,使 用 上 
面 的 两 个 选项 文件 同样 可 以 使 用 Microsoft Fortran PowerStation 编译 吴 对 Fortran 语言 
的 MEX 文件 .MAT 文件 和 MATLAB 引擎 程序 进行 编译 ,这 一 点 作者 同样 在 微机 上 调 
斌 通过， 
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C 语言 MEX 文件 ,顾名思义 就 是 基于 C 语言 编写 的 MEX 文件 ,是 MATLAB 应 用 
程序 接口 的 一 个 重要 组 成 部 分 .通过 它 不 但 可 以 将 更 有 的 使 用 C 语言 编写 的 函数 轻松 地 
引入 MATLAB 环境 中 使 用 , 避免 了 重复 的 程序 设计 ,而 且 可 以 使 用 C 语言 为 MATLAB 
定制 用 于 特定 目的 的 函数 ,以 完成 在 MATLAB 中 不 易 实现 的 任务 ,此 外 还 可 以 使 用 C 语 
言 提 高 MATLAB 环境 中 数据 处 理 的 效率 。 在 本 章 中 ,我 们 将 首先 对 C 语言 MEX 文件 的 
构成 及 其 执行 流程 进行 说 明 ,然后 对 C 语言 MEX 文件 的 编写 进行 全 面 的 讲解 ,并 给 出 具 
体 的 例子 ,最 后 介绍 相关 的 C 语言 MEX 文件 的 库 函 数 。 


3.1 C 语言 MEX 文件 


3.1.1 一 个 简单 的 例子 


在 开始 介绍 C 语言 MEX 文件 的 构成 前 , 先 请 大 家 看 一 个 非常 简单 的 样 例 程序 my- 
plus,c, 它 定义 了 两 个 double 类 型 数量 间 的 加 法 运算 。 该 程序 的 结构 非常 清晰 , 极 具 代表 
性 ,请 读者 仔细 阅读 ,相关 内 容 将 在 随后 的 章节 中 进行 详细 讲解 。 


/r 头 文件 包含 * / 


##jnclude "zex, hy 


void myplas(double y[]，double x[ 门 ，double z[]》 
{ 

yL0] = x[0] 十 z[0]; 
} 


void tmexFunctiont int nihs ，mxArray #plha[J， 
int nrhs ，const mxArray # prhs[] 》 
{ 
double 关 开 ， 站 了 其 宛 和 
jnt mrowsg0，nccls0# 


int mrows1，ncols1; 


/1* 检查 输 人 输出 变量 的 个 数 * / 
证 (nrhs 1 一 2》 
InexErrMsgTxtkrTwo inputs requuired. 7)5 
else 
这 Cnihs>1) 
mexErrMsgTxtt"Too many output argUtmnents” 7 


} 
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/x# 输入 的 元 素 必 须 为 两 个 非 复 数 的 deuble 类 型 数量 * / 
tmrowst 一 mxGetM(prhs[0]); 
ncols0 一 mxGetNCprhs[0]); 
计 《 上 ImxisPDouble(prhs[0j)》 | tnxIsCompjexkprhs[0])》 | 
1 (mrows0 一 一 ] & 了 necols0 一 一 1) 》 
IDexErr+MsgTxt(yInputs Inust be all noneomplex scalar double.)) 
mrowasl 一 mxGetMKprhs[1])73 
mncolsl 一 mxGetNCprhs[1])# 
让 《1] mmxIsDouble(Kprhs[1]) 1 mxIsComplex(Cprhe[1]》 | 
1 (mrows1l 一 一 1 && ncolsl= 一 1》 ) 
ImeXErrMsgTxtCrinbuts must be all noncomplex scalar doubjle.7 )3# 
主 (mrows0l 一 Intowsl | neols01 一 ncoils1) 
meXErrMsgTxt*Inputsg must be same dimension.”)4 


/+ 为 返回 参数 创建 短 阵 * / 
Plhs[0] = mxCreateDoubleMatrix(mrows0ncols0，mxREATI7 


/+# 为 输 人 输出 参数 赋值 * / 
x 一 mxGetPr(prhs[0]); 
z 一 mxGetPrkprhs[1]); 
y 一 rmxGetPr(plhs[L0])y 


/+ 调用 mypius 函数 * 7/ 
tmyplusKy， xz) 


3.1.2 CC 语 育 MEX 文件 源 程 序 的 构成 


仔细 阅读 过 以 上 程序 的 读者 可 能 已 经 发 现 ,C 语言 MEX 文件 的 改 程 序 主要 由 两 个 


截然 不 同 的 部 分 组 成 ,它们 分 工 明确 ,分 别 用 于 完成 不 同 的 任务 ， 


第 一 部 分 称 为 计算 子 例 行 程序 (computational routine) , 它 包 含 了 所 有 实 际 完 成 计算 


功能 的 源 代 码 ,用 来 完成 实际 的 计算 工作 ; 


第 二 部 分 称 为 人 口子 例 行 程 序 (gateway routine), 它 是 计算 子 例 行程 序 间 MATLAB 


环境 之 间 的 接口 ,用 来 完成 两 者 之 间 的 通信 任务 。 


人 辣子 例 行 程序 的 名 宇 为 mexFunction ,拥有 四 个 参数 ,分 别 为 prhs .nrhs .plhs 和 
nlhs ,其 中 prhs 为 一 个 mxArray 结构 体 类 型 的 指针 数组 , 该 数组 的 数组 元 素 按 序 指向 
所 有 的 输入 参数 ,nrhs 为 整数 类 型 , 它 标明 了 输入 参数 的 个 数 ;plhs 同样 为 一 个 mxArray 
结构 体 类 型 的 指针 数组 ,该 数组 的 数组 元 未 按 顺 序 指向 所 有 的 输出 参数 ; nihs 则 标明 了 


输出 参数 的 个 数 , 为 整数 类 型 。 
人 口子 例 行 程序 的 具体 的 使 用 格式 如 下 ， 


void mexFunction int nlhs ，mxAxrray # plhs[]， 


《 


int nrhs ，congt mxArray # prhs[] ) 


日 站】 。 
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/* 一 些 必 要 的 C 语言 代码 ,用 来 完成 MATLAB 与 
计算 子 例 行 程 序 之 间 的 通信 任务 * / 
} 

在 人 口子 例 行 程 序 中 ,用 户主 要 可 以 完成 两 个 方面 的 任务 ,一 方面 ,是 从 输 和 人 的 
mxArray 结构 体 中 获得 计算 所 需 的 数据 ,然后 在 用 户 的 计算 子 例 行 程 序 中 加 以 使 用 , 例 
如 在 3.1.1 中 的 例子 程序 中 ,通过 语句 x 一 mxGetPr (prhs[0]) 和 语句 yy 一 mxGetPr 
(plhs[0]) ,分 别 从 输入 阵 列 中 得 到 计算 所 需 的 数据 指针 x 和 yi; 另 一 方面 ,用 户 同样 可 以 
将 计算 完毕 的 结果 返回 给 一 个 用 于 输出 的 mxArray 结构 体 ,这样 MATLAB 系统 就 能 够 
认识 从 用 户 计算 子 例 行 程序 返回 的 结果 。 

MEX 源 文 件 的 两 个 组 成 部 分 既 可 以 像 程 序 myplus.e 那样 存放 在 一 个 文件 中 ,也 可 
以 分 为 两 个 文件 来 存放 ,这 无 关 紧要 ,重要 的 是 文件 中 必须 对 头 文件 mex.h 进行 包含 , 因 
为 该 头 文 件 中 不 但 包含 了 最 基本 的 头 文件 matrix.h ,而且 包 含 了 所 有 以 mex 为 前 缀 的 库 
函数 的 声明 。 


3.1.3 C 语言 MEX 文件 的 执行 流程 


MA4TLAB 


调用 
MEX 文件 myplus: 
y=inypPlus(x, 九 


告诉 MATLAB 
将 阵列 xX 和 2z 桂 送 给 
MEX 文 件 , 变 量 y 未 
赋值 





Imyplnse 










void mexFunctionfitt nlhstnmxArray*plhs[]， 

int nrhs,.comst ImxArray +prttsf]) 

在 人 口 葬 行程 序 中 项 要 完成 以 下 三 个 任务 : 

1) 使 用 mxCreat 函数 为 输出 参数 创建 
MATLAB 阵列 ,并 将 指针 plhs 风 ] ， 
plhs[1], … 指 向 新 创建 的 MATLAB 丈 列 ; 

2) 局 用 mxGet 画 数 愉 Prhs[0],prhs[11 … 






MATLAR 


从 MEX 文 件 myphus 
返回 : 









中 捉 到 数据 ; 
3) 以 输入 输出 数据 的 指针 为 参数 调用 
计算 例 行 程序 。 


y=mypPlus(x. 攻 







TIXATTaY*Y 


将 phhs [的 值 同 给 7 7=plhs[0l 


3,1 MEX 文件 的 执行 流程 图 
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当 对 一 个 C 语言 MEX 文件 的 源 程序 进行 编译 后 (编译 的 方法 见 2. 1.4), 如 果 成 功 
即 可 以 得 到 与 源 程 序 名 相同 的 DLL 文件 ,建议 将 源 程 序 的 取 名 与 程序 中 计算 子 例 行 程序 
的 名 字 保 持 相 同 , 这 样 比 较 直 观 而 且 易于 使 用 和 记忆 。 

在 MATLAB 的 工作 环境 中 ,按照 MATLAB 语言 的 语法 


fay, bc，…] 一 tnexfile _narmefx， yy zi vv) 


正确 地 键 人 MEX 文件 名 和 MEX 文件 所 需 的 参数 ,就 可 以 运行 MEX 文件 了 。 这 时 ,参数 
plhs 和 参数 prhs 分 别 为 包含 所 有 输出 和 输入 参数 指针 的 mxArray 结构 体 类 型 的 指针 数 
组 ,参数 nlhs 和 nrhs 则 分 别 包含 了 输出 和 输入 参数 的 个 数 。 以 程序 myplus.e 为 例 , 当 对 
其 进行 编译 后 ,可 以 得 到 文件 名 为 myplus. dll 的 动态 链接 程序 ,在 MATLAB 命令 提示 
符 下 键 和 人 命令 


y 一 myplus{x，z) 
之 后 ,MATLAB 解 芋 器 将 首先 对 各 参数 进行 赋值 ,如 下 : 
nlhs 一 14 nrhs 一 2; 
plhs 一 NULL; prhs -* (〈y， z) + 符号 “~>” 表 示 指 向 
然后 调用 人 口子 例 行 程序 mexFunction, 来 完成 计算 任务 和 MATLAB 与 计算 子 例 行程 
序 间 的 通信 。 图 3.1 为 MEX 文件 的 执行 流程 图 。 


3.2 C 语言 MEX 文件 的 编程 


在 第 一 节 中 ,我 们 给 出 了 一 个 用 于 处 理 简 单数 据 的 C 语言 MEX 程序 ,本 节 中 我 们 将 
基于 若干 个 范例 程序 ,具体 讲述 如 何在 C 语言 MEX 文件 中 对 各 种 类 型 的 MATLAB 阵 
列 进 行 处 理 ,使 读者 对 C 语言 MEX 文件 的 编程 有 一 个 全 面 的 了 解 。 


3.2.1 C 语言 MEX 文件 对 字符 串 的 操作 
1， 范例 程序 


tmystringplus.e 

/# 程序 奶 1) *7 

林 iaclude ”mex, h 

共 include <string,h> 


void mystringplus{char * input _buf0，char x*input _ bufl1，char * output _buf) 
{ 
sttcat(output _buf input _buf0) 
streat(output _buf input _bufl)# 


} 


/+# 程序 眉 23 27 
void mexFunetion( int nlhs，mxArray *# plhs[]， 
int nths ，const mx 呈 rtray x prhs[]) 
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{ 
/* 程序 颂 (3 >* / 
char xinput _buf0，*#input _bufl，* output _bufy 
int buflen ，buflea0，buflen1 ，statusj; 


这 Cnrhsl 一 20) 
tex 瑟 FrMsgTxt"Two inputs required,y)+ 
else 这 (nlhe > 1) 
mexErTMsgTxt 必 Too many output argurmenta. ”728 


/* 程序 段 (人 * 7 
主 5 txIsChar(prhsL0]) ! 一 1 | mxlsChar(prhs[1]) ! 一 1) 
mexErrMsgTxtt"Inputs tnust be a string.7)+ 


让 (mxGetM (prhst0])1 一 1 外 mxGetM{prhs[1])， = 一]1》 
ImexErrMsgTxtC*Inputs must be a TOwW YectDF- 8 )3 


/# 程序 段 (5) * 7 

buflen0 一 (mxGetM{(prhs[0]) * mxGetN(prhs[0])) 十 1; 
buflenl 一 《mxGetM{tprhs[1])》 * mxGetN (prhaLl])) 十 1 
buflen = buflen0 十 buflen] 一 Ji 


/+# 程序 绒 (6》x 7 
input _buf0 一 mxCalloc(buflen0，sizeof char))j 
input _bufl 王 mxCalloc(buflen1 ，sizeof char)7# 
output _buf 一 mxCallocKbuflen ，sizeof(char》)4 


/* 程序 自 (7》 :=* 7/ 
status 一 mmxGetStringtprhsL0],，input _buf0，buflen0) 
过 (status 上 一 0 
mex 全 arnMsgTxt(Not enough space，String is truncated-* 7 


status 一 mxGetString(prhs[1],， input _bufl，buflen1)) 


证 (status ] 一 人 0) 
mex 友 arnMagTxt(*Not enough space， String i truncated.”)5 


/x 程序 段 (8) * 7 
imystringplus (input _bufD，iaput _ bufl，output _buf73 


/7* 程序 肛 (9) + 7 
Blhs[0] 一 mxCreateString (output _buf)1 


TeturTI il 


} 
2. 程序 注释 
程序 mystringplus.c 是 一 个 典型 的 C 语言 MEX 源 文 件 ,其 计算 子 例 行 程序 和 人 入口 
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子 例 行 程序 存放 在 一 个 文件 之 中 。 它 的 功能 非常 简单 ,用 来 将 两 个 字符 合 二 为 一 。 下 面 
按 涉 程 序 中 的 编号 对 程序 代码 进行 解释 ， 

程序 段 (1) 主要 完成 了 两 方面 的 工作 。 首 先 ,完成 了 对 头 文件 mex.h 和 头 文件 
string.h 的 包含 ,其 中 mex-h 已 经 在 前 面 的 章节 进行 了 介绍 , 这 里 不 再 丈 述 , 头 文 件 
string-h 主要 包含 了 一 些 对 字符 串 操 作 枯 数 的 声明 ,计算 子 例 行程 序 中 使 用 的 函数 streat 
就 在 该 文件 中 声明 , 它 是 从 C 语言 自 带 的 闫 文件 ;其 次 ,完成 了 对 计算 子 例 行 程 序 的 声明 
和 定义 ,在 计算 子 例 行程 序 中 ,连续 使 用 了 两 次 strcat 函 教 ,从 而 将 两 个 字符 串 合 二 为 一 。 

程序 段 (2) 为 人 口子 例 行 程序 的 定义 , 它 是 MATLAB 调用 C 语言 MEX 文件 时 的 人 
口 , 是 所 有 C 语言 MEX 文件 所 必须 具备 的 内 容 。 

程序 段 (3) 对 程序 中 使 用 的 一 些 变量 进行 了 定义 ,并 且 对 用 户 输入 和 输出 的 参数 个 数 进 行 
了 检查 , 程序 mystringplus. ec 要 求 用 户 必须 输入 两 个 参数 , 并 且 输 出 参数 的 个 数 不 能 多 于 1， 
否则 程序 将 报错 并 退出 , 函数 mexErrMsgTxt 负责 出 错 信 息 的 输出 ,并 终止 程序 的 运行 。 

程序 段 (4) 用 来 对 用 户 输 入 的 参数 进行 类 型 和 维 数 检 查 , 程 序 mystringplus-e 要 求 用 
户 输入 的 所 有 参数 必须 为 字符 串 向 量 , 这 个 功能 由 本 数 mxJlsChar 和 mxGetM 来 完成 . 如 
果 类 型 不 匹配 ,程序 将 报错 并 退出 ,同样 由 函数 mexErrMsgTxt 负责 完成 

程序 段 (5) 的 功能 是 获取 两 个 输入 字符 串 的 长 度 ,并 计算 输出 字符 串 的 长 度 。 这 里 必 
须 注意 程序 中 的 加 1 操作 ,因为 在 C 语言 中 ,字符 串 的 总 长 度 为 实际 的 字符 个 数 加 上 一 
个 标示 字符 串 结束 的 空 字符 NULL .其 中 函数 mxGetM 和 mxGetN 分 别 用 来 获取 输入 参 
数 的 行 数 和 列 数 。 

程序 段 (6) 用 来 为 字符 串 指 针 分配 内 存 。 这 里 分 配 内 存 时 ,使 用 了 MATLAB 提供 的 
库 函 数 mxCalloc ,代替 了 C 语言 的 内 存 分 配 本 数 calloc ,建议 读 者 在 进行 内 存 分 配 时 尽量 
使 用 MATLAB 提供 的 内 存 分 配 函 数 ,因为 MATLAB 提供 了 自动 的 内 存 管 理 功能 , 它 能 
在 MEX 文件 执行 结束 时 , 自动 地 释放 所 申请 的 内 存 ,相关 的 内 存 分 配 范 数 还 有 mxMal- 
loc 和 mxRealloec。 有 关 MATLAB 的 内 存 管 理 的 内 容 将 在 后 续 的 章节 中 以 详细 介绍 

程序 段 (7? 由 两 个 取 数 据 和 两 个 if 判断 语句 构成 , 用 来 从 输入 参数 中 获取 字符 串 , 并 
判断 操作 的 正确 性 , 取 字 符 的 工作 由 函数 mxGetString 完成 。 

程序 段 (8) 为 计算 子 例 行 程序 的 调用 语句 ,用 来 激发 计算 程序 的 执行 ， 

程序 段 (9) 用 来 为 输出 参数 赋值 ,这 个 过 程 通 过 函数 mxCreateString 来 完成 。 

在 以 上 的 程序 解释 中 ,只 给 出 所 使 用 函数 的 大 致 功能 ,详细 的 库 函 数 介绍 参见 3. 7， 
3.8 节 。 


3. 运行 结果 
对 mystringplus.e 程序 进行 编 诺 后 ， 可 以 得 到 名 为 mystringplus. dll 的 动态 链接 库 
程序 ,在 MATLAB 命令 提示 符 下 键 人 以 下 命令 ， 


?一 !1234 4b 一 '5678' 1 
?ec 一 mystringplus(a，b) 


回 车 后 ,可 以 得 到 结果 
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mm 
| 


12345678 
3.2.2 包含 多 个 输出 的 C 语言 MEX 文件 


对 于 包含 多 个 输出 的 C 语 言 MEX 文件 的 编写 ,基本 上 同 前 面 单 输出 的 C 语言 MEX 
文件 的 编写 方法 相同 ,惟一 需要 注意 的 地 方 是 输出 参数 指针 数组 plhs 的 指针 元 素 同 输出 
参数 之 各 的 对 应 关系 ,指针 plhs[0] 应 指向 第 一 个 输出 参数 ,而 揽 针 plhs[1] 应 指向 第 二 个 
输出 参数 ,以 此 类 推 , 则 指针 plhs[n] 应 指向 第 n 十 1 个 输出 参数 。 接 下 来 我 们 对 3. 1, 1 节 
中 的 范例 程序 作 一 些 简单 的 改动 ,使 其 能 够 输出 两 个 参数 。 

首先 将 程序 县 (3) 中 的 计 语 句 改 为 如 下 形式 ， 


(nrhsl 一 2) 
mexEIrMsgTxtkrTwo inbwts required .wm ) 1 
else iffnlhs } 一 2) 
ImexETrMsgTxtkrTwe outputs required.”)) 
用 以 判断 输出 参数 是 否 为 2, 否 则 报错 
然后 ,在 程序 段 (9) 的 后 面 加 上 下 列 语句 : 


plhs[1] 一 如 xCreateDoubleMatrix(1，1，mXREAL)?; 
value 一 rnxGetPr(plhs[1])) 


其 中 value 为 一 个 double 类 型 的 指针 , 用 语 条 


doubie + Yaluel 


在 人 口子 例 行 程序 mexFunction 的 开始 进行 声明 ; 函数 mxCreateDoubleMatrix 用 来 创 
建 一 个 1X1 的 实数 矩阵 , 即 一 个 数量 。 
对 该 程序 编译 后 执行 可 以 得 到 如 赴 结果 ， 
? [ec，value] = mysttingplus(a:b) 
12345678 
value 一 
0 


这 里 value 的 值 为 党 ,因为 在 程序 中 并 未 对 该 值 进行 任何 操作 ,用 户 可 以 自行 添加 。 
3.2.3 R 语言 MEX 文件 对 MATLABH 结构 体 的 操作 


结构 体 (Structure) 是 MATLAB V5. 0 以 后 的 系统 提供 的 一 种 非常 实用 的 数据 类 型 ， 
与 C 语言 中 的 结构 体 极为 类 似 ,具体 定义 可 以 参见 1. 2. 2 节 。 本 小 节 中 将 对 忆 语言 MEX 
文件 中 结构 体 的 操作 进行 讨论 。 


1， 范例 程序 


C 语言 MEX 文件 中 对 结构 体 的 操作 与 对 字符 襄 的 操作 相 比 ,要 复杂 许多 ,请 读者 先 
仔细 阅读 下 面 程序 findmax.e 的 源 代码 ,在 后 面 将 对 其 进行 详细 的 讲述 。 
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/=* 程序 候 (1) * 7/ 

并 include ”mex,hhw 

#inelude <stting.h>> 

#defineF _NUM _MAX 3 /* 结构 体 所 允许 包含 的 城 的 最 大 个 区 * / 
#defineS_NGM _MAX 10 /+ 结构 体 对 象 所 包含 的 元 素 个 数 的 最 大 值 * / 


int maXx 一 03 


/x 程序 眉 《27 * 7 
void findmax( double + grade[]，int mn) 
{ 
int 计 
for (〈i 一 1; i<naf ii 十 十 ) 
{ 
证 (#* grade[max]<< * grade[i]) 
maX 一 1 
} 


TetUT 了 RD# 


/* 程序 段 (3》 =* / 
void mexFunetion int njhs ，mxArray * plhs[]， 
int nrhs ，const mxArray *# bprhs[] ) 
{ 
/x 程序 段 (4》* 7/ 
conast chatr # fnames[F LNUM _MAX]; 
const int # dmsy 
ImX 凡 TB8yY # trmpy 
char x name[S _NUM _MAXj; 
double * grade[S LNUM _MAX],， xpy 
int iypavnamfields ,statusybufileny 


/* 程序 绒 (5) > / 
主 (Chrhs 1 一 1) 
mexErrMsgTxt(zOne input required ”7# 
else 这 Cnlhs 之 1) 
mexErrMsgTxt("Too many cutput argutnents,”) 
elge 许 (】 mxJsStruct(prhs[0j)) 
mexExrMs&Txt(?Input rmust be 8 structure、 ”); 


/*# 程序 段 (6) *# 7 

dims 一 mxGetDimensions(prhbs[0]); 
numfields 一 mxGetNumberOfFields(prhs[0])# 
n 一 mxGetNumberOfElements(prhs[0])# 


1x* 程序 让 (7) * 7/ 


"47。， 
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for 〈i=0i<numfieldgii 十 十 》 
fnhatmes[i] 一 ImxGetFieldNameByNumber(prhs[0],i)， 


/+ 程序 眉 (8) * 7/ 
fior《i=0y i<ny i 十 十 ) 
《 
tmp 一 mxGetField(prhs[0],iyfhames[0])， 
让 《mxJsChar(tmp)1 一 1) 
ImexErtrMsgTxtt”Element is not type of sgtring* ) 1 
buflen 一 InxGCetN(tmp) * mxGetM(tmp) 十 1 
natme[i] 一 mxCailloc (buften，sizeof (char)) + 
atatus 一 mmxGetString (tmp ,name[i],buflen)y 
秆 [status 上 一 0) 
inexWarnMsgTxt("Not enough space，String is truncated, 75 


tmp 一 mxtGetFieldCprhs[0 ,ifnames[1]); 
让 《mxlsDouble(tmp)1 一 1》 
ImexETTMsgTxt(rElement is hot type of double* )! 
grade[i] 王 mxGetPrCtmp)# 
} 


7/# 程序 段 (9) * 7/ 
findmax(Kgradeyn) 


/7# 程序 段 (10) * 7 

plhs[0] 一 mxCreateStructMatrixK1，1，ntmfields，fnames)5 
tmp 一 mxCreateSttring(name[max]) 
mxSetField(plhs[0],0,faames[0],tmp)s 

tmp 一 tmnxCreateDoubleMatrix(l,1ymxREAL7# 
mxSetPr(tmp ，grade[rmax]73 

如 xSetFieldfplhs[0],0,fpames[1],tmp)) 


TEtUIRS 


} 
2 程序 注释 


从 程序 fiindmax.e 的 结构 上 来 看 ,可 以 清晰 地 分 为 两 个 部 分 , 即 计 算 子 例 行 程 序 部 分 
和 人 只 子 例 行程 序 部 分 ,是 一 个 结构 典型 的 MEX 文件 。 该 MEX 文件 的 输入 是 一 个 结构 
体 阵 列 , 而 输出 为 一 个 1X1 的 结构 体 和 矩阵, 要 求 输入 的 结构 体 具 有 两 个 域 ,分 别 为 字符 冲 
类 型 和 双 精 度 的 浮 点 数据 类 型 ,分 别 代表 某 学 生 的 名 字 和 该 生 某 一 门 功课 的 成 绩 , 程 序 所 
完成 的 功能 是 从 所 有 的 学 生 中 , 找 出 成 绩 最 好 的 一 个 并 输出 其 名 字 和 成 绩 ， 

向 C 语言 的 MEX 文件 传送 MATLAB 结构 体 , 基 本 上 与 传送 其 他 类 型 的 MATLAB 
数据 没有 太 大 的 区 别 , 只 不 过 实际 得 到 的 数据 为 mxArray 结构 体 类 型 , 这 主要 是 由 
MATLAB 结构 体 数 据 类 型 的 具体 构成 决定 的 ,因为 MATLAB 结构 体 的 每 一 个 域 仍然 
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是 一 个 MATLAB 阵列 。 所 雇 在 MATILAB 应 用 程序 接口 中 ,相关 于 MATLAB 结构 体 的 
操作 函数 的 返回 值 类 型 均 为 mxArray * 。 

在 C 语言 MEX 文件 中 对 MATLAB 结 宰 体 进行 操作 时 ,不 能 像 前 面 章节 中 对 简单 
的 数值 类 型 的 操作 那样 方便 地 获取 和 设置 数据 , 而 要 通过 专门 的 函数 mxGetField 和 本 数 
mxSetField (函数 的 具体 使 用 说 明 参 见 3. 7,3. 8 节 ) 。 下 面 同样 按 源 程序 findmax.e 中 的 
编号 对 程序 进行 详细 的 解释 ; 

程序 段 (1) 主 要 完成 了 以 下 三 个 任务 ;第 一 ,对 头 文件 mex. h 和 头 文件 string- h 进行 
了 包含 ;第 二 ,定义 了 两 个 宏 , 用 来 限制 输入 结构 体 的 域 数 和 结构 体 阵列 所 包含 元 素 的 最 
大 个 数 ;第 三 ,定义 了 一 个 全 局 变量 ,用 于 计算 子 例 行 程 序 和 人 口子 例 行 程序 进行 部 分 的 
数据 通信 。 

程序 段 (2) 为 计算 子 例 行 程序 的 定义 ,其 完成 的 功能 是 从 所 有 的 学 生 中 找 出 成 绩 最 好 
的 那 一 个 。 

程序 段 (3 为 人 口子 例 行 程序 的 声明 ,为 固定 格式 。 

程序 段 (4) 为 程序 中 所 使 用 的 一 些 变量 的 声明 ,其 中 声明 了 三 个 扫 针 数组 ,为 
fnames ,natme 和 grade, 分 别 用 来 存放 用 户 输 和 人 结构 体 的 域名 字 指 针 、 学 生 的 名 字 指 针 和 
成 绩 指针 。 

程序 段 (5) 用 来 对 输入 和 输出 参数 进行 检查 , 输入 参数 个 数 必 须 为 1 且 必 须 为 结构 体 
类 型 ,而 输出 参数 个 数 不 可 以 大 于 1 否则 程序 将 报错 并 退出 。 

程序 段 (6) 使 用 了 三 个 以 mx- 为 前 级 的 库 函 数 ,分 别 求 得 了 输入 结构 体 阵 列 的 维 数 、 
域 数 和 元 素 的 个 数 , 函数 的 具体 使 用 说 明 参 见 3. 7,3. 8 节 。 

程序 段 (7)? 的 作用 是 获得 各 域 的 域名 ,使 用 了 函数 mxGetFieldNameByNumhber。 

程序 县 (8) 的 功能 是 从 输入 的 结构 体 阵 列 中 取出 数据 ,并 分 别 存 放 和 人 指针 数组 name 
和 grade。 

程序 段 (9) 是 对 计算 子 例 行程 序 的 调用 。 

程序 段 (10) 为 对 和 输出 的 结构 体 矩 阵 进 行 初 始 化 并 赋值 ,其 中 使 用 了 API 的 库 函 数 
mxCreateStrucetMatrix 构造 了 -个 1X1 的 结构 体 和 矩阵 。 


3, 运行 结果 


对 该 文件 进行 编译 后 ,可 以 得 到 在 MATLAB 可 执行 的 程序 findmax. dl。 在 MAT- 
LAB 命令 提示 符 下 键 人 以 下 命令 ， 


? students(1). natne 一 'Li Hong'， 

? sgtudents〔1)》, grade 一 74; 

? studenta (2).name 一 "Zhang Yang # 
? students〔2》. grade 一 823 

? students《3).name 一 “Wang 到 ei 

? students〔3)》, grade 一 67# 

? students〔4), barme 一 'Liu Kai + 

?7 students《4). grade 一 82 

?y 一 findmax(students) 
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回 车 后 可 以 得 到 如 下 结果 ， 


了 一 
Rame: /Liu 用 aif 
grare:， 92 


3.2.4 CC 语言 MEX 文件 对 MATLAB 单元 阵列 的 操作 


单元 阵列 (cell array) 与 MATLAB 结构 体 相 同 , 也 是 MATLAB V5.0 以 后 的 系统 所 
提供 的 一 种 新 型 的 数据 类 型 , 它 可 以 包含 不 同 的 数据 类 型 的 阵列 元 素 ,这 是 其 最 大 的 特 
点 ,具体 的 定义 参见 1. 2. 2 小 节 。 本 小 节 中 ,将 针对 避 语 言 MEX 文件 中 对 MATLAB 单 
元 阵列 的 操作 进行 讲解 。 


1， 范例 程序 


对 MATLAB 单元 阵列 的 操作 同 祥 较为 复杂 ,在 使 用 时 必须 非常 小 心 ,请 读者 先 仔细 
阅读 下 面 的 范例 程序 uppercase.c, 在 本 节 的 第 二 部 分 ,将 对 它 进行 详细 的 解释 。 


/x* 程序 段 (1)》 * 7 
共 jnelude "Inex, hv 


失 include 《string.hy) 


yoaid uppercase(Cchar * buf) 
{ 
char x upper， 
upper 一 struprCbuf》 
buf 一 uppet8 
return3 


} 


/+ 程序 颖 (2) * 7 
void mexFunetiontint nihs，mxArray x plbsf]， 
int nrbhs，const mxArray + Prhs[] 》 
{ 
/* 程序 良 (3) * 7 
int rows，col8，i，j，count，hdims ，nindexy; 
int bufien ，atatus# 
int subs[2]; 
chatr 交 bufy 
doublIe xpr，H#yi 
ImXAtray #ecll _elenment _pr，+#+tmpf 


/xx 程序 假 (4) x 7 
计 (nrhbsl 一 1) 
mexRrrMsgTxt(rOne input reguired.”)! 
else ifCnhlihs >> 1) 
mexErrMasgTxtCToo many output arguments,”J3 
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rr 一 一 -wereeeeeeeeeeeeeeeeeeeeeeeeeeeeeererr 一 一 一 wwe 一 -err 一- 一 


else 计 (1 mxlsCell(prhs[0])) 
ITexErrMsgTxt6"Input must be a cell.?); 


ndims 一 mxCGetNumberOfifDimensgions(prhs[0])) 
计 Cndims > 2) 
mexEITMsgTxtkrInput must be a cell matrix,” 7; 
/r 程序 段 (5) * 7/ 
Tows 一 mxGetM(prhs[0])3 
eols 一 tmxGetNCprhs[0]); 
plhs[L0] 王 mxCreateCellMatrix(Krowsy，cols) 


/x* 程序 里 (6) * 7 
for (一 03 1 < rowsgfi i 十 十 》 
{ 
for(j 一 0 j < colsf j 十 十 ) 
{ 
subs[0] 一 记 
subs[1] 一 j 
nindex 一 mxCaleSingleSubscript(prhs[0]j,2,subs)5 
cell _element _Ptr 一 mxGetCell(prhst0]，mnindex?》 


二 《mxJIsChar(cell _element _Pr)》) 
{ 
buflen 一 mxGetM(Kcell _element _pr)》 xx tmxGetN(cell _eletment _pr) 十 1 
buf 一 mxCalloctbuflen ，sizeofKchary)y 
status 一 tnxGetString (cell _element _pr，buf，buileny); 
计 (status ] 一 0) 
mexWarnoMsgTxt(rNot enough space，String is truncated .71 


ubpetcase[buf); 


tmp 一 mxCrcateStringtbuf)y 
mxSetCell(plhs[0]，nindex，tmp)1 
mxFreetbuf)) 
人 
else 
tmxSetCell(plhgs[04，nindex，mxDuplicateArray(cell _element _Pr77# 


} 
2. 程序 注 炎 


在 MATLAEBE 应 用 程序 接口 函数 库 中 , 提供 了 完善 的 库 函 数 ,包括 函数 mxGetCel、 
函 教 mxSetCell、 函 数 mxCreateCellArray 和 函数 mxCreateCellMatrix, 用 来 完成 对 
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MATLAB 单元 阵列 的 访问 和 创建 ,使 用 它们 可 以 方便 地 对 MATLAB 单元 阵列 数据 对 
象 进 行 操作 .与 对 MATLAEB 结构 体 的 操作 相 则 ,所 有 从 MATLAB 环境 中 传 向 C 语言 环 
境 的 MATLAB 单元 阵列 数据 均 为 mxArray 类 型 ,这 一 点 必须 非常 注意 ,因为 在 MAT- 
LAB 中 ,单元 阵列 的 所 有 元 素 同 样 为 一 个 阵列 。 

程序 uppercase. ec 是 一 个 典型 的 C 语言 MEX 程序 ,主要 由 计算 子 例 行 程序 和 和 人 口子 
例 行 程 序 组 成 ,其 功能 是 将 输入 的 MATLAB 单元 阵列 中 的 所 有 字符 串 类 型 的 元 素 都 转 
换 为 大 写 形式 ,而 对 于 其 他 的 数据 类 型 原封 不 动 地 保留 ,程序 的 各 部 分 功能 如 下 : 

程序 段 (1) 完 成 了 对 一 些 必 须 的 头 文件 如 mex.h 和 string.h 的 包含 ,并 且 定义 和 声 
明 用 于 完成 字符 串 大 写 化 的 计算 子 例 行 程序 ,该 程序 通过 指针 来 完成 与 人 口子 例 行 程序 
的 数据 交换 任务 。 

程序 段 (2) 为 标准 的 C 语言 MEX 文件 人 口子 例 行 程序 的 声明 语句 , 为 固定 格式 。 

程序 段 (3) 对 程 岸 中 使 用 的 各 类 型 变量 进行 了 声明 ,其 中 mxArray 结构 体 指针 变量 
cell _element _pPr 和 tmp 分 别 用 来 存放 从 输入 的 单元 阵列 中 获取 的 数据 和 向 输出 的 单元 
阵列 写 人 的 数据 。 

程序 段 (4) 主要 用 于 完成 对 输入 和 输出 变量 的 检查 ,该 程序 要 求 必须 有 一 个 输入 , 输 
出 不 得 多 于 一 个 ,而 且 输 人 参数 必须 为 单元 阵列 类 型 ,否则 程序 将 报错 并 退出 。 

程序 段 (5) 使 用 函数 mxGetM 和 函数 mxGetN 获取 输入 单元 阵列 的 行 数 和 列 数 ,并 
以 它们 为 参数 使 用 函数 mxCreateCellMatrix 创建 一 个 单元 阵列 矩阵 。 

程序 段 (6) 是 程序 中 最 为 重要 的 一 个 部 分 。 它 由 一 个 for 循环 组 成 ,在 循环 体 中 ,首先 
使 用 函数 mxCalcSingleSubscript 和 函数 mxGetCell 从 输 人 的 单元 阵列 中 取出 数据 , 并存 
放 于 mxArray 类 型 的 指针 变量 cell _element .pr 中 :然后 对 取出 数据 的 类 型 进行 判断 ， 
如 果 为 字符 串 类 型 则 调用 计算 子 例 行 程序 ,全 部 转换 为 大 写 , 再 利用 返回 的 数据 写 人 用 于 
输出 的 单元 阵列 ;车 数据 为 非 字符 串 类 型 , 则 保留 不 动 , 原样 写 人 输出 单元 阵列 ,这 里 注意 
函数 mxDuplicateArray 的 使 用 , 它 构建 了 一 个 指针 变量 cell _element _ pr 的 副本 ,用 于 
输出 ,这 个 步 葬 非常 必须 ,否则 ,程序 编译 通过 后 执行 时 ,会 出 现 大 量 的 警告 信息 。 

程序 中 所 使 用 函数 的 详细 使 用 说 明 ,请 参见 3. 7,3. 8 节 。 


3. 运行 结果 
对 程序 uppercase.e 进行 编译 得 到 可 执行 的 uppercase. dll 文件 后 , 即 可 在 MATLAB 


命令 提示 符 下 键 人 如 下 的 命令 ， 


?有 Al， 1) 一 fasdf)j At 2 一 15) 
? A(2，1)》 一 fbjktr ) 六 (2，2) 一 【一 5}# 
?5 一 uppetcase( 上 内) 


回 车 后 就 可 以 得 到 如 下 结果 ， 


一 


'ASDF' 【5] 
'HJKL [一 5] 


3.2.5 避 语 言 MEX 文件 对 不 同位 数 数据 的 操作 
在 C 语 言 MEX 文件 中 ,用 户 可 以 创建 和 操作 多 种 类 型 的 数值 型 数据 ， 例如 有 符 导 的 


第 3 章 《语言 MEX 文件 的 编写 53 。 


8 位 .16 位 和 32 位 数据 以 及 无 符号 的 8 位 .16 位 和 32 位 数据 。 在 MATLAEB 的 应 用 程序 
接口 中 ,提供 了 一 系列 的 库 函 数 用 以 支持 对 这 些 数据 类 型 的 操作 ,其 中 函数 mxCreateNu- 
mericArray 用 来 刨 建 一 个 指定 维 数 、 指 定数 据 类 型 积 指定 元 素 个 数 的 数值 阵列 ,数据 类 
型 通过 函数 的 一 个 mxClassID 类 型 输入 参数 确定 ,mxClassID 为 枚 举 类 型 ,在 头 文 件 ma- 
trix.h 中 进行 声明 ,其 具体 的 定义 如 下 ， 


typedef enutm 

《 
ImXCELL _CLASS 一 1， 
ImxSTRUCT _CLASS， 
mxOBJECT _CLASS， 
ImxCHAR CLASS， 
TDXSPARSE _CLASS， 
mxDOURI.E _CLASS， 
InxSINGLE _CLASS， 
InxINT8 _CLASS， 
mxUINT8 _CLASS， 
mxINT16 _CELASS， 
mxUINTI6 _CLASS， 
ImxINT32 _CLASS， 
InxUINT32 _CI-ASS， 
mxINT64 _CLASS， 
mxUINT64 _CLASS， 
mxUNKNOWN _CLASS = 一 1 

} mxClassIDsy 


在 函数 mxCreateNumericArray 中 ,可 以 使 用 除 mxSTRUCT _ CLASS，mxCELL 
CLASS 和 inxOBJECT _CLASS 之 外 的 所 有 值 : 画 数 mxGetImagdata 和 mxGetData 则 
分 别 用 来 获取 用 户 所 创建 的 阵列 的 患 数 数据 指针 和 实 教 数据 指针 . 用 户 可 以 使 用 C 语言 
对 这 些 数据 进行 数学 运算 ,然后 将 结果 回 传 给 MATLAB, 虽然 目前 在 MATLAB 环境 
中 ,还 没有 提供 任何 对 以 上 这 些 数 据 类 型 的 数学 运算 和 操作 函数 ,但 是 MATLAB 可 以 正 
确 地 接受 这 些 数据 , 并 且 显 示 它 们 。 下 面 是 一 个 非常 简单 的 操作 16 位 无 符号 数 的 MEX 文件 
源 程 序 , 它 对 所 有 的 数据 进行 模 5 运算 , 由 于 程序 较为 简单 , 所 以 不 对 程序 进行 详细 的 解释 ， 


/sx 头 文 件 * 7 

提 include <<string,h>> 
##jnclude 必 math.h 
#include ”tmex, hb 


/xy 密 定 义 7 
共 define NDIMS 2 
并 define TOTAL _ELEMENTS 4 


/xx 计算 子 例 行 程序 * / 
void mod5(unsigned short *#X) 
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tnsigned short div 一 5# 
int i，jj 
forti 一 0)i<41 十 十 ) 
{ 
#《x 十 i) 一 #(x 十 iD) 好 div， 
} 
} 


/x 人 口子 例 行 程序 * 7/ 
void mexFunction int nlhs，tmxArray * pihs 门 ， 
int nrhs ，const mxArray # prhs[L]) 

{ 

/x+ 变量 定义 * 7 

const int ditms[] 一 12,2}4 

unsigned char # start _of _pri 

unsigneqd short data[] 一 {56,23,31,47}3 

int bytesg _to _copy! 


/7 调用 计算 子 例 行 程序 * / 
Imod5(data)1 


7/* 创建 一 个 2X2 的 无 符 导 16 位 整数 * / 
plhs[0] = mxCreateNurmericArray(NDIMS，,dims， 
mxUINT16 CLASS ,mxREALD7+ 


/* 为 创建 的 矩阵 的 实数 部 分 在 值 * / 

start _of _ pr 一 《unsigned char * )mxGetPr(plhs[0]) 

bytes _to _copy = TOTAL _ELEMENTS * mxGetElementSize(plhs[0])， 
memcepy(atart _of _ pyydatav,bytes _to _copy)1 


} 
对 该 程序 编译 后 直接 在 MATLAB 命令 提示 符 下 键入 文件 名 就 可 以 得 到 运行 结果 ， 


? iod5 

arms 一 
1 1 
3 2 


3.2.6 CC 语言 MEX 文件 对 复数 的 操作 


复数 阵列 是 MATLAB 最 基本 的 处 理 对 象 . 当 在 MATLAB 工作 环境 中 时 ,对 复数 阵 
列 的 处 理 非常 简单 ,只 需 将 该 阵列 视 为 一 个 整体 ， 直接 进行 计算 和 处 理 即 可 ;而 在 C 语言 
中 ,没有 提供 对 复数 类 型 的 支持 ,在 对 复数 进行 处 理 时 ， 必须 将 复数 分 为 实 部 和 串 部 进行 
分 别 计算 。 所 以 在 MATLAEB 应 用 程序 接口 中 分 别 为 实 部 和 虑 部 的 处 理 提供 了 相应 的 库 
函数 对 ,包括 mxGetPr 和 mxGetPi,mxSetPr 和 mxSetPi。 MATLAB 为 用 户 提供 了 一 个 
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结构 非常 清晰 的 对 复数 进行 操作 的 MEX 文件 源 程 序 convec.c, 其 功能 为 完成 两 个 复数 
阵列 的 着 积 运算 。 该 文件 存放 于 目录 


MATLAB 根 目 录 N\EXTERNNEXAMPLESNREFBOOK 
下 。 下 面 将 程序 显示 如 下 ,并 在 程序 中 通过 注释 作 一 些 简 单 的 说 明 。 
7+ 头 文 件 * 7 


共 include "mmex, hy 


/x 计算 子 例 行 程序 * / 
vOid convec(g double # xr，double + xi int nx， 
double * yry double *yi， int ny， 


doubie x* zr，double #*zi) 


/* 变量 的 初始 化 * 7 
int ij 

zr[0]=-0.0) 

zi[0] 一 0.0 


7# 复数 向 量 的 卷 积 运算 * / 
forfki 王 0; ic<nxsgy i 十 十 ) 
{《 
fortj 一 0 j<nyi j 十 十 ) 
{ 
关 【《ZT 十 i 十 j》 一 +《zz 十 i 十 j)》 十 关 《xT 十 i)》 # 关 《YT 十 ])》 一 雪 《Xi 十 i》 关 洁 《Yi 十 31 
关 【《2zi 十 i 十 i 一 #《zi 十 i 十 j)》 十 <*《xr 十 认 < 闪 【 史 十 j) 十 #《xXi 十 iD # 二 《CSYF 十 3 


} 


/*# 人 口子 例 行 程 序 * / 
void mexFunction( int nihs ，mxAxrray x plhs[]， 
int nrhs ，const mxArray * prhs[] ) 


toublie 尖 XT， 其 总 19 其 9T? 长 也》 内 了 TFT9 关 Zi 


int toOws，Ccols，nXy，Dy; 


/* 检查 输出 输 和 人 变量 的 个 数 * / 
让 ntrha 1 一 2) 
rmexErrMsgTxt(C"Two inputs reqtuired.7)5 
在 Cnlhe > 1) 
mexErrMsgTxttzToo tmany Output ar 多 UIents ”7 


/+ 检查 输 人 是 否 为 向 量 * / 
让 ( tnxGetM(prhs[0]) 1 一 1 1 mxGetMCprhsL13) 1 一 工 ) 
mexErrMsgTxtt*Both inputs maust be fow vectors. ”7 
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TOws 一 1# 


7# 确认 所 有 输入 为 复数 类 型 * 7/ 
放 ( ! tmxIsCompiex(prhs[0])》 | ! mxJsComplex 人 prhs[L1]) > 
ImexErrMasgTxt(7Inputs must be complex, nn )5 


/+# 获得 输入 变量 的 元 素 个 数 + / 
nx 一 InxGetN(prhsL0O])# 
ny 一 mnxGetN(Cprhs[1]); 


/* 获得 指向 输入 参数 实 部 和 虚 部 数据 的 指针 * / 
xr 一 mxGetPr(prhs[0]); 
xi 一 tnxGetPi(prhs[0])7# 
yr 一 中 xGetPrCprhs[1])) 
丙 = mxGetPigptha[I]); 


/* 构造 输出 矩阵 ,并 获取 实 部 和 虚 部 数据 的 指针 * / 

colg 一 nx 十 ny 一 1 

plha[0] 一 mxCreateDoubleMatrix (rows ，cols，mXCOMPLEX)) 
2 一 mxGetbrCplhs[0]); 

zi 一 tmxGetbPi(plhs[0]); 


/* 调用 计算 子 例 行 程序 * / 


CDhyvec[xT，Xij，nx yre， yi iny，Zzr) Zi》; 


ketuTn; 
} 
对 该 程序 编译 后 键 人 如 下 命令 执行 后 结果 为 
2 x 一 [3,000 一 1.000i，4. 000 十 2.000i，7. 000 一 3 000i]; 
? y 一 [8. 000 一 6.000i，12. 000 十 16. 000i，40, 000 一 42. 000i] 
? z 一 conyec(XKyy) 
二 


1. 0e 十 002 * 
Columna 1 through 4 
0. 2400 0 一 0,.2600 0.6200 十 06400 2.0400 一 0.3600i 


Columns 5 through 8 
0. 1I600 一 1.4400i 1.8400 十 1.92007 4.1200 一 2.0400 0 一 4.1400 


Colutnn 9 
一 1.2600 


3.2.7 C 语言 MEX 文件 对 稀疏 和 华 阵 的 操作 


稀 琉 矩阵 (sparse array) 是 MATLAB 中 一 种 较为 特殊 的 阵列 类 型 ,其 存储 方式 同 党 


规 阵 列 存 在 着 较 大 的 差别 ,详细 说 明 请 读者 参见 1. 2. 1 节 内 容 。 在 C 语言 的 mxArray 结 
构 体 的 声明 中 ,专门 针对 稀 朴 矩阵 而 作 了 相应 的 设计 。 当 判 断 一 个 些 阵 为 稀 梳 矩阵 时 , 除 
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了 常规 的 参数 pr 和 pi 外 ,还 使 用 了 另外 三 个 参数 ,分 别 为 anz,ir 和 je, 它们 各 自 的 含义 
请 读者 参见 2.1. 3 节 内 容 . 在 MATLAB 的 应 用 程序 接口 效 数 库 中 ,为 用 户 提 供 了 一 系列 
的 库 函 数 , 允许 用 户 在 C 语言 MEX 文件 中 方便 地 创建 和 操作 稀 柱 矩阵 ,其 中 师 数 mxGe- 
tIr .mxGetJc .mxSetIr 和 mxSetjc 就 分 别 用 来 获取 和 设置 稀 下 矩 阵 参 数 ir 和 jc 的 值 ,而 
mxCreateSparse 则 用 来 创建 一 个 稀 玻 和 矩阵。 下面 以 一 个 极为 简单 的 例子 程序 dhl . 
sparse.e 来 说 明 如 何 使 用 C 语言 MEX 文件 对 稀 玻 矩阵 进行 操作 。 在 该 程序 中 ,首先 从 用 
户 输 人 得 到 一 个 稀疏 矩阵 ,然后 获取 其 各 参数 ,并 对 所 有 的 非 零 元 素 进 行 加 倍 ,然后 再 创 
建 一 个 新 的 稀 琉 矩阵 ,将 计算 后 的 结果 赋值 给 该 矩阵 并 输出 ,程序 较为 简单 ,因此 仅 在 程 
序 中 加 以 注释 。 


/ax# 头 文 件 包 含 * 7/ 
划 include <<string.h 盖 
提 inctude "mex. hy 


/x 宏 定 义 , 用 于 限定 舌 下 矩 笑 的 大 小 及 非 零 元 素 个 数 * / 
#define NZMAX 4 

井 define ROWS 4 

##define COLS 2 


/* 计算 子 例 行程 序 , 用 于 将 输入 稀 琉 炬 阵 的 非 零 元 素 加 倍 * / 
yoid dbl _elemkdouble etem[L]， int b) 
{ 
int ii 
forti 一 0;1< ni i 十 十 ) 
elem[i] 一 2 x* elem[i]; 
工 etMTD 


} 


7x 人 口子 例 行 程序 * / 
void mexFunction ( int nihs，mxArray # plhs[]， 
int nrhs ，const mxtrray # prhs[] ) 


了 
1 


/# 定义 各 种 变量 * /7 
double =*pYr _data; 
int 凡 证 _ dat8， 
int #jc _data; 
doubie  #Px : 


int nz _elem， 吕 1 


/* 检查 输 和 人 连 出 参数 的 个 数 * / 
inrhs ! 一 1) 
mexErrMsgTxt(2Two inputs required.”)i 
让 《nihs > 1) 
mexErrMsgTxt (Only one eutput requjred. An ); 
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/* 检查 输入 矩阵 是 否 为 稀 朴 和 矩 阵 * / 
这 《1 mxIsSparsekprhs[G])) 
DeXEIrYMSRTxtkrInpPut rnust be a sparse matri 和 。Nnn )# 
/x* 检查 输入 稀 槛 和 阵 的 非 脸 元素 个 数 是 否 超标 * / 
hz _elem 一 mxGetNzmaxprhs[0])5 
这 (nz _elem > NZMAX) 


texErrMsgTxtCrThe nonzeos elements are too Imuch. mr 7; 


/*# 检查 输入 稀 梳 矩阵 的 行列 数 是 否 超标 * / 
m 一 mxGetM(prbs[0])， 
n 一 mxGetN (prhs[0]j)， 
主 (m > ROWS 1 n > COLS) 
mexErrMsgTxtk"The sparse matrix is too big. ay)1 


/x# 获取 输入 舌 琉 矩阵 的 各 种 参数 * / 
pr _data 一 mxGetPr(prhs[0])》， 

ir _data 一 mxGetIr(prhs[0]); 

je __data 一 mxCGetjckprhs[0])5 


/* 调用 计算 子 例 行程 序 , 加 倍 非 零 元 素 * / 


dbl _elem( 人 pr _datay， nz _elern); 


/x* 创建 一 个 输出 稀疏 矩阵 ,并 且 命 名 为 "Sparse” * / 
plhs[0] = mxCreateSparsetm ny， nz _elem，PXREALJDy 


mxSetName(plhs[0],”"Spbarse" )5 


/* 为 新 创建 的 稀 玻 矩阵 赋值 * / 
px 一 ImxGetPrCplhs[0]); 
memcbpyk(void * )px，(void #* )pr data nz _elem # sizeof(dqouble)73 


/* 为 新 创建 的 稀 玻 扰 阵 构 造 行 索引 * / 


memcby(kvoid + )mxGetIr(plhs[0]》，(void *# )ir _datay nz _elem * sizeof (int》)# 


/* 为 新 创建 的 稀 琉 矩阵 构造 列 索引 * / 
memcpytKvyoid # )tmxGetJctplhs[0])，(void = )jc _data， nz eetm “} sizeofkint》)3 


YetDrDr+ 


对 该 文件 编译 后 , 键 人 如 下 命令 可 以 得 到 输出 为 : 


? a=[5.9 0;0 5.946.2 0;0 6. 2]; 妆 创建 普通 抢 阵 
? b 一 sparse(Ka)1 凶 转 北 为 称 朴 矩阵 
? cx 一 db! _sparse(b) 
c 二 
《1 1) 23. 6000 
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(3,1) 24, 8000 
〈2，2) 23. 6000 
《4，2) 24, 8000 


3.2.8 C 语言 MEX 文件 对 多 维 阵 列 的 操作 


多 维 阵列 (multidimension array) 是 MATLAB V5.0 以 后 的 系统 提供 的 一 种 新 型 的 
数据 类 型 ,在 本 书 的 1. 2. 1 小 节 中 已 经 对 阵 中 数据 类 现 进 行 了 一 定 介 绍 .在 MATLAB 应 
用 程序 接口 中 ,为 了 完成 与 C 语言 MEX 文件 交换 多 维 阵 列 数据 信息 的 任务 ,接口 提供 了 
完善 和 丰富 的 库 函 数 ， 下 面 以 例子 程序 dbl _multi. e 来 说 明 在 C 语言 MEX 文件 中 对 多 
维 阵列 的 创建 和 操作 , 该 程序 从 用 户 输入 获得 一 个 三 维 的 多 维 阵列 ,从 其 中 获得 各 种 参 
数 ,并 创建 一 个 同样 大 小 的 三 维 阵列 ,将 所 有 的 阵列 元 兹 加 倍 后, 赋 给 新 的 阵列 。 该 程序 ， 
不 同 于 典型 的 C 语言 MEX 文件 , 它 没有 计算 子 例 行 程序 ,所 有 的 任务 均 在 人 口子 例 行 程 
序 中 完成 ,可 以 看 出 计算 子 例 行 程序 不 一 定 是 必须 的 。 但 是 作者 强烈 建议 严格 按 格 式 编 
写 , 因 为 这 样 使 程序 的 结构 清晰 ,有 利于 阅读 和 修改 。 


/x 藉 文 件 包含 * / 


##inelude "mex, bn 


/+# 人 口子 例 行 程序 * / 
void zexFunection (int nlbhs ，ImxArray xpPlhs[]， 
int nths ，const mxArray # Prhs[]》 
{ 
/* 变量 定义 * 7/ 
double #* PrIx，+* pry! 
int ndims ，i，ele _nutms 


const int xx dimss 


/* 检查 输 和 人 输出 参数 的 个 数 以 及 输入 参数 的 类 型 * / 
放 ( nrhs! = 1 
tnexErrMsgTxt(One input requiredl")5 
else 这 (plhs 盖 1) 
mexErrMsgTxtkrToc many cutput argEumentslw 7# 
else 让 《! mxjsNumetic 人 prhs[O]))》 
tmexErtrMsgTxt(sJnput must be nutnerici ); 


/# 判断 输入 多 维 阵列 的 维 数 * / 
ndims 一 mxGetNumberDfDimensions (prhs[L0]) 
让 (ndims 上 一 3) 
mexErrMsgTxtk*TInput dimensions Imust be threel” )5 


/* 获取 多 锥 阵列 每 一 维 的 大 小 和 总 的 元 素 个 数 * / 
dims 一 tmxGetDimensions(prhs[0]) 
ele _nuim 一 mxGetNumberOftEiements (prhs[0]j)s 
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/* 构造 新 的 多 维 阵列 ,为 非 复数 的 double 类 型 * / 
plhs[t0j = mxCreateNutnaericArrayfndims，ditns ，mxDOUBJE CLASS，mxREAL)， 


7 获取 数据 指针 * / 
prx 一 mxGetPrprhs[0]); 
Pry = mxGetPr(plhs[0]); 


7*# 完成 元 素 加 倍 功 能 * 7/ 
for 和 一 0i<ele_numii 十 十 》 “ 
{ 

# [pry 十 让 一 #(prx 十 ix 2 
Feturni 


)》 


上 


程序 编译 后 ,在 MATLAE 命令 提示 符 下 键 人 如 下 命令 ,可 得 ; 


?8 := randn(3,3,3) 


af 针 ) 一 
一 0. 4326 0. 287? 1 1892 
一 1,.6656 一 1. 1465 一 0. 0376 


0, 1253 1.1909 0, 3273 


af 392) 盖 
0. 1746 ”一 0.5883 0,. 1139 
一 0.1867 2. 1832 1 0668 
0,.7258 ”一 0.1364 0. 0593 


as3) 一 
一 0.0956 一 1.3362 一 0. 6918 
一 0.8323 0. 7 了 143 0.8580 
0, 2944 1. 6236 工 2540 


?hb 一 dhbl 一 multika) 
bt:'y:，1) 一 
一 0. 8651 0. 5754 2. 3783 
~3.3312 ”一 2.2929 ”一 0.0753 
0 29507 2. 3818 0.8546 


b(:,:y2) 一 
0.3493 ”一 1 1766 0. 2279 
一 0. 3734 4. 3664 2.1335 
1.4516 ”一 0.2728 0. 1186 


bf{《 8 2 73) Ed 
一 0,1913 ”一 2.6724 ”一 1.3836 
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一 1.66d47 1 4286 1.7160 
0,.5888 3. 2471 2.50810 


randn 函数 为 产生 一 个 正 态 分 布 的 随机 多 维 阵列 ,读者 在 使 用 时 可 能 得 到 与 以 上 不 
相同 的 结果 。 


3.2.9 CC 语言 MEX 文件 对 MATLABH 函数 的 调用 


通过 调用 MATLAB 应 用 程序 接口 画 数 mexCallMATLAB, 用 户 可 以 在 C 语言 
MEX 文件 中 调用 各 种 各 样 的 MATLAB 函数 ,包括 各 种 MATLAB 运算 符 ,. 内 建 函数 以 
及 用 户 自 定 义 的 MATLAB M 文件 , 潘 盖 面 非常 广泛 ,为 用 户 提供 了 极 大 的 方便 性 。 下面 
通过 一 个 简单 的 例子 来 说 明 如 何在 C 语言 的 MEX 文件 中 调用 MATLAB 函数 .程序 call 
_matlab.ec 的 功能 是 读 人 一 幅 图 像 并 显示 ,该 程序 也 不 是 典型 的 C 语言 MEX 文件 。 

/# 头 文件 包含 * 7/ 


并 让 clude ”mex. hy 


/*# 人 口子 例 行 程序 * / 


void InexFunctiont int nihs ，mxArray * pljhs[]， 


{ 


} 


int nrhs ，const ImnX 上 Array # Ptbhs[] 》 


/=* 检查 输 人 输出 参数 的 数量 以 及 输入 参数 的 类 型 * / 
inrhgs ! 一 1]) 

timexEttMsgTxt(rOne input requiredjl" )5 
eljse 过 《 nlha > 1 ) 

mexErrMsgTxtC"Too inany Output argurments1m ); 
else 计 (! mxJlsChar(prhst0])) 

ImeXErrMsgTxtk*Input must be stringl”)3 


/# 调用 imread 画 数 , 读 人 图 像 * / 
mexCallIMATLAB(1I，plha，1，prhs ，"imreaq” ) 


/ax# 调用 imshow 函数 ,用 于 显示 图 像 * / 
mexCallMATLAB(0，NULL，1，plhs，”imshow”)3 


Tetut 垃 





对 该 文件 编译 后 , 键 人 如 下 命令 执行 ， 3.2 moon ti 


? call _ Imatlab( moon.ti )# 


MATLAB 将 显示 如 图 3. 2 的 图 形 。 


3.3 C 语言 MEX 文件 的 内 存 管 理 


C 语言 MEX 文件 的 内 存 管理 与 常规 的 C 语言 应 用 程序 的 内 存 管理 有 一 定 的 相似 之 
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处 ,但 是 由 于 MEX 文件 的 某 些 特殊 性 ,例如 它 并 非 独立 运行 ,而 是 在 MATLAB 系统 的 
上 正文 环境 之 中 执行 ,所 以 对 于 MEX 文件 的 内 存 管 理 存 在 着 一 些 特殊 的 考虑 。 


3.3.1 自动 内 存 释 放 


自动 内 存 释 放 是 MATLAB 系统 提供 的 一 种 内 存 管 理 机 制 , 当 一 个 MEX 文件 执行 
完毕 返回 MATLAB 之 后 ,除了 以 输出 参数 列表 plhs[] 形 式 返 回 给 MATLAB 的 计算 结 
果 外 ,任何 在 MEX 文件 执行 过 程 中 创建 和 使 用 的 临时 mxArray 结构 体 类 型 对 象 均 被 自 
动 删 除 , 并 且 任 和 何 生 用 mxCalloc 函数 .mxMallioc 王 数 和 mxRealloc 冰 数 在 MEX 文件 执 
行 过 程 中 分 配 的 内 存 区 域 同样 将 被 自动 释放 ,而 无 须 像 C 语言 中 那样 必须 显 式 地 释放 。 

不 过 一 般 情 况 下 ,MATLAB 建议 用 户 在 MEX 文件 中 ,使 用 MATLAB 应 用 函数 库 
所 提供 的 库 函 数 , 包 括 mxDestroyArray 和 mxFree, 显 式 地 清除 文件 中 所 使 用 的 临时 
mxArray 对 象 和 动态 分 配 的 内 存 , 因 为 使 用 这 种 方法 的 效率 要 远 远 高 于 依 舍 自动 内 存 帮 
放 机 制 来 清除 内 存 的 效率 。 但 是 在 以 下 一 些 特 殊 情 况 下 ,MEX 文件 不 会 正常 地 结束 ， 

。 当 发 生 调 用 API 本 数 mexErrMsgTxt 时 ; 

。 当 调用 API 函数 mexCallMATLAB 产生 错误 不 能 正常 执行 时 ; 

。 用 户 使 用 热 键 Ctrl-C 强行 终止 程序 的 运行 时 

。 当 MEX 文件 用 完 所 有 的 内 存 时 ,MATLAB 系统 的 内 存 耗 尽 句柄 将 立即 终止 妆 

前 MEX 文件 的 执行 。 

若 这些 和 情况 发 生 ,用 户 MEX 文件 中 的 内 存 管理 语句 将 不 会 产生 任何 作用 ,从 而 有 可 
能 导致 内 存 洒 漏 的 发 生 。 对 于 一 个 小 心 谨慎 的 程序 员 来 说 ,在 发 生 第 一 种 和 第 二 种 情况 
时 ,仍然 可 以 安全 地 清除 所 有 的 临时 对 象 和 动态 分 配 的 内 存 ;但 是 当 发 生 第 三 种 和 第 四 种 
情况 时 ,就 无 能 为 力 了 ,这 时 只 有 依靠 自动 内 存 释放 机 人 制 来 完成 内 存 释放 的 任务 了 ,从 而 
保证 了 在 任何 情况 下 ,都 不 会 发 生 内 存 泄漏 (Memory Leak) 的 问题 。 

可 锡 自 动 内 存 释 放 机 制 是 一 种 非常 有 效 的 内 存 管 理 方法 ， 


3.3.2 持久 阵列 (persistent arrays) 


持久 阵列 是 MATLAB 提供 的 一 种 内 存 变量 对 象 , 既 可 以 是 一 个 阵列 也 可 以 为 一 个 
内 存 片段 , 它 可 以 免 巴 被 MATLAB 所 提供 的 自动 内 存 三 放 机 制 所 释放 ,通过 使 用 MAT- 
LAB 应 用 程序 接口 所 提供 的 库 函 数 mexMakeArrayPersistent 和 mexMakeMemo- 
ryPersistent 可 以 对 持久 阵列 对 象 进行 定义 。 然而 ,持久 阵列 的 创建 是 一 件 非 常 危 险 的 事 
情 ,如 果 在 MEX 文件 退出 之 前 ,没有 将 持久 阵列 对 象 清除 ,就 会 导致 内 存 的 泄漏 。 为 了 如 
免 这 种 情况 的 发 生 ,MEX 文件 要 求 在 创建 持久 阵列 对 象 的 同时 对 使 用 API 函数 mexA- 
tExit 注册 一 个 函数 ,该 函数 用 来 完成 持久 阵列 对 象 的 释放 工作 。 例 如 在 以 MEX 文件 
中 ,所 定义 的 持久 阵列 对 象 persistent _array _ptr 通过 函数 cleanup 进行 了 正确 的 释放 。 

/x# 头 文件 包含 * 7/ 

#ipcelude "mex.h” 

/x 全 局 变量 定义 * 7/ 

static int initialized 一 人 0 

statjic mxArray # Persistent _array _Ptr 一 NULL3 
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/x# 持久 阵列 对 象 清除 玫 数 * / 


yoid cleanup void) 

{ 
mexbrintfK"M 疡 X-file 记 terminating，destroying artayNn 1 
ImXDestroy 凡 rrayKPpersistent _array _Ptr74 


} 


/* 人 口子 例 行 程序 * / 
void ImexFunetion (int hlhs ,mxArray x blhas[t]， 
int nrhs ;const tmxArray * Prhs[]) 
{ 
证 【! initialized》 
{ 
mexPrintf(*MEX-file initializing ，creating arrayNny) 


/* 创建 持久 阵列 对 得 * 7 
Persistent _atfay _PtT 二 mxCreateDoubleMatrix(1，1，mXREAL); 
mexMakeArrayPersistent(persistent _atray _Ptr75 


/x 注册 clearup 西数 * 7/ 
mexAtExitKcleanup71 


initialized 一 14 

# IIXxCetPr(petsistent _array _ ptt)》 一 1.03 
} 
else 
{ 

mexPrintf("MEX-file executing!， Value of first artay 

element 1 多 gNn ，* ImxGetPrtpeTsistent _array _ptr7)5 
} 
} 


此 外 同样 可 以 使 用 API 函数 mxAtExit 来 释放 其 他 一 些 资源 。 
3.3.3 复合 阵列 


在 MATLAB 应 用 程序 接口 函数 库 中 ,包含 了 大 和 量 的 可 以 直接 将 内 存 段 赋值 给 
mxArray 结构 体 对 象 的 陋 数 ,如 mxSetPr,mxSetData,mxSetPi,mxSetCell 等 。 对 于 这 些 
内 存 段 的 清除 工作 ,MATLAB 应 用 程序 接口 函数 库 提 供 了 相应 的 函数 mxDestro- 
yArray, 该 函数 在 清除 整个 mxArray 机 构 体 对 象 的 同时 将 所 有 分 配 的 内 存 段 清 除 。 但 是 
这 并 不 是 非常 可 敬 , 因 为 对 于 某 些 阵 列 来 说 ,并 不 能 用 函数 mxDestroyArray 来 消除 , 复 
合 阵列 (hybrid array) 就 是 这 样 一 种 阵列 ,在 这 种 阵列 的 内 存 中 ,证 存在 可 清 路 的 内 存 纂 ， 
同时 也 存在 不 可 清除 的 内 存 段 , 例 如 C 语言 中 的 自动 变量 (automatic vatiable) 就 是 一 种 
典型 的 不 可 清除 的 内 存 段 , 它 既 不 可 以 用 MATLAB API 的 库 函 数 mxFree 进行 消除 ,也 
不 可 以 用 标准 的 C 语言 函数 free( ) 来 进行 清除 。 例 如 下 面 的 代码 
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mxArray +#pArray 一 mxCreateDoubieMatrix(0，0，mxREAL3》I 
doeubie data[10]; 

ImXxSetPrCPArray，datay》; 

InxSetM(PArray，17)3 

mxSetN(CpArray，10)， 


定义 了 一 个 名 为 pArray 大 小 为 1X10 的 复合 阵列 ,其 内 容 是 一 个 普通 的 doubie 类 型 的 
自动 变量 数组 。 另 外 一 种 典型 的 复合 阵列 是 具有 一 个 或 多 个 只 读 的 阵列 域 的 单元 阵列 和 
结构 体 阵 列 , 这 里 只 读 阵列 是 指 那 种 具有 常量 限定 符 的 阵列 ,例如 MEX 文件 的 输入 阵列 
就 是 一 种 只 读 阵列 。 

正 是 由 于 复合 阵列 不 能 被 清除 ,所 以 它们 也 不 能 被 前 面 所 讲述 的 内 存 自动 清除 机 制 
所 清除 ,因此 不 正确 地 使 用 复合 阵列 有 可 能 导致 MEX 文件 的 项 溃 , 所 以 建议 读者 尽量 避 
免 使 用 复合 阵列 ,虽然 它 的 使 用 较为 方便 。 


3.4 C 语言 MEX 文件 的 建立 


在 3.2 和 3.3 节 中 ,我 们 分 别 讲述 了 基于 C 语言 的 MEX 文件 的 编写 和 C 语言 MEX 
文件 的 内 存 管理 。 在 本 节 中 ,我 们 将 对 CC 语言 MEX 文件 的 建立 进行 讲述 ,使 读者 全 面 掌 
握 C 语言 MEX 文件 的 使 用 。 


3.4.1 忆 语 言 MEX 文件 的 建立 


在 第 二 章 第 一 节 对 MEX 文件 的 简单 介绍 中 , 提供 了 一 种 极为 简单 的 MEX 文件 的 建 
立方 法 , 即 直接 使 用 mex 命令 ,并 在 其 后 加 上 所 希望 编译 的 MEX 文件 的 源 文 件 名 ,具体 
格式 如 下 ， 


Inex <<MEX 文件 名 > 
其 使 用 条 件 是 已 经 使 用 命令 


Tnex-Setup 


对 默认 的 选项 文件 进行 了 正确 的 配置 。 对 于 一 般 的 应 用 来 说 ,这 已 经 足够 了 ,但 是 如 果 用 
户 希 望 进行 一 些 高 级 的 操作 ,例如 创建 一 个 新 的 选项 文件 用 于 支持 MATLAB 系统 没有 
于 接 予 以 提供 支持 的 编译 器 ,或 者 对 编译 过 程 施加 更 多 的 控制 ,这 时 使 用 以 上 格式 就 无 能 
为 力 了 。 

然而 ,mex 命令 是 一 个 功能 非常 强大 的 工具 ,以 上 命令 格式 仅仅 是 其 最 简单 的 一 种 应 
用 方式 , 它 拥 有 大 重 的 命令 控制 参数 ,通过 设置 这 些 参数 ,允许 用 户 使 用 不 同 的 手段 来 完 
成 不 同 的 任务 ,例如 通过 使 用 参数 -f, 用 户 可 以 选择 指定 的 选项 文件 对 源 程 序 进行 编译 ， 
通过 使 用 参数 -g 可 以 让 生成 的 MEX 文件 包含 调试 信息 ,以便 进 行 调试 ,详细 的 参数 列表 
以 及 各 参数 功能 见 表 3.1, 在 MATLAB 命令 提示 符 下 也 可 以 通过 键 人 命令 


mex -h 


来 获取 帮助 。 


控制 参数 名 
-aTgchecK 


吧 


-D<name>[=- 
<def>] 


- 卫 <name 
-<file> 


-他 天 和 le> 


-BE 

=- 

-I< pathnatne 过 
-] <file> 
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江 3.31 mex 命令 控制 参数 表 


功 能 


用 于 MATLAS 应 用 程序 接口 函数 库 库 臣 数 的 参数 检查 ( 仅 用 于 C 语言 MEX 文件 》 
用 于 通知 编译 器 仅 对 舞 文 件 进行 编译 而 不 链接 


该 控制 参数 仅 腿 于 UNIX 和 Macintosh 平台 使 用 ,用 于 定义 避 预 处 理 释 序 中 的 宏一 
name> ,并 使 其 值 为 <-def>> 


该 参数 仅 限 于 克 indows 衬 台 使 用 ,用 于 定义 C 预 处 理 程 序 的 宏 <name>> 


当 该 参数 使 用 于 UNIX 和 可 indows 平台 时 ,其 含义 为 使 用 一 file> 所 确定 的 文件 为 选 
项 文件 , 当 该 选项 文件 不 在 系统 默认 的 路 径 和 当前 路 径 上 时 ,必须 明确 地 指出 选项 文件 
所 在 的 位 置 , 否 周 系统 将 报告 找 不 到 该 选项 文件 ,并 退出 编译 过 程 。 在 Windows 平台 上 ， 
当 对 mex 命令 进行 setup 后 ,就 可 以 忽略 该 参数 的 忌 用 ,直接 对 MEX 文件 进行 编译 。 

当 该 参数 使 用 于 Macintosh 平台 时 ,如 果 指 定 了 文件 <file>> ,那么 系统 将 该 文件 作为 
选项 文件 ,如果 没有 报 定 文件 <file> ,那么 系统 将 使 用 当前 自 录 中 的 文件 mexopts 作为 
默认 的 选项 文件 ,如 果 既 没有 指定 文件 <8le> ,在 当前 目录 中 也 没有 文件 mexopts, 那 委 
系统 将 在 路 征 <MATLAB 根 目录 >> NexternNscripts\ 寻 找 一 个 名 为 mmexobtg 的 选项 文 
御 , 如 果 该 文件 仍然 不 存在 , 则 系统 报 铺 


当 使 用 于 UNKX 平台 时 ,参数 会 义 为 使 用 文件 <fle> 作 为 选项 文件 ,并 且 按 次 序 搜索 
以 下 目录 ,并 县 使 用 最 先 匹 配 的 一 个 文件 ， 

* AN<filename> 

， 和 HOMENmatjabN<filename 人 > 

*。$TMW _ROOTNhbinN<filename> 
当 使 用 于 Windows 平台 时 ,参数 含义 为 使 用 文件 <file> 作 为 选项 文件 ,目录 的 搜索 次 
为 ， 

。， 当前 目录 

*。 mex, bat 文件 所在 的 路 径 


丈 立 一 个 包含 debug 信息 的 可 执行 的 MEX 文件 

列 出 帮助 信息 

功能 为 将 路 径 <pathname> 包 含 人 编译 器 的 搜索 路 径 
功能 为 将 MEX 文件 与 库 <file 之 链接 ( 仅 用 于 UNIX 平台 ) 


-L < 妇 pathname>> 功能 为 将 路 径 一 pathname> 包 含 人 库 函 数 的 搜索 路 径 ( 公 用 于 UNIX 平台 ) 


<name 盖 一 扫 def> 
-a 

-coutput <Dpame 

- 侣 

-setUP 

-U <<narme>> 

-V4 


，-Y 





使 用 于 UNIX 和 Macintosh 平台 ,用 于 重 载 选项 文件 的 变量 名 设置 <name> 
非 执行 标志 

创建 一 个 名 为 <name> 的 可 执行 文件 ,其 后 令 名 由 系统 自动 添加 

建立 一 个 优化 过 的 可 执行 文件 

用 于 设置 默认 的 选项 文件 

使 用 于 UNIX 和 Windows 平台 ,用 于 取消 C 预 处 理 程序 的 宏 定 义 <name>> 
建立 与 MATLAB V4 版 本 兼容 的 MEX 文件 

打印 所 有 的 编译 右 和 链接 器 的 设置 


对 于 使 用 过 上 语言 或 FORTRAN 语言 以 及 其 他 一 些 高 级 计算 机 语言 的 读者 来 说 ， 
可 能 已 经 知道 ,建立 一 个 源 程 序 的 可 执行 文件 一 般 来 说 ,可 以 分 为 两 步 , 即 编译 (compile) 
过 程 和 链接 (link) 过 程 , 对 于 MEX 文件 的 建立 来 说 ,同样 可 以 也 分 为 编译 和 链接 两 步 , 在 
编译 过 程 将 对 用 户 输入 的 源 程 序 进行 语法 和 语义 的 转换 ,判断 语句 的 正确 性 ,并 生成 目标 
文件 ;链接 过 程 则 是 对 编译 过 程 生成 的 目标 文件 进行 进一步 的 处 理 ,对 程序 中 所 使 用 的 静 
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态 或 动态 链接 库 函 数 进行 链接 , 并 生成 可 执行 程序 .对 于 Windows 平台 上 的 编译 过 程 , 略 
有 不 同 , 它 在 编译 过 程 和 链接 过 程 的 中 间 增 添 了 一 些 步 桶 , 称 之 为 预 链接 (pre-link 过程， 
用 来 完成 链接 过 程 前 的 一 些 准备 工作 。 

通过 表 3. 1 中 的 参数 ,用 户 可 以 对 MEX 文件 的 建立 过 程 进行 一 定 的 控制 ,但 是 如 果 
用 户 希 望 完全 地 、 自 定义 地 控制 整个 MEX 文件 的 建立 过 程 ,就 必须 对 所 使 用 的 选项 文件 
进行 收 改 了 .选项 文件 在 第 二 章 中 已 经 进行 了 一 定 的 介绍 , 它 包 含 了 针对 用 户 系统 上 某 种 
编译 器 的 编译 , 预 链接 和 链接 的 选项 信息 , 由 一 系列 的 变量 组 成 ,其 中 每 一 个 变量 代表 了 
MEX 文件 建立 过 程 中 的 一 个 步骤 。 

对 于 默认 选项 文件 的 存放 位 置 ,不 同 的 操作 系统 各 不 相同 .在 UNIX 操作 系统 中 ,该 
选 质 文件 存放 于 目录 <MATLAB 根 目 录 >\bin 中 :在 机 indows 操作 系统 中 ,该 选项 文 
件 存 放 于 目录 <MATLAB 根 目 录 之 \bin 中 ;而 在 Macintosh 系统 中 ,该 选项 文件 存放 于 
目录 <MATLAB 根 目 录 之 NEXTERNNSCRIPTSNFOLDER 中 。 

此 甸 对 于 选项 文件 的 定位 ,不 同 的 操作 系统 mex 命令 搜索 的 顺序 也 各 不 同 . 在 CNIX 
操作 系统 中 ,命令 将 首先 在 当前 所 在 的 目录 中 搜索 ， 默认 文件 名 为 mexopts. sh ,然后 在 用 
户 目 录 $HOMENmatlab 中 进行 搜索 ,最 后 搜索 县 录 <<matlab>\binl 在 Macintosh 操作 
系统 中 ,默认 的 选项 文件 名 为 mexopts ,mex 命令 执行 时 ,首先 在 当前 文件 夹 中 进行 搜索 ， 
然后 搜索 路 径 <MATLAB 根 目录 >>NEXTERNNSCRIPTSNFOLBPER.。 对 于 任何 系统 , 均 
可 以 使 用 mex 命令 参数 -f 来 指定 一 个 选项 文件 ,用 于 MEX 文件 的 建立 。 


3.4.2 基于 Windows 操作 系统 的 C 语言 MEX 文件 的 建立 流程 


在 上 一 小 节 中 ,我 们 对 C 语言 MEX 文件 的 建立 进行 了 总 体 上 的 撒 述 ,在 本 小 节 中 ， 
我 们 将 对 基于 Windows 操作 系统 的 C 语言 MEX 文件 的 建立 进行 详细 的 讲述 ， 

总 的 说 来 ,基于 Windows 操作 系统 的 C 语言 MEX 文件 的 建立 流程 可 以 分 为 三 个 步 
了 又. 即 编译 (compiling) 、 预 链接 (prelinking) 和 链接 (linking) 。 


1， 编 译 (compiling ) 


在 Windows 操作 系统 中 ,整个 编译 过 程 必须 包含 以 下 步 颈 ， 

首先 ,设置 编译 MEX 文件 所 使 用 的 一 些 环境 变量 ,包括 路 径 变量 PATH, 头 文件 包 
含 变量 INCLUDE 和 库 文件 变量 LIB, 例 如 当 用 户 使 用 的 为 Microsoft Visual C 十 十 系统 
时 , PATHINCLUDE 和 LIB 则 分 别 为 Microsoft Visual C 十 十 的 安装 路 径 及 其 所 包含 
的 头 文件 和 库 文 件 所 在 的 路 径 。 当 用 户 在 自己 的 操作 系统 或 编译 器 中 已 经 对 这 些 环境 变 
量 进 行 了 注册 ,例如 在 罗 indows 9x 操作 系统 中 ,用 户 已 经 在 autoexec. bat 中 写 人 这 些 变 
量 . 或 者 在 Windows NT 操作 系统 中 ,在 控制 面板 中 的 系统 选项 中 的 环境 变量 属性 页 中 
定义 了 这 些 变量 ,那么 这 时 用 户 就 可 以 将 选项 文件 中 的 这 部 分 内 容 注释 掉 , 而 不 会 发 生 问 
题 ， 如 果 这 些 变 量 设 置 不 正确 ,在 编译 MEX 文件 时 ,系统 将 报错 ,说 某 些 文件 找 不 到 , 导 
致 编译 过 程 的 失败 退出 ; 

其 次 ,定义 所 使 用 的 编译 器 的 名 字 COMPILER ,在 使 用 Microsoft Visual C 十 十 系统 
时 ,COMPILER 应 设置 为 cl( 注 :el 为 Microsoft Visual C 十 十 的 编译 执行 文件 )# 

再 次 ,对 编译 器 的 编译 标志 COMPFLAGS 进行 如 下 设置 ， 
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。， 建 议 使 用 参数 -c, 以 告诉 编译 器 ,只 对 源 文件 进行 编译 而 不 用 链接 ; 
。， 使 用 参数 -Zp8, 按 8 个 字 节 对 准 ; 

， 必须 使 用 参数 -D 定义 预 处 理 程序 宏 MATLAB _MAX _FILE; 

。 设置 编译 器 优化 参数 ; 

。 设 置 调试 信息 参数 ; 

。 自 由 设置 其 他 一 些 编译 器 参数 。 
2， 预 链接 


预 链接 过 程 主要 用 来 动态 创建 输入 函数 库 , 这 些 函 数 库 包 含 7 MATLAB 应 用 程序 
接口 的 库 函 数 ,以 便 在 MEX 文件 中 使 用 ,所 有 的 MEX 文件 仅仅 与 MATLASB 发 生 链接 ， 
与 之 相关 的 , DEF 文件 放置 于 目录 


<MATILAB 根 日 录 >>\EXTERNNNCLUDE 
中 。 对 于 MATLAB MAT 文件 和 引 侈 文 件 不 太 相 同 ,在 后 面 章节 中 将 分 别 讲述 。 
3. 链接 


整个 MEX 文件 的 建立 过 程 的 最 后 一 个 步 又 为 链接 过 程 ,整个 过 程 中 必须 完成 以 下 


操作 : 

首先 ,必须 定义 环境 变量 LINKER ,用 于 指明 所 使 用 的 链接 器 ,在 使 用 VisualC 十 十 
时 ,其 定义 为 ， 

LINKER 一 link 


其 次 ,必须 对 链接 器 进行 参数 设置 , 即 定义 环境 变量 LINKFLAGS， 
。 使 用 参数 dll ,表明 用 于 创建 动态 链接 库 文 件 ; 

。 将 输出 点 指向 苯 数 mexFunction; 

。 链接 在 预 链接 过 程 产生 的 输入 函数 库 ; 

。 自由 设置 其 他 一 些 相关 链接 器 参数 。 

再 次 ,定义 链接 优化 参数 LINKEROPTIMEFLAGS: 

第 四 ,定义 链接 调试 信息 参数 LINKERDEBUGFLAGS; 

第 五 ,在 需要 的 情况 下 , 在 环境 变量 LINK _FILE 和 LINK _ LIB 中 对 链接 文件 
(link-file) 标 示 符 和 链接 库 (link-library) 进 行 定 义 , 例 如 在 使 用 榴 atecomC 时 ,Watcom 使 
用 它们 来 确定 输入 的 名 字 是 一 个 变量 还 是 一 个 命令 是 一 个 库 : 在 使 用 Visualc 十 十 时 ,这 
些 环境 变量 可 以 不 用 设置 

第 六 ,在 环境 变量 NAME _OUTPUT 中 使 用 参数 output 建立 一 个 输出 标示 符 和 名 
字 , 如 下 ， 

NAME_ OUTPUT 一 /outiy%OUTDIR%%MEX _NAM 正 5.dl 

其 中 环境 变量 MEX _NAME 包含 了 命令 行 中 第 一 个 程序 的 名 字 ， 该 环境 变量 在 使 
用 参数 output 时 必须 被 设置 ， 以 使 output 正常 工作 。 如 果 该 环境 变量 没有 被 设置 ,编译 
器 默认 地 使 用 命令 行 中 的 第 一 个 程序 名 。 
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4- 对 选项 文件 tnsvc60opts, bat 的 分 新 


Imsvc60opts.bat 是 MATLAB 为 Microsoft Visual C 十 十 6.0 提供 的 一 个 专门 用 于 
编译 MEX 文件 的 选项 文件 ,位 于 目录 


<MATLAB 根 目 录 >Nbia 


中 ,其 源 代 码 如 下 ,请 读者 先 详细 阅读 该 程序 ,在 后 面 将 对 该 选项 文件 进行 全 面 的 分 析 , 以 
加 深 读者 对 C 语言 MEX 文件 编译 过 程 的 理解 。 


他 echo o 娃 

rem MSVC60OPTS. BAT 

TeETR 小 其 计 凑 关 其 证 其 其 放 凑 外 捧 狼 其 条 怪 评 其 其 其 小 医 济 其 入 六 特攻 详 读 其 基 次 凑 补 其 凑 党 扶 丧 折 关 其 幸 尖 沪 贡 久 放 其 寺 基 主攻 入 其 深 计 六 寺 入 贡 凑 凑 浊 册 尖 
rem (1) 普通 参数 设置 


Ten 并 关 尖 其 入 并 攻关 基准 凑 计 关 名 其 所 其 朵 衬 拉 其 济 疼 话 其 济 其 入 其 次 拓 基 所 凑 基 其 扫黄 并 凑 放 其 泊 詹 状 其 直 其 济 欠 疾 放 其 要 其 潮 其 济 折 入 其 六 其 入 基 疾 民 潜 


set MATLAR 一 %MATLAB% 

set MSVCDir 一 外 MSVCDir 听 

set MSDevDir 一 外 MSVCDir%N ANCommonNmasdev98 

set PATH 王 %MSVCDir%NBIN;%MSDevyPDir 凶 Nbiny 外 PATH 儿 

set INCLUDE = %MSVCDir%NNCLUDERE MMSVCDir%NMFCNNCLUDE; 
中 MSVCDir%WNATLNNCLUDE!%INCLUDE% 

set [LIB= %MSVCDir%NLIB;%MSVCDir%NMEFCNLIB: %ILIB 冯 


7etlL 其 折 其 振 畔 其 二 其 六 入 洲 白 关 其 负 其 济 失 济 折 入 菇 其 活 活 识 许 民 关 尖 甸 民 入 评 济 长 入 庆生 其 浇 基 入 其 担 欠 其 应 牢 儿 长 羡 长 汪 长 将 关 其 挤 匡 深 其 浴 刁 洲 攻 入 


rem (2》 编译 器 参数 设置 


Te 基 放 其 基 痢 关 拓 其 白白 其 白 其 其 基 六 提 汪 其 济 认 这 深 刀 庄 其 浴 二 并 托 扩 二 游 基 济济 济 拓 入 关 入 放 尖 并 其 济 凑 讲 其 济 攻 入 其 流 所 凑 尖 其 让 洪 认 间 折 关注 其 抽 长 


set COMPILER 一 el 

set COMPFLAGS = -e -Zp8 -G5 -3 -DMATLAB _MEX _FILE -nologo 
set (PTIMFLAGS = -D2 -DOy- 

sel DEBUGFLAGS 一 -ZI 

set NAME _OBJECT = /Fo 


Treo 贡 革 时 性 笑 溢 攻 生 闫 放 商讨 其 计 怀 主 疾 主 闫 关 宁 长 折 其 吕 基 针尖 次 拓 凑 拓 宅 兴 拓 所 吉庆 沪 届 转 居 闫 扩 并 其 刘 许 放 协 六 中 诬 洲 基 入 计 凑 失 基 区 入 产 间 寺 浴 英 


rem (3) 宕 创建 耸 令 ( 柄 编译 过 程 ) 


TeIri 关头 奖状 其 凑 放 等 小 涝 认 关 入 其 证 舌尖 入 二 舌尖 稚 拉 其 洲 其 并 其 济 并 昼 拱 洪 基 次 基 洲 并 济 基 入 其 洲 要 关 挫折 凑 其 时 六 二 基 二 其 主 就 泊 寺 六 其 乱 六 次 名 狂 其 负 


set PRELINK _CMDS1=1lib /def:* %MATLAB%sexternNincludeNmatlab， def 
Amachineiix86 /OUT:%LIB NAME 折 1.1ib 

set PREIINK _CMDS2=lib /def:" %MATL 上 BRB 儿 NexternNineiudeNibmatlbmx, def* 
Amachineiix86 /OUT:%LIB _LNAME%2.jib 

set PRELINK _DLLS 一 lib /def:" %MATLAHNexternNincludeNWDLL _NAME%.defr 
/machinel:ix86 /OUT:%DLL _NAME%%.lib 


YeID 商 攻 产 吉 其 关 其 关 关 洲 训 洲 兴 认 凑 尖 关 吕 习 名 鞭 姑 关外 攻关 凑 训 话 济 其 关 其 洲 半 二 慌 入 证 济 己 并 诬 济 晤 汪 扣 过关 特许 疾 训 济 讲 尖 认 补 坟 必 入 荆 计 次 锥 撞 欠 新 
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reta (4) 链接 器 参数 设置 


Tet 共 凑 关 其 长 和 济世 洲 基 济 其 长 斯 泊 攻 并 六 入 认 洲 其 济 其 济 吕 其 关 其 必 鱼 证 洲 姑 半 尖 轩 其 济 长 入 证 入 详 游 关 游 失 特 其 其 其 商 凑 折 杀 汪汪 训 济 其 穆 关 其 入 训 入 并 济 


set LINKER 一 link 

set LINKFLAGS = /由 1] /export:mexFunction /MAP %LIB _NAME iiib 
%%LIH_NAME%2iib /implib:%IIB NAME 儿 .lih 

set LINKOPTIMFLAGS 一 

set LINKDEBUGFLAGS 王 /debug 

set LINK _FILE 一 

set LINK _LIRB= 

set NAME _OUTPUT=yout%OUTDIR%W%MEX _NAME 匆 .dll 

set RSP _FILE _INDICATOR 王 人 @ 


Tet 闪 上 六 兴 疾 居 洲 处 游 讲 洲 泊 其 畔 其 洲 其 站 次 济 笠 六 六 共 其 医 泊 长 其 疾 计 长 洲 闫 闫 放 二 听 凑 傣 洲 其 抽 尖 其 长 许 其 抽 活 并 其 涯 其 拉 拓 者 攻 杀 必 激 汪 具 计 慌 凑 济 其 花 


rem《5) 资源 编译 器 参数 设置 


letba 其 并 綦江 其 洲 必 并 其 活 基 商情 捧 尖 凑 基 证 六 入 其 洲 江 入 器 基 基 办 共计 疾 泊 失 计 由 尖 其 锥 基 入 长 讲 其 主攻 其 汪 其 其 斌 关 六 深 庆 曾 主 短 沿 关 济 其 入 党 凑 尖 各 其 玉 


set RC _COMPILER=rc /fo "%OUTDIR 外 mexyersion, resy 
set RC _LINKER 一 


set POSTLINK _CMDS 一 del "%OUTDIR 允 站 MEX _NAME 色 .mapy 


由 上 面 的 源 代码 可 以 看 出 ,选项 文件 msvc60cpts.bat 的 结 梅 非常 清晰 , 益 共 研 以 分 
为 五 个 部 分 ， 
第 一 部 分 为 普通 参数 设置 ,定义 了 一 些 关 于 MATLAB 以 及 C 语言 编译 器 的 路 径 信 
息 , 其 中 W%MATLAB% 和 %MSVCDir%% 分 别 代表 了 MATLAB 和 Microsoft Visuali CC 十 
十 6.0 所 在 的 安装 路 径 ,其 余 的 一 些 相关 定义 ,都 是 建立 在 它们 的 基础 之 上 ; 
第 二 部 分 为 编译 器 参数 设置 ,在 该 选项 文件 中 ,通过 环境 变量 COMPILER 设置 了 编 
译 器 为 cl, 并 且 通 过 环境 变量 COMPFLAGS .DOPTIMFLAGS、. 和 PEBUGFLAGS 对 编译 
器 进行 了 全 面 的 设置 ,其 中 一 些 参 数 在 本 小 节 的 第 一 部 分 已 经 进行 了 介绍 ,其 余 的 一 些 含 
义 如 下 ， 
-G5 “代表 针对 奔腾 处 理 器 进行 优化 处 理 
- 允 3 ”代表 设置 警告 级 别 为 3 级 
-Zi ”代表 使 能 调试 信息 
-02 “代表 以 最 大 迷 度 优化 
-nologo ”和 表 禁止 版 权 信息 
第 三 部 分 为 库 创 建 命 令 , 即 预 编译 过 程 ,用 于 创建 输入 函数 库 ; 
第 四 部 分 为 链接 参数 设置 ,在 这 部 分 内 容 中 ,首先 通过 环境 变量 LINKER 设置 了 链 
接 器 的 名 字 为 link ,然后 通过 环境 变量 LINKFLAGS 设置 了 链接 器 的 一 些 参 数 选项 ,如 
设置 了 链接 为 动态 链接 库 文件 ,使 出 口 点 为 mexFunction! 同 时 对 于 环境 变量 LINK - 
FILE 和 LINK _LIB 进行 设置 ,在 使 用 VisualC 编译 器 时 ,它们 可 以 不 用 设置 ,而 在 使 用 
WwWatcom 编译 器 时 则 必须 设置 ;设置 环境 变量 LINKDEBUGFLAGS 为 /debug 表示 包 合 
调试 信息 ; 
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第 五 部 分 为 资源 编译 器 参数 设置 ,这 部 分 内 容 将 在 后 面 介绍 。 
3. 4.3 ”链接 多 个 文件 


在 建立 C 诺言 MEX 文件 时 ,不 但 可 以 将 若干 个 目标 文件 结合 在 一 起 构成 MEX 文 
件 ,而 且 可 以 同时 包含 目标 库 文件 ,例如 在 机 indows 操作 系统 中 ,在 MATLAB 命令 提示 
符 下 键 人 如 下 命令 


? mex titje,c text, obj name. obj thesis. lib 


将 产生 一 个 名 为 title. dll 的 动态 链接 库 文件 ,可 在 MATLAB 工作 环境 中 直接 执行 . 这 里 
必须 注意 :第 一 ,mex 命令 可 以 揉 作 若 干 种 文件 格式 ,包括 .c..obj 和 1lib; 第 二 ,在 链接 多 
个 文件 时 ,生成 的 MEX 文件 的 名 字 为 文件 列表 中 的 第 一 个 文件 的 名 字 ! 第 三 ,在 将 文件 
列表 时 , 必须 写 出 文件 的 扩展 名 ,并 且 用 空格 分 隔 。 

mex 命令 提供 的 这 项 功能 对 于 软件 开发 者 来 说 是 非常 有 用 的 , 它 允 许 用 户 使 用 像 
MAKE 那样 的 开发 工具 来 管理 包含 多 程序 源 文 件 的 MEX 文件 项 目 , 仅 仅 只 需要 用 户 编 
写 一 个 简单 的 MAKEFILE 文件 ,在 这 个 文件 中 包含 了 将 用 户 MEX 文件 项 目 中 各 源 文 
件 编译 为 目标 文件 的 规则 ,然后 就 可 以 激活 mex 命令 将 各 目标 文件 结合 在 一 起 ,从 而 生 
成 可 执行 的 MEX 文件 .通过 这 种 方法 ,用 户 在 建立 MEX 文件 时 ,不 用 每 次 都 对 源 文 件 进 
行 编译 ,而 只 需 链 接 即 可 。 


3.4.4 将 C 语 言 MEX 文件 与 动态 链接 库 DLLs 链接 


将 一 个 动态 链接 库 文 件 链接 到 MEX 文件 中 , 必须 完成 两 方面 的 工作 ,首先 , 必须 在 
命令 行 中 列 出 动态 链接 库 的 文件 名 ;其 次 ,必须 正确 地 设置 选项 文件 中 的 环境 变量 PRE- 
LINK _DLLS ,其 功能 主要 是 用 来 动态 地 从 用 户 输入 的 动态 链接 库 创 建 一 个 输入 函数 库 ， 
以 便 动态 链接 库 可 以 被 链接 到 MEX 文件 上 。 该 环境 变量 包含 了 产生 输 和 信函 救 库 的 命令 
和 参数 选项 ,同时 ,使 用 变量 DLL _NAME 包含 了 命令 行 中 提供 的 动态 链接 库 的 文件 名 ， 
在 选项 文件 msvc60opts.bat 中 定义 如 于 ， 


set PRELINK _DLLS 一 tibydef:”%%MATLAB%NextetaNincludeN\%DLL _NAME 外 def" 
fmachine:ix86/OUT  %DLL _LNAME%.iib 


3.4.5 礼 语 言 MEX 文件 的 版 本 信息 


mex 命令 可 以 在 建立 用 户 的 MEX 文件 时 绒 人 一 个 资源 文件 ,该 资源 文件 包含 了 版 
本 和 其 他 一 些 基 本 信息 。 在 Windows 平台 上 ,该 资源 文件 名 为 mexversion. rc, 存 放 在 目 
录 

<MATLAB 根 目 录 >>NEXTERNMNNCLUDE 

中 。 为 了 在 建立 MEX 文件 时 绒 人 这 些 信 息 , 必须 对 选项 文件 进行 一 定 的 设置 , 即 上 文中 
选项 文件 msvc60opts. bat 中 的 第 五 部 分 , 它 包 括 了 对 环境 变量 RC _COMPILER 和 环境 
变量 RC_LINKER 的 设置 工作 ,提供 了 资源 编译 器 和 链接 器 命令 。 当 对 编译 器 命令 进行 
了 设置 之 后 ,编译 后 的 资源 文件 将 使 用 标准 的 链接 命令 链接 到 MEX 文件 中 :如 果 同 时 在 
选项 文件 中 设置 了 链接 命令 ,那么 资源 文件 将 使 用 这 个 命令 链接 到 MEX 文件 中 . 在 选项 
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文件 msvc60opts. bat 中 ,只 设置 了 RC _COMPILER 
3.5 C 语言 MEX 文件 的 调试 


对 于 使 用 C 语言 等 高 级 计算 机 语言 进行 过 程序 设计 的 读者 来 说 ,可 能 已 经 深切 地 体 
会 到 ,程序 的 调试 对 于 一 个 应 用 程序 的 建立 来 说 ,具有 何等 重要 的 意义 。 因 为 对 于 任何 一 
个 程序 员 来 说 ,一 次 性 地 将 程序 设计 完成 ,并 且 不 发 生 任何 错误 ,几乎 是 不 可 能 的 事情 , 往 
往 可 能 发 生 一 些 意 想不到 的 问题 ,并 且 这 些 问题 发 生 在 程序 的 运行 过 程 中 , 非 编译 过 程 和 
链接 过 程 所 能 够 检测 到 。 而 程序 的 调试 却 能 够 帮助 程序 员 在 程序 的 运行 过 程 中 找到 这 些 
隐 含 的 逻辑 错误 ,并 加 以 改进 ,是 程序 编制 过 程 中 一 个 非常 重要 的 步骤 。 正 因为 如 此 ， 
MATLAB 也 对 MEX 文件 提供 了 全 面 的 调试 功能 ,包括 设置 断 点 . 单 步 运行 .变量 检查 
等 ,而 且 几 乎 适用 于 所 有 的 操作 系统 。 

在 本 节 中 ,将 对 Windows 操作 系统 和 UNIX 操作 系统 中 C 语言 MEX 文件 的 调试 进 
行 全 面 地 讲述 。 


3.5.1 Windows 操作 系统 中 C 语言 MEX 文件 的 调试 


如 果 读 者 希望 对 一 个 MEX 文件 进行 调试 ,那么 必须 在 建立 MEX 文件 时 ,使 用 mex 
命令 参数 -g ,格式 如 下 ， 


mex -g MEXfile .narme.c 


通过 该 参数 告诉 编译 器 ,在 建立 MEX 文件 时 ,包含 所 需要 的 调试 信息 。 若 对 一 个 没 
有 包含 调试 信息 的 MEX 文件 进行 调试 ,调试 器 将 报告 没有 调试 信息 , 并 且 无 法 正确 设置 
断 点 ,不 能 完成 调试 任务 。 因 此 ,强烈 建议 读者 在 首次 编译 自己 的 应 用 程序 时 ,使 用 参数 
-g, 以 包含 调试 信息 ,便于 在 程序 出 错时 进行 调试 。 当 确认 程序 完全 无 误 后 ,再 重新 进行 编 
译 , 生 成 不 包含 调试 信息 的 可 执行 程序 ,这 样 可 提高 程序 的 运行 速度 和 减 小 执行 程序 的 代 
码 长 度 。 


1.。 使 用 Microsoft Visual C 十 十 6.0 集成 环境 进行 调 斌 
全 


使 用 Microsoft Visual C 十 十 6. 0 集成 环境 进行 C 语言 MEX 文件 的 调试 时 ,必须 按 
如 下 步 驴 操作 : 

第 一 步 , 进 人 Visuai C 十 十 6.0 的 集成 编译 环境 ， 点 取 Open 菜单 项 ， 选择 希望 调试 
的 MEX 文件 ,这 时 Visual C 十 十 6. 0 将 会 为 用 户 构造 一 个 工程 ! 

第 二 步 ,再 次 点 取 Open 菜单 项 ,打开 MEX 文件 的 源 程序 ; 

第 三 步 , 在 Visual C 十 十 6.0 所 生成 的 项 目 空 间 申 ,选择 下 拉 式 菜单 Project 中 的 菜 
单项 Settings, 将 弹出 一 个 对 话 框 , 见 图 3. 3。 点 取 其 中 的 Debug 属性 页 ， 在 名 为 也 xe- 
cutable for debug session 的 编辑 框 中 输入 MATLAB 的 可 执行 文件 ,必须 包含 全 路 径 名 ， 
其 他 所 有 的 编辑 框 都 保留 为 空 ; 

第 四 步 ,选择 下 拉 式 菜单 Build ,选择 其 中 的 Debug 菜单 项 ,并 且 点 取 Go 子 菜单 项 ， 
开始 整个 调试 过 程 
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图 3.3 下 拉 式 菜单 Projeet 中 菜单 项 Settings 的 对 话 杠 


第 五 步 ,调试 过 程 开始 后 ,Visual C 十 十 6. 0 调试 器 将 调用 MATLAB ,这 时 将 首先 弹 
出 一 个 对 话 框 , 如 图 3.4 所 示 ， 





上 MATEABbEywastd 和 hb ExC': C6ES 让 9 向 六 二 人才 ng 
fearrnaten，Prage 由 本 切 nimte- 


三 办 ao net 四 rornpt ithe dutafe- 





图 3.4 Microsoft Beveploper Studion 警告 对 话 杠 


用 以 提示 用 户 ,可 执行 文件 matlab. exe 没有 包含 调试 信息 ,这 是 正常 现象 ,用 户 可 以 忽略 
这 个 警告 ,并 选取 复 选 框 ,点 取 OK 按钮 继续 ;然后 VisualC 十 十 将 产生 一 个 新 的 MAT- 
LAB 进程 ,并 且 将 当前 的 路 径 设 置 到 所 需要 调试 的 MEX 文件 的 路 径 。 

这 时 就 可 以 在 MATLAB 环境 下 键入 MEX 文件 名 和 参数 ,在 VisualC 十 十 集成 环境 
中 设置 断 点 ,进行 调试 了 。 具 体 如 何 设置 断 点 ,如 何 单 步 运行 ,如 何 观察 变量 的 内 容 , 请 读 
者 自行 参阅 相关 的 Visual C 十 十 集成 环境 的 帮助 。 


2. 使 用 到 atcem C 进行 调 斌 


使 用 Watcom C 调试 器 对 MEX 文件 进行 调试 时 ,必须 完成 以 下 步 又， 
首先 ,启动 Watcom C 调试 器 ,无 论 是 在 DOS 命令 框 下 键 人 命令 


WD 风 
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或 是 直接 在 Windows 下 运 行 ,这 时 调试 器 将 开启 一 个 新 的 程序 窗口 (New Program) , 选 
择 Cancel; 

其 次 ,从 Break 菜单 中 选择 菜单 项 On TImage Load ,并 且 用 大 写字 母 键 人 希 证 调试 的 
MEX 文件 名 ,然后 选择 ADD 并 且 点 击 OK 关闭 窗口 ; 

第 二 ,打开 MEX 文件 的 源 文件 ; 

第 三 ,从 File 菜单 项 中 选择 菜单 项 Open , 键 人 包括 全 路 径 名 的 MATLAEB 的 可 执行 
文件 的 位 置 ,并 选择 OK ,例如 在 作者 的 系统 上 为 ， 


e:NmataibvbinNrmatlab. exe 


第 四 ,开始 调试 后 , Watcom C 同样 会 调用 MATLAB ,并 开启 一 个 MATLAB 的 窗 
口 , 当 在 源 文 件 中 设置 断 点 后 ,用 户 就 可 以 在 MATLAB 的 工作 环境 中 键 人 MEX 文件 名 
和 参数 对 MEX 文件 进行 调试 了 ;不 过 到 atcom C 调试 器 将 会 报 出 类 似 如 下 的 警告 信息 ， 
LDR : Automatic DLI Relocation in matlab. exe 


LDR :, DLL fename.dll base <nhutmber>> relocated due to collision 


双 jth tmatiab, exe 


用 户 可 以 选择 OK ,忽略 这 些 信息 , 而 不 会 对 调试 过 程 产 生 任 何 影响 。 
3.5.2 UNIX 操作 系统 中 C 语言 MEX 文件 的 调试 


在 UNIX 操作 系统 中 ,对 C 语言 MEX 文件 的 调试 与 在 Windows 操作 系统 中 相 比 存 
在 较 大 的 差异 ,不 过 相同 的 是 ,对 希望 调试 的 MEX 文件 必须 使 用 mex 命令 参数 -g 进行 
编译 ,否则 无 法 进行 调试 。 
希望 对 MEX 文件 进行 调试 ,首先 必须 在 一 个 调试 器 内 启动 MATLAB 的 工作 环境 ， 
则 可 以 通过 如 下 命令 行 办 到 ， 
matlab -Ddbx 


其 中 matlab 为 MATLAB 的 可 执行 文件 名 ,而 dbx 为 一 个 在 UNIX 环境 下 的 调试 工具 ， 
参数 -D 则 告诉 MATLAB 在 调试 器 的 空间 内 运行 。 当 调试 器 将 MATLAB 调和 人 内 存 之 
后 ,就 可 以 使 用 命令 run 启动 它 , 并 在 MATLAB 工作 环境 内 键 人 命令 


dbmex on 
使 能 对 MEX 文件 进行 调试 。 然 后 用 户 必 须 告诉 调试 器 MEX 文件 所 在 的 具体 位 置 及 名 
字 , 并 且 列 出 MEX 文件 的 源 代 码 ,设置 断 点 后 ,就 可 以 像 执行 普通 的 MEX 文件 一 样 ,在 
MATLAB 环境 中 ,开始 对 MEX 文件 调试 了 。 


3.6 ”Microsoft Visual C 十 十 集成 环境 中 MEX 文件 的 建立 


如 果 读 者 按照 前 面 讲 述 的 内 容 对 一 些 例 子 文件 进行 了 编译 和 调试 ,将 会 发 现 这 种 开 
发 的 方法 非常 的 麻烦 ,尤其 是 习惯 了 使 用 各 种 集成 开发 环境 如 Microsoft Visual C 十 十 
6.0 以 及 Borland C 十 十 5. 2 的 读者 ,更 会 觉得 极 不 适应 。 建 立 一 个 MEX 文件 ,首先 必须 
在 某 个 编辑 器 中 进行 源 代 码 的 编写 ,然后 存盘 后 回 到 MATLAB 的 工作 环境 中 , 进行 纺 
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译 , 若 发 现 错误 , 则 必须 回 到 原来 的 文件 编辑 器 ,按照 MATLAB 的 错误 提示 , 逐 行 地 对 源 
代码 进行 查 错 修改 ,之 后 再 回 到 MATLAB 的 工作 环境 中 进行 编译 ,如 此 往复 ,直至 程序 
没有 错误 为 止 ,一 个 MEX 文件 才 宣 告 完成 ,整个 过 程 需要 来 回 地 在 文件 编辑 器 和 MAT- 
LAB 工作 环境 之 问 切换 ,非常 不 方便 ,而 且 过 程 中 还 没有 加 入 调试 步骤 ,否则 将 更 加 麻 
烦 。 

在 本 节 中 ,我 们 将 讲述 一 种 在 Microesoft Visual C 十 十 集成 环境 中 建立 MEX 文件 并 
调试 的 方法 。 


3.6. 1 Mierosoft Visual C 十 十 集成 环境 中 建立 MEX 文件 的 步 襄 


在 Microsoft Visual C 十 十 集成 环境 中 建立 MEX 文件 ,可 以 分 为 9 个 步骤 ,如 下 ， 
第 一 步 , 进 入 Microsoft Visual C 十 十 6.0 集成 环境 ,选择 File 菜单 中 的 New 菜单 
项 ,将 弹出 一 个 如 图 3. 5 所 示 的 对 话 框 ,选择 其 中 的 “win32 Dynamic-link Library" 项 ,并 
且 按 要 求 输 人 文件 名 ,创建 一 个 空 的 win32 的 动态 链接 库 的 工程 ; 
本 匡 外 
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图 3.5 VisualC 十 十 6,0 File New 对 话 杠 


第 二 步 , 点 取 下 拉 式 菜单 Project 中 的 Add to Project 菜单 项 ,然后 选择 其 中 的 Files 
选项 ,添加 一 个 与 用 户 创 建 的 工程 同名 的 定义 文件 ,其 后 绥 为 . def ,为 了 说 明 方便 ,这 里 假 
定 工程 名 为 mexfiunc, 则 定义 文件 名 为 mexfunc. def ; 

第 三 步 , 在 mexfunc. def 中 键 人 以 下 两 行 代码 ， 


LIBRARY mexfunc. DLL 
EXPORTS mexFEunction 


这 是 win32 动态 链接 库 编 窟 的 典型 格式 ,其 中 第 一 行 代码 表示 产生 的 动态 链接 库 的 名 字 
为 mexfunc.DLL ,第 二 行 代码 表示 输出 函数 名 为 mexFunction; 这 里 除了 第 一 行 中 的 文 
件 名 可 以 随 用 户 的 不 同 工 程 而 不 同 之 外 ,其 他 任何 部 分 均 不 能 有 丝毫 改动 ; 

第 四 步 , 创 建 用 户 自己 的 C 语言 MEX 文件 ,例如 
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7 # Inekfunee 并 了 


##include ”timex.hy 
void mexFunction( int nilhs，mxArray #+ plhs[]，int nrhs，const mxAArray < prhs[Lj) 
{ 

printf(xEdzko Smidsny)， 

Teturns# 


} 


第 五 步 ,在 DOS 命令 框 下 使 用 LIB 命令 ,根据 定义 文件 MATLAB. def 创建 一 个 
MEX 函数 的 输 人 库 , 例 如 : 


CiN>LIB /DEF:IC:NMATLABNEXTERNNINCLUDENMATLAB. DEF /MACHINE:IX86 
ADUTtmymeximPports, | 让 


不 过 在 执行 此 命令 之 前 ,必须 确保 系统 中 已 经 设置 了 以 下 路 径 : 

C:N> SET PATH =C:NPROGRA 一 INDEVSTU 一 1NVisualCNBIN# 

CiNPROGRA 一 1INDEVSTUD~ INSHARED 一 1NBINY 
一 旦 库 文件 mymeximperts, tib 被 创建 之 后 ,用 户 就 可 以 在 任何 一 个 MEX 文件 中 使 用 该 
库 文 件 , 而 不 用 重复 生成 ,其 中 定义 文件 MATLAB. def 存放 于 上 只 录 


< MATLAB 根 目 好 >>NexternNinclude 


中 ; 
第 六 步 ,将 上 一 步 生 成 的 库 文件 mymeximports.lib 输入 到 当前 工程 中 ,方法 同步 双 

2; 

第 七 步 ,将 其 他 一 些 必须 的 函数 或 库 文件 添加 到 当前 工程 中 ,方法 同步 骤 2; 

第 作 步 ,点 取 下 拉 式 菜单 Project 中 的 Settings 菜单 项 ,将 弹出 一 个 如 图 3. 6 所 示 的 
对 话 框 , 选 取 其 中 的 Link 属性 页 ,在 Category 下 拉 框 中 选取 “Input”, 然 后 在 Additional 
library path 编辑 框 中 输入 “ec :Nmatlab\externANiib”， 以 指明 额外 的 库 路 径 ; 

第 九 步 ,同样 如 图 3.7 所 示 , 在 Settings 菜单 项 弹出 的 对 话 框 中 ,选取 C/C 十 十 属性 
真 ,在 Category 下 拉 框 中 选取 “Preprocessor”, 然 后 在 Additional inelude directories 编辑 
框 中 输入 “ec :NmatiabNexternNinclude”, 以 指明 额外 的 头 文 件 的 路 径 , 并且 在 Preprocessor 
definitions 编辑 框 中 输入 宏 MATLAB _MEX _FILE: 

当 完 成 以 上 九 步 工作 之 后 ,就 可 以 对 MEX 源 程 序 进行 编译 和 链接 ,生成 可 执行 的 
MEX 文件 了 。 


3.6.2 Micerosoft Visual C 十 十 集成 环境 中 MEX 文件 的 调试 


在 Microsoft Visual C 十 十 集成 环境 中 对 MEX 文件 调试 ， 相对 于 MEX 文件 的 建立 
来 说 就 简单 许多 了 , 因为 在 MEX 文件 的 建立 过 程 中 已 经 完成 了 大 部 分 的 工作 ,提供 调试 
功能 只 需要 非常 简单 的 一 步 设置 , 即 在 Settings 弹出 的 对 话 框 中 选取 Debug 属性 页 ,在 
Executable for debug session 编辑 框 中 输入 “c,NmatlabrllNbinN\matlab， exe2 凤 可 ,这 样 
就 可 以 对 MEX 文件 进行 调试 了 。 
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图 3.7 Project Setting 上 十 十 对 话 框 


3.7 《CC 语言 mex- 函 数 


C 语言 mex- 画 数 是 MATLAB 应 用 程序 接口 函数 库 提供 的 一 种 类 型 的 库 本 数 , 它们 
均 以 mex 为 前 朋 , 主要 功能 是 与 MATLAB 环境 进行 交互 ,例如 从 MATLAB 环境 中 获 
取 必 要 的 阵列 数据 或 者 返回 一 定 的 信息 。 这 种 类 型 的 库 函 数 只 能 用 于 MEX 文件 之 中 ,在 


第 3 章 局 语言 MEX 文件 的 编写 “7? 。 





本 节 中 ,将 对 这 种 类 型 的 所 有 库 本 数 的 使 用 进行 详细 地 说 明 。 
3,7.1 C 语言 mex- 阔 数 的 声明 


在 MATLAB 应 用 程序 接口 函数 库 中 ,总 共 提 供 了 33 个 C 语言 的 mex- 函 数 , 它 们 的 


Vveid mexAddElops(int count) 
int mex 上 AtExit(void《*xitFcnJfvoid》) 
int mexfCall]MATLAB(int nilhs，mxArray #plhs[]，int nrhs， 
TaX 太 Tray # Prhs[]，const char + command _name》 
void mexErrMsgTxtKconst char # error _imsg) 
int tmexEvalString (const cbar #+ cammand) 
void mexFunction (int nlhs ，mxArray + plhs[]，int nrbhs ，const rmxArray # pths[]) 
const char * mexFunctionName(void) 
const mxArray #+ tmexGet(double handte ，const cbhar #+ Ptoperty) 
ImKXATray < IneXCGet 上 Array(const chat #+ name，const char #* Workspace) 
const InXrray * tmex(CGetAtrayPtr(const char # name，const chat 关 WOrKkspPace) 
ImexCGetEPs (CO5soyete) 
mexGetFull] (CO5sofete) 
ImnexGetGlobal (Opbsoiete) 
mexGetInf 《Op5solete)》 
mexGetMatrix 《DODbsolete》 
mexGetMatrixPtr (OO55olefe》 
Inex(GetNaN 《Opsoyete) 
mexIsFinite (Opsofere) 
boeol mexTlsGlobal(const mxArray x array _ptry》 
mexjisInf (CD55odete) 
bool mexJaLockedfvoid)》 
ImexIsNaN (COBsogeie) 
void mexLock (void》 
void mexMakeArrayPersistentKmx 丰 rray # arTray _Ptr) 
void ImexMakeMetmnoryPersistent (yoid # ptr) 
int mexPrintt(econat char # [formatr， ..….》 
int mexPutArray(fmnxAArray # array _Ptt，econst char # Workspace) 
mexPutEuil (OUsofete) 
mexPutMatrix (CO5sotefe) 
int mexSet(double handle ，const chat # property，mXATtay 关 Value》 
void mexSetTrapFlag(int trap _flag) 
void mexUnlock(Kvoiq) 
void mexWarnMsgTxt(const char x warning _msg) 


所 有 这 些 函 数 均 在 头 文件 mex.h 中 予以 声明 ,在 使 用 它们 时 ,必须 对 该 头 文件 进行 
包含 。 


3.7.2 忆 语言 mex- 范 数 的 使 用 说 明 
下 面 我 们 将 逐一 地 讲述 C 语言 mex- 函 数 的 使 用 : 
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1，mexAddFlops 


功 能 :用 于 更 新 MATLAB 内 部 的 浮 点 运算 计数 器 。 
语 法 .#include "mex.hw 
void mexAddFtcps (int count ); 
说 明 : 在 MATLAB 的 工作 环境 中 , 存在 一 个 浮 点 运算 计数 器 ,用 来 记录 MAT- 
LAB 所 进行 的 浮 点 运算 的 次 数 ,但 是 由 于 MEX 文件 是 用 习 语言 编写 ,所 以 
在 MEX 文件 中 的 所 进行 的 浮 点 运算 的 次 数 并 没有 被 MATLAB 计数 器 计 
数 。 如 果 希 望 MATLAB 对 MEX 文件 中 的 浮 点 运算 也 进行 计数 ,那么 必须 
通过 使 用 函数 mexAddFlops 来 手动 完成 ,其 输入 参数 count 为 一 个 整 型 数 ， 
用 于 指定 MATLAB 内 部 浮 点 运算 计数 器 增加 的 次 数 ,该 画 数 没有 返回 值 。 
举例 :程序 yprime, c 为 MATLAB 提供 的 一 个 范例 程序 ,其 源 代 码 如 下 : 
1/* 头 文件 包含 */ 
##jnclude < tnath.h 
井 include "raexX. hy 


/+# 输 和 人 参数 安定 义 * 7/ 
#define 工 _IN prhs[0] 
#defineY _IN prhsf1l] 


/x* 输出 参数 的 宏 定义 * / 
#define YP_OUT plhs[0] 


7/* 条 件 编译 * /7 

井 证 ! defined(MAX)》 

#define ”MAXI(A,B) 《(〈(A) > (B) ?7《〈A) :〈B7)) 
并 endif 


# 诺 ! defined(CMIND) 
#define “MIN(CA，B) (KaA) < (B) ?3 (A) :《B)) 
共 erd 革 


/* 宏 定 义 * 7/ 

提 define PI 3, 14159265 

staticdouble ”mu 一 1782. 45# 
astatiedouble ”mas 一 1 - 1782. 45y 


/+# 计算 子 例 行程 序 * / 
static void yptime (double yp[L],， doutble *t， double y[] ) 
{ 

double Flr2; 


rl 一 sqrtCfy[0] 十 mu) * (yL0] 十 mu》 十 y[2]xy[2]); 
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+2 一 sqrt((y[0J-mus) * (7[0]-tmus) 十 了 [2] *y[2]>) 


/# 显示 被 零 除 的 警告 信息 * / 
这 人 rl 一 一 0.0 | r2 一 一 0.0) 
{ 
InexWarnMsgTxt("Division by zerol mw 3 


yp[0] = y[13]; 
yp[1] = 2*y[3] 十 7[0]-mus * (y[0 十 mu)A(Crl *rl*rl)-mu 
区 《7[0]-mus》ACr2 xr 人 <r2)3 
Pp[2?j 一 yt3] 
yp[3] 王 -2xy[1] 十 y[2]-mus * y[2]/AKrl <rlxrrl)-muxy[2]/(r2xr2xer2); 


TetuUTR ti; 


jx 人 口 点 郴 数 * 7 
void mexFunction( int nlhs ，ImxArray # plhs[， 


int hrhs ，const mxArray x prhs[] ) 


/x+ 变量 定 尽 *7 
double =# ybi 
double #ty 关 闻 


unsigned int mya; 


/* 检查 输 人 输出 参数 个 笋 * / 
证 (nrhs ! 一 2) 
{ 
ImexErrMsgTxt("Two input argutnents required, 7 
} 
else ii (nlhs > 1) 
{ 
tmexErrMsgTxt("Too many output argurments. ”74 


} 


/* 检查 变量 Y 的 大 小 ,Y 必须 为 一 个 包含 4 个 元 紊 的 行 向 量 或 列 向 量 * / 
im 一 mxGetM(TY _IN7; 
一 mxGetNKY _IND); 
让 (1 mxlIsDoubleKY _IN) | mxlsComplexCY _IN?》 1 
(MAX(mn) 1 一 4) 上 (MINCm'n) ! 一 1)) 


mexErrMsgTxt(zYPRIME requires that Y be a 4x lvector”)3 


/* 创建 返回 矩阵 * / 
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YP _OUT = mxCreateDoubiekMatrix(m, 如，mxREAILD)NY 


/* 获取 输出 矩阵 的 实 部 指针 * 7/ 
ypb = mmxGetPr(YP _OUT)， 

t 一 tmxGetPr 人 T _ JIN) 

y 一 IaxGetPr(Y _ JIN); 


/*# 调用 计算 子 例 行 程序 * / 


ypritmteCyp ty79 


/x 更 新 MATLAB 内 部 浮 点 运算 计数 器 * / 
tnex 凡 ddFlops(38》#; 
returmni# 


} 


2、mexAtExit 


功能 ;用 于 登记 一 个 函数 ,该 函数 在 MEX 文件 被 清除 或 者 MATLAB 终止 执行 时 


被 调用 , 用 来 完成 一 定 的 善后 工作 , 如 内 存 释放 等 。 


语 法 ;#include "mex, hy” 


int ImexAtExit(void〔#xitFcn)(void7)》; 


说 ”了 明 ; 函 数 mexAtExi 的 输入 参数 为 一 个 void 类 型 的 指针 ExitFen ,用 来 指向 某 一 


个 用 户 函 数 ;其 返回 值 永远 为 零 . 使 用 函数 mexAtExit 允许 用 户 登 记 注册 一 
个 自 定 义 C 语言 函数 作为 退出 函数 ,该 函数 在 MEX 文件 被 清除 或 者 MAT- 
LAB 终止 执行 时 被 调用 , 用 来 完成 一 定 的 善后 工作 , 例如 灵 放 持久 阵列 或 者 
关闭 文件 等 等 。 对 于 任意 一 个 MEX 文件 来 说 ,只 能 登记 注册 一 个 处 于 活动 
状态 的 退出 函数 , 当 一 个 画 数 中 使 用 了 多 次 mexAtExit 函数 时 ,那么 只 有 其 
中 最 后 使 用 的 一 次 为 有 效 。 此 外 当 一 个 MEX 文件 处 于 锁 死 状态 时 ,所 有 的 
试图 清除 MEX 文件 的 操作 都 将 失败 ,相应 地 , 当 一 个 用 户 试 锋 清除 一 个 上 
锁 的 MEX 文件 时 ,MATLAB 将 不 会 自动 调用 退出 函数 ,即使 是 在 一 切 操作 
无 误 的 前 提 下 ,有 关 MEX 文件 的 上 锁 和 解锁 操作 请 读者 参见 郴 数 mexLock 
和 范 数 mexUnlock 。 


举例,;MATLAB 中 提供 了 两 个 范例 程序 mexatexit.c 和 mexatexit. cpp, 均 位 于 目 


录 

MATLAB 枢 目 录 \externNexarmplesNmex 
中 ,分 别 对 C 语言 和 C 十 十 语言 中 函数 mexAtExit 的 使 用 方法 进行 了 讲述 ， 
下 面 我 们 对 它们 进行 详细 地 解释 说 明 , 以 使 读者 对 函数 mexAtExi 的 使 用 有 
一 个 全 面 的 认识 。 程 序 mexatexit.c 的 功能 为 打开 一 个 数据 文件 mat- 
lab. data, 并 向 其 中 写 和 人 字符 串 , 字 符 串 由 用 户 输入 ,但 退出 该 程序 时 ,调用 
函数 CloseStream 关闭 文件 ,其 源 代 码 如 下 ， 


/yx 程序 段 C1)》 * 7 
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#include <stdio.h> 
井 include ”mex.hy* 


static FILE  *# 了 fpP 王 NULI 


/xx 程序 段 (2》*7 


static void CleseStrearfvoid) 


{ 
tnexPrintf(2Closing file matiab. data. Na 7 
felosekfp》ys 


/x# 程序 段 (3) * 7 
void mexFunetion (int nlhs，mxArray xplbs[]， 
int nrhs ，const mxArray * pths[]) 


char # Str; 


/ax# 程序 段 (4) * 7/ 
主 Cnrhs ! 一 1) 


{ 
mexErrMsgTxtk*One input argument required. ”5 
} 
让 人 nlhs > 1》 
{ 
ImexErrMsgTxt("Too many output argurmnents,”)3 
} 


让 (， (mxJsChartprhs[0]))) 


《 
FexErrMsgTxtt"Jnaput must be of type stting， ANnw 7) 


/xx 程序 眉 (5) * 7/ 
(fp== 王 NULL) 
{ 
fp 一 fopen(matlab. data"，”w"7)1 
让 《fp = 一 = NULEL) 
《 
mexEtrrMsgTxt(*Could not open file matlab. data”)# 


} 
mexPrintfK*(pening file matlab. data. my? 


/* 退出 函 歼 注册 * / 


Imex 上 tEXxitCCloseStreatmy)3 


ma RSD2。 
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/>* 程序 段 (6)》 * 7 
str 一 mxArrayToString(prhs[0j]); 


/x* 程序 段 (7) * 7 
诺 (fprintfKfp ,9%sNnw ，str)》 上 一 sttlen(str) 十 1) 
1 
ImxFree(str》; 
mexErrMsgTxtKrCould not write data te 和 fen? )5 
} 
mexPrintfK* Writing data to file ms )# 
ImXFree(str73 


} 、 

其 中 ,程序 段 (1) 完 成 的 功能 为 对 必须 的 头 文件 进行 包含 :程序 段 (2) 为 输出 
函数 的 定义 ,其 功能 为 关闭 数据 文件 matlab,. data; 程 序 段 (3) 为 MEX 文件 
的 人 口 , 此 外 还 定义 了 一 个 字符 串 变量 str 程序 段 (4) 用 来 对 MEX 文件 的 
输入 参数 和 输出 参数 的 个 数 及 类 型 进行 判断 ,输入 参数 的 个 数 必须 为 1, 类 
型 必须 为 字符 串 , 输 出 参数 的 个 数 不 能 大 于 1; 程序 段 (5) 用 来 判断 数据 文件 
matlab. data 是 否 被 打开 , 若 没 用 则 以 文件 属性 “w "打开 ， 文件 开启 成 功 后， 
使 用 函数 mexAtExit 注册 本 数 CloseStream, 用 于 在 MEX 文件 退出 时 ,自动 
地 关闭 数据 文件 ;程序 段 (6) 为 使 用 函数 mxArrayToString 从 输入 参数 中 获 
取 字 符 串 ;程序 段 (7) 将 字符 串 写 和 人 数据 文件 ,并 且 对 字符 串 扫 针 进行 内 存 帮 
放 , 这 是 一 个 必 不 可 少 的 步 票 ,因为 MEX 文件 的 内 存 自 动 管理 机 制 并 不 会 
释放 该 段 内 存 , 如果 不 人 为 地 进行 释放 ,将 会 导致 内 存 的 泄漏 。 
程序 mexatexit. cpp 完成 的 功能 与 程序 mexatexit,e 相同 ,不 过 使 用 的 方法 
不 同 ,在 程序 mexatexit. cpp 中 ,使 用 了 类 (class) ,程序 的 源 代码 如 下 ， 

/xx 程序 外 (1) * 7/ 

井 include <stdio.bh 

间 include "mex hn 

#ineluqde <string,h> 


/* 程序 眉 (2) * 7/ 

clase 1leresource 

{ 

， public， 

和 eresoutee( ) { 印 一 fopenkrtnattab,data” yw” 73)} 
~fileresoutcek ) { fclose(ip)3)} 
FILE * 地 ; 

); 


Static fileresoOurce file# 
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/* 程序 眉 (3) * 7 
void mexFunetion (int nlihs ，mxArray * plhs[]， 
int nrha ，const mmxArray *# Prbs[]) 
char 关 Strl 
7/x 程序 锋 (4) * 7/ 
ii(file. 征 = 王 NULL》 
{ 
InexErrMsgTxt(2Could not open matiab. dataNnr》; 
} 


/# 程序 段 (5》* 7 
让 《brhs 1 一 ) 
{ 
ImexErrMsgTxtkrOne input argumeft required, 了 7)+ 
} 
这 (nihs > ) 
《 
PiexErrMsgTxtt"Too Iany output arguments,” 78 


} 


/x# 程序 段 (6》 * 7/ 
让 (1 (mxlsChar(prhs[0]7)) 


{ 
ImexErrMsgTxt("Input must be of type string. ”7 


} 


/+ 程序 段 C7) xy7 
st 一 mxArrayToString(prhs[O] 7 
让 《ipzrintf(file, 和 p 必 %%sNny， str》} 一 strlen(str) 十 1》 
《 
ImxFreekstr)4 
mexErtrMsgTxt("Could not write data to file. nr》 
} 
tmexPrintf( Writing data to file, An 7) 
InXxFree(str); 
TetUtty 
} 
其 中 程序 段 (1) 为 头 文件 包含 ;程序 段 (2) 为 类 世 eresource 的 定义 ,该 类 拥有 
两 个 成 员 函 数 , 即 构造 函数 和 析 构 函数 ,分 别 用 来 打开 数据 文件 和 关闭 数据 
文件 ,此 外 该 类 还 定义 了 一 个 文件 类 型 的 指针 成 员 变量 ip, 用 于 存放 文件 句 
柄 ,在 该 程序 段 的 最 后 ,还 定义 了 一 个 fleresouree 类 的 类 对 象 fle 程序 段 
(3) 为 MEX 文件 的 人 口 ;程序 段 (4) 为 判断 数据 文件 是 否 打 开 :程序 侦 (5) 用 
于 判断 MEX 文件 的 输入 参数 和 输出 参数 的 个 数 是 否 正确 ;程序 段 (6) 用 于 
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判断 输入 参数 的 类 型 是 否 为 字符 串 类 型 ;程序 段 (7) 用 于 向 数据 文件 中 写 人 
用 户 输入 的 字符 串 , 并 且 释 放 字 符 串 变 量 str 所 占用 的 内 存 。 

读者 可 能 会 发 现 这 个 程序 中 ,并 没有 包含 对 mex- 范 数 mexAtExit 的 调用 的 
语句 和 对 数据 文件 开启 的 文件 ,其 实 这 些 工 作 已 经 通过 C 十 十 的 类 的 机 制 政 
式 地 得 到 完成 。 当 声明 一 个 类 对 象 时 , 自动 地 调用 类 的 构造 函数 ,完成 了 对 
数据 文件 的 开启 工作 , 当 程 序 退 出 时 ,通过 类 对 象 自动 地 调用 析 构 函数 完成 
了 对 文件 的 关闭 任务 ,其 功能 则 函数 mexAtExit 相同 。 


3. texCallM 太 TILAR 


功能 ,用 于 调用 MATLAB 内 建 函 数 或 用 户 自 定义 的 MATLAB M 文件 以 及 MEX 


文件 。 


语 法 :; 间 include "mex.hw 


int mexCallMATLAB(int nlhs，mxArray #Pplhs[]，int nrhs， 


ImxArray * prhs[] ，const char * command _name); 


说 “” 明 :该 函数 用 于 调用 一 个 内 建 的 MATLAB 数学 函数 .运算 符 .M 本 数 以 及 其 他 


一 些 MEX 文件 ,调用 的 函数 名 .运算 符 名 .M 函数 名 以 及 MEX 文件 名 通过 
字符 囊 类 型 的 输入 变量 command _name 传递 给 MATLAB, 其 余 四 个 输入 
参数 的 含义 分 别 如 下 : 
。 nihs 为 所 调用 的 MATLAEB 命令 的 输出 参数 的 个 数 ; 
。 plhs 为 指向 所 调用 的 MATLAB 命令 的 输出 参数 的 mxArray 结构 
体 类 型 的 描 针 数组 
。nrhs 为 所 调用 的 MATLASB 命令 的 输入 参数 的 个 数 ; 
。 prhs 为 指向 所 调用 的 MATLAB 命令 的 输 人 参数 的 mxArray 结构 
体 类 型 的 指针 数组 ; 
在 默认 情况 下 ,调用 本 数 mexCallMATLAB 执行 命令 command _name 发 
生 错 误 时 ,MATLAB 将 终止 程序 的 运行 ,并 且 退 回 到 MATLAB 命令 提示 
符 下 如果 用 户 希 望 发 生 错 误 时 , 进行 另外 的 处 理 , 可 以 使 用 函数 mxSet- 
TrapFlag 打开 陷阱 标志 , 进行 异常 处 理 。 此 外 在 调用 函数 mexCallMATLAB 
有 可 能 会 产生 一 个 类 型 为 mxUNKNOWN _CLASS 的 数据 对 象 。 例 如 用 户 
定义 了 一 个 M 文件 ,如 下 ， 


function [Lab] 一 double ecc) 

8 一 2x Ci 
该 M 文件 拥有 两 个 输出 参数 ,但 只 有 一 个 在 计算 过 程 中 予以 了 冉 值 ,在 执行 
该 函数 时 ,MATLAEB 将 会 显示 警告 信息 ， 

Warning : DOne or more output arguments not assigned during 


call to "double _e“. 


但 是 并 不 报错 ,而 是 将 未 赋值 的 对 象 b 描述 为 一 个 空 矩 阵 ,如 果 用 户 使 用 郴 
数 mexCallMATLAB 对 该 函数 调用 时 , 这 个 未 赋值 的 对 象 将 被 描述 为 mx- 
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UNKNOWN CLASS 类 型 。 
举例 :程序 mexcallmatlab.c 为 MATLAB 提供 的 一 个 范例 程序 , 它 没 有 任何 输入 
人 参数 , 当 在 MATILAB 中 调用 该 程序 时 , 它 将 首先 构造 并 显示 下 面 的 矩阵 


hankel(1:4,4, 一 1:1) 十 sqttK 一 1) #<toeplitz 人 1 41:47) 


然后 通过 郴 数 mexCallMATLAP 调用 MATLAB 函数 计算 矩阵 的 特征 值 和 
特征 向 量 , 并 对 特征 值 扎 阵 求 赣 , 最 后 显示 特征 向 量 和 矩阵 ， 程 序 的 源 代 码 如 
下 ， 


/ax# 头 文 件 包 售 * / 
##include <math.h> 
共 jnclude ”mex.hy” 


/x 密 定 尽 xy 
井 define XR(Ci,jyxrLi 十 4# 柯 
提 defiine XIGii) xi[i 十 4x 朴 


/* 计算 子 程序 ,用 于 构造 矩 隆 
hankel(1:4,4: 一 1:1) 十 sqrtK 一 1》 关 toeplitz(1:4，1:4) 关 


static void fill _arrayk double * xry， double * xi 
{ 

double tmp， 

int ij 


/* 奸 充 插 阵 的 实 部 和 娠 部 * / 
foer 人 一 0 jj < 43j 十 十 ) 1 
forgi 一 0i< 一 ji 十 十 ) 
{ 
XRCG 一 4 十 j 一 小 
XR(j,i) = XRGj); 
XIGi jn) 一 jj 一 1 十 1 
Xigj,iy 一 XIGi + 


} 


for 如一 051< 23; 十 十 ) 
{ 
for ti 一 0 i1<45i 二 十 ) 
{ 
tmp 一 XRC 373 
症 = 一 3 一 ji 
XR(i,j) 一 XRG 73 
XRtiy jj 一 tmpy 
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/x* 和 拖 阵 求 逆 * 7 
static void invertd( doubie # ty double *xiy》 
《 

double tmp# 


double #rx， Hix+ 


int 计 
tX 一 XIT; 
这 一 Xi 


for (i 一 0gi< 16i 十 一 5 rx 十 一 5 jx 十 一 5) 
{ 


ttmp 一 #TX 并 并 TX 十 关 这 并 并 让 
兴工 区 一 #TX tmp 
# 这 一 一 #ixytmp; 


void ItmexFunetion( int nlhs，mxArray #Pplhs[]， 
int hrhs ，const mxArray # Prhs[]) 


int mm ni; 
mx 上 Array #lhs[2]，#< xi 


ti 一 Dm 一 4 


/* 检查 输入 和 输出 参数 的 个 数 * / 
这 (orhs ! 一 90) 


mexErtMsgTxtCzNe input argutnentsg required,”)3 


} 
详 (hlhs 17) 
{ 
mexErrMsggTxt(*Too many output arguments ”); 
} 


/+# 构造 空 矩阵 x * 7/ 
x 二 mxCreateDoubleMatrix(m，n， ImxCOMPLEX72# 


/x 填充 矩阵 x * 7/ 
farray(mxGetPr(x)，mxGetPiKx》75 


/ * 调用 函数 mexCailMATILAB 执行 MATLAB 命令 disp ,用 于 显示 甜 阵 x * / 
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mexCallMATLABI0O,NULL, 1，&x，"disp”)s 


/* 调用 MATLAB 函数 eig 执行 特征 值 和 特征 向 量 计算 任务 * / 
mexCallMAT] 和 B(2，lhs，1，&Bx，”eig” ); 


/* 显示 特征 值 矩阵 * / 


tmexCallMATLAB(ONULL ,1，&ihsr ]，*disp*)， 


/* 特征 值 矩 阵 求 赣 * / 


invertd(mxGetPrclhs[L1]》，mxGetPiClhs[11)》 


/x* 显示 结果 * / 


tmexCall]MATELAB(O,NULL,1，&lhs[1]，”"disgp")5 


7 有 释 放 临 时 矩阵 对 象 * / 
mXDestroyArray(K 天 7》 
tmxDestroyArrayrihsL1])， 


plhs[0] = lhs[0]; 


} 


该 程序 执行 后 ,MATLAB 将 显示 如 下 计算 结果 ; 


1.0000 十 1.0000i 
2. 0000 十 2. 0000i 
3. 0000 十 3.0000i 
4. 0000 十 4.0000i 


10,.8990 十 8. 8990i 
一 3.4142 一 3.4142i 


0 
0 
0 


0. 0551 一 0.0449 
一 0.1464 十 0. 146 生 


0 
0 
0 


ang 一 

0. 4983 十 0.0413i 
0. 4965 一 0, 0592i 
0. 4965 一 0, 0592i 
0. 4983 十 0. 0413i 


4。，tImexErrMsgTxt 


2.0000 十 2. 0000i 
3. 0000 十 1. 000Wi 
4. 0000 十 2.00001 
3. 0000 十 3. 0000 


站 


0 
0 


0 


0 
0 


一 0. 6449 十 0, 104 和 全 
一 0. 2671 十 0.0433i 
0. 2671 一 0. 0433i 
0. 6449 一 0, 1044i 


3,. 0000 十 3.0000i 
4, 0000 十 2. 0000i 
3.0000 十 1 000 伍 
2. 0000 十 2. 0000i 


0 
0 

1 1010 一 0. 899 让 
0 


0 
0 

0. 5449 十 0. 4449i 
0 


0. 4995 一 0, 0227i 
一 0. 4939 一 0. 0777i 
一 0. 4939 一 0.0777i 

0. 4995 一 0. 0227i 


4. 0000 十 4. 0000i 
3,. 0000 十 3, 000U0i 
2.0000 十 2.0000i 
1.0000 十 1.0000i 


0 
0 
0 


一 0.5858 一 0. 5858i 


0 
0 
0 
一 0.8536 十 0. 8536i 


一 0. 2685 一 0. 033 关 
0, 6483 十 0. 0803i 
一 0.6483 一 0.0803i 
0. 2685 十 0. 0332i 


功能 ,用 于 输出 错误 信息 ,并 返回 到 MATLAB 命令 提示 符 下 。 


语 法 ;#include ”mex。 hy 


。88 . MATILABS 应 用 程序 接口 用 户 指南 





void mexErtrMsgTxtfconst char xerror masg)y 

说 ” 明 : 该 函数 公有 一 个 字符 串 类 型 的 输入 参数 ,没有 任何 返回 值 。 当 程序 执行 了 该 
函数 后 , 它 在 MATLAB 命令 窗口 中 显示 一 个 错误 信息 error _ msg 后 ,将 终 
止 程序 的 继续 运行 ,并 返回 到 MATLAB 命令 提示 符 下 。 不 过 这 里 必须 注意 
一 点 ,虽然 对 函数 mexErrMsgTxt 的 调用 会 终止 当前 MEX 文件 的 执行 ,但 
是 并 不 会 将 MEX 文件 清除 ,因此 使 用 函数 mexAtExit 注册 的 退出 函数 并 不 
会 被 调用 。 不 过 对 于 程序 中 使 用 mxCalloc 等 本 数 分 配 的 临时 使 用 的 内 存 , 将 
会 被 MEX 文件 的 内 存 自 动 管理 机 制 清除 ,用 户 不 用 担心 内 存 泄漏 的 问题 。 

举例, 对 函数 mexErrMsgTxt 的 使 用 非常 简单 ,例如 


mexEIrMsgTxtG"Too tnany output argutnehts. 2)3 


在 前 面 的 例子 中 该 函数 得 到 广泛 的 使 用 ,往往 用 于 程 泽 发 生 执行 异常 时 , 报 
告 错误 并 退出 程序 的 运行 ,读者 可 以 参见 前 面 的 各 程序 。 


5. tmexEvalString 


功 ”能 :用 于 输入 一 个 表达 式 命令 到 MATLAB 工作 环境 中 执行 。 

语 法 ,并 include "mex.h” 
int mmexEvalString(const char xx command7# 

说 ” 明 :该 画 数 的 输入 参数 为 一 个 字符 串 , 该 字符 串 代 表 了 一 个 可 以 在 MATLAB 工 
作 环 境 中 执行 的 MATLAB 命令 ,如 果 该 命令 执行 成 功 , 其 返回 值 为 0, 若 不 
成 功 , 则 返回 一 个 非 零 的 整数 值 。 
该 函数 与 前 面 讲述 的 函数 mexCaliMATLAB 的 功能 大 致 相同 ,惟一 不 同 的 
是 画 数 mexCalIMATLAB 不 但 可 以 用 来 执行 MATLAEB 命令 ,而 且 可 以 通 
过 参数 nlhs 和 参数 plhs 从 MATLAB 环境 中 得 到 计算 的 结果 ,用 于 MEX 
文件 中 的 后 绫 计算 ;而 函数 mexEvaiString 则 没有 此 项 切 能 ,只 能 用 于 向 
MATLAB 发 送 计算 指令 ,无 法 取得 计算 结果 ,并 且 出 现 于 命令 右 侧 的 参数 
必须 在 当前 的 MEX 文件 的 工作 空间 中 已 经 存在 。 

举 ， 例 ;程序 mexevalstring.c 为 MATLAB 提供 的 一 个 使 用 画 数 mexEvalString 的 
范例 程序 ,该 程序 没有 任何 输入 参数 ,其 功能 为 使 用 函数 mexEvalString 关 
闭 MATLAB 的 报警 功能 ,然后 对 表达 式 0/9 进行 计算 ,在 没有 关闭 MAT- 
LAB 报警 功能 的 情况 下 ,MATLAB 将 显示 一 个 被 零 除 的 警告 ,而 关闭 后 ， 
MATLAB 将 不 显示 该 警告 。 程序 的 源 代 码 如 下 (程序 较为 简单 , 故 不 作 详细 
解释 ): 

/xx 冻 文 件 包 禽 * 7/ 


林 include ”Imex.by” 


/sx 人 口 函数 * 7/ 
void mexFunetion (int nlhs 、mxArray x plhs[]， 
int nrbs，conat mxArray 关 Prhs[]) 


『 
\ 
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/* 检查 输入 和 输出 参数 的 个 数 * / 
于 《nrhs 上 一 0) 
{ 


tmexErtrMsgTxtC2No input arguments required,”); 


} 
inlhs >> 1) 
{ 
ImexErrMsgTxtk"Too Inany Dutptt arguments. 了); 


} 


/* 使 用 函数 mexEvalString 传送 全 令 a= 0/0, 此 时 MATILABH 执行 该 命令 将 
报警 * 7 


InexEvalString("a 一 070")# 


/* 关闭 报警 功能 * / 


mexEvyalString("wrarning off* )3 


/* 在 此 执行 命令 a 一 0/0, 此 时 MATLAB 将 不 报警 * 7/ 
mexEvalString(k*b 一 0/0" 7; 


/< 开启 报警 功能 * / 
InexEvalString(”watning on ?5 
} 
执行 此 程序 ,MATLAB 将 显示 如 下 内 容 ， 
机 arningz Divide by zero. 
a 一 
NaN 


NaN 
其 中 NaN 的 含义 为 not-a-aumber 。 


6. tmexFunction 


功 能 :C 语言 MEX 文件 的 人 口 点 函数 。 

语 法 :##include ”mex,hy 
void mexFunetion (int nlhs ，mxArray * plhs[]，int nrhs， 

const mxArray #pths[])， 

说 ”了 明 : 该 函数 拥有 四 个 输 人 参数 ,分 别 为 nihs .plhs ,nrhs 和 prhs, 其 中 nlhs 为 
MEX 文件 的 输出 参数 的 个 数 ,类 型 为 整数 ;plhs 为 指向 输出 参数 的 指针 的 
数组 ,类 型 为 mxArray 结构 体 指针 ;nrhs 为 MEX 文件 的 输入 参数 ,类 型 为 
整数 ;prhs 为 指向 输 和 人 参数 的 指针 数组 ,类 型 为 mxArray 结构 体 指针 。 
函数 mexFunction 是 C 语言 MEX 文件 的 人 口 点 函数 ,是 任何 C 语言 MEX 
文件 的 必 不 可 少 的 组 成 部 分 , 它 并 非 由 用 户 来 调用 ,而 是 由 MATLAB 系统 
来 使 用 。 当 在 MATALB 环境 中 执行 一 个 MEX 文件 时 ,MATLAB 首先 将 
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寻找 并 载 人 同名 的 MEX 文件 ,然后 在 该 文件 中 寻找 名 为 mexFunction 的 符 
号 名 ,如果 找到 ,那么 MATLAB 将 以 该 符号 的 地 址 作为 调用 MEX 文件 的 
人 口 地 址 ,并 且 将 函数 mexFunction 的 各 参数 自动 赋值 ;如 果 在 整个 文件 中 
没有 找到 名 为 mexFuncetion 的 符 导 ,那么 MATLAB 将 否认 这 是 一 个 MEX 
文件 并 给 出 相应 的 错误 信息 。 

举例; 函数 mexFunction 是 C 语言 MEX 文件 的 编程 基础 ,深入 理解 该 函数 对 以 后 
MEX 文件 的 编程 极为 重要 。 程 序 mexfunction.c 是 MATLAEB 提供 的 一 个 
范例 程序 , 它 完 成 的 功能 相当 简单 ,仅仅 是 读 取 输 入 参数 的 内 容 , 并 原封 不 动 
地 斌 值 给 输出 参数 ,其 源 代 码 如 下 


/* 头 文 件 包 会 *7 


并 include "imex.hy 


/# 大 口 点 函数 * / 
void mexFunction (int nlhs，mxArray * plbs[]， 
int nrhs ，const mxArray xx Prhs[]) 


{ 


int 1 


/x 确定 输 人 参数 个 数 ,并 输出 各 和 参数 的 类 型 + / 
mexPrintf (snThbhere are %d right-hand-side argument(s),”，nrhs)j 
foer(i 一 0 i<<nrhsi i 十 十 ) 


{ 
mexPrintf (naNtInput Arg %i is of type:NM%%s ”yi 
txGetClassName(pths[i])); 


} 


/* 检查 输出 参数 个 数 ,必须 小 于 输入 参数 个 数 * / 
mexPrintt(nnTbere are %d left-hand-side argutnentks). ar ，nlhs)》， 


主 (nlhs > nrhs) 
mexErtMsgTxt(CCannot specify more outputs than inputs、 Nan 7 


/xy 将 输入 参数 赋值 给 输出 参数 * / 
for(〈i 王 0 inlhsi i 十 十 ) 


{ 
blhs[ 让 一 InxCreateDoubleMatrix(1*1， mxXREALy》， 


x* mxGetPr(plhs[ 让 ) 一 mxGetNumberOfIElements(pPrhs [i]》， 


} 
7 了 7。?tnexFEunetionName 


功能 ,用 于 获得 当前 执行 MEX 文件 的 文件 名 。 
语 ”法 ;#include ”mex.hy” 
const echar * mexFunctioconName( ) 
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说 ” 明 : 该 函数 没有 任何 输入 参数 ,返回 值 为 一 个 字符 串 指针 ,在 MEX 文件 中 调用 
该 函数 时 , 它 将 返回 当前 执行 MEX 文件 的 文件 名 , 倒 如 在 MATLAB 命令 
提示 符 下 键 人 MEX 文件 名 mexname ,在 该 MEX 文件 中 存在 语句 

char name[50]， 
name 一 mexFunctionNatme( )》 
这 时 变量 name 中 的 内 容 即 为 站 
举例 :详细 例子 参见 函数 mexGetArray 的 举例 . 


8、mexGet 


功能 ,用 于 获得 某 一 指定 图 形 句柄 的 属性 。 

语 法 ;#include ”tnex,h” 
const mxArray # InexGet(double handle ，const char * PrOPerty) 1 

说 “了 明 , 输 入 参数 double handle 为 一 个 指定 的 图 形 句 柄 ,参数 const char * propetty 
为 图 形 句 柄 的 属性 值 。 当 成 功 调用 该 函数 时 , 它 返回 指定 图 形 句 柄 的 指定 属 
性 的 属性 值 : 若 调用 不 成 功 , 则 返回 一 个 空 指 针 。 这 里 必须 注意 一 点 ,函数 的 
返回 值 声明 为 const, 即 常量 类 型 ,意味 着 在 对 MEX 文件 的 操作 中 ,这 个 
mxArray 结构 体 类 型 的 指针 变量 为 只 读 ,最 好 不 要 对 该 值 进行 改动 ,否则 可 
能 产生 意 想不到 的 效果 。 

举例 :程序 mexget.c 是 MATLAB 提供 的 一 个 范例 程序 , 它 演示 了 在 MEX 文件 
中 使 用 函数 mexGet 和 函数 mexSet 的 方法 ,其 中 本 数 mexSet 的 功能 将 在 
后 面 讲 述 。 该 程序 的 功能 为 获取 一 个 图 形 句 柄 的 颜色 属性 ,修改 后 进行 重新 
设置 ,其 源 代码 如 下 : 


/+# 头 文 件 包 含 * 7 


incluqe ?tmex. hy 


/zx 宏 定 义 * 7 

#define RED 0 
共 define CREEN 1】 
#define BLUE 2 


/xx MEX 文件 人 口 点 函数 * / 
void mexFunction (int nlhs ，mxArray xy plhs[]，int nrhs， 
const mxAArray # prhs[]) 

{ 

/* 放量 定义 * 7 

double bandle; 

const mxArray 类 CDlor _atfay_pPtr) 

Imx 太 rray # Valuel 

double # Color 


/* 程序 假定 只 能 拥有 一 个 输入 参数 ,并 且 该 参数 的 类 型 必须 为 double 类 型 
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兴 7 
计 (nrhas ! 一 中 1 mxIsDeubleKprhs[0])》 
{ 

mexErrMsgTxt("Must be called with a valid handlie” )， 
} 


/ * 检查 输出 参数 的 个 数 * / 
过 (nths >> 1》 
{ 
mexErrMsgTxtk”Too Inany OutPut arguments, ?3 


} 


/*# 确定 输 和 人 参数 是 否 为 一 个 数量 * / 
诈 (mxGetN(CPrhs[0]) ! = 1 | mxGetMKprhs[0]) 1 一 1) 
{ 
mexErrMsgTxt(*JInput must be a scalaf handle value, \n?7)5 
} 


7# 获取 句柄 * 7/ 
handqle 一 mxGetScalar(prhs[0])) 


/* 获取 句柄 的 颜色 属性 * / 


eolor _attay _ptr 一 mexGetKhandle，"Colcr”)5 


/* 判断 获取 句柄 的 颜色 属性 是 否 成 功 * / 
证 cotor _atray _ptr 一 一 NULL) 
mexErrMsgTxtCrCould not get this handle property”)# 


/* 创建 一 个 颜色 属性 的 指 贝 ,用 于 后 续 的 操作 ,这 主要 是 因为 函数 mexGert 的 
返回 值 为 一 个 常量 类 型 ,一 般 应 避免 对 该 返回 值 的 操作 * / 


value 一 InxDuplicateArray(coloer _array _Ptr); 


/=x 获取 颜色 属性 的 值 * /7 


color 一 mxGetPrkvalue); 


/xy 政变 颜色 值 * / 
eoler[RED] = 《1 十 colorLRED]) /2; 
color[GREEN] = colorLGREEN]/25 
eolor[BLUE] = eolor[LBLUE]/2) 
/+ 重新 设置 颜色 属性 * / 
让 (mexSet(bandlie ，"Color” ，value)7) 
tmexErrMsgTxtkrCould not set 8 new IColer' property.7)1 


Tetortn ly 
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如 果 读 者 对 MATLAB 图 形 句柄 系统 不 太 娄 悉 ,请 参见 相关 的 书籍 。 


9。tmexGetArray 


功 能 :复制 另外 一 个 工作 空间 中 的 某 个 变量 。 
语 法 ,#include "mex,h” 
ImXArray x mexGetArray(const Char #t natme，const chat # Workspace); 
说 ”了 明 : 丁 数 输 人 参数 const char * narmne 为 用 户 希 望 从 另 一 个 工作 空间 复制 到 当前 
MEX 文件 的 工作 空间 中 来 的 变量 的 名字, 人 参数 const char * workspace 则 
指明 了 变量 的 来 源 , 它 有 三 种 取 值 ,如 下 : 
*base” ; 即 指明 在 当前 的 MATLAB 工作 空间 中 搜索 变量 name 
*cailer” : 即 指明 在 调用 者 的 工作 空间 中 搂 索 变量 name, 一 般 情 况 下 ， 
调用 者 可 以 为 MATLAB M 函数 .另外 的 MEX 文件 以 及 
MATLABi 
”global” : 即 指明 在 所 有 工作 空间 中 的 全 局 变量 中 搜索 变量 name, 如 果 
存在 同名 变量 ,但 没有 标记 为 全 局 变量 , 范 数 同样 会 返回 
NULL 。 
如 果 该 函数 执行 成 功 , 将 构造 并 返回 一 个 mxArray 结构 体 类 型 的 指针 变量 ， 
该 指针 指向 变量 name 的 一 个 拷贝 ,这 时 ,在 我 们 的 MEX 文件 中 就 可 以 对 变 
重 name 的 数据 进行 访问 和 操作 了 。 如 果 不 成 功 , 则 返回 一 个 空 指针 ,通常 情 
况 下 , 函数 执行 失败 的 原因 为 当前 的 工作 空间 中 , 并 不 存在 名 为 name 的 变 
量 。 
举例 ,程序 mexgetarray.c 为 MATLAB 提供 的 一 个 范例 程序 , 它 演示 了 如 何在 
MEX 文件 中 使 用 函数 mexGetArray、 画 数 mexPutArtrray 和 函数 mexFunc- 
tionName, 函数 mexPutArray 的 功能 将 在 后 面 进行 介绍 。 该 程序 的 功能 非 
党 简单 ,没有 任何 输入 参数 , 仅仅 用 来 对 当前 MATLAB 环境 中 MEX 文件 
mexgetarray 被 调用 的 次 数 进行 计数 。 程 序 在 MEX 文件 的 内 部 和 MAT- 
LAB 的 内 部 各 设置 了 一 个 计数 器 用 来 对 调用 次 数 进 行 计 数 , 即 使 在 MEX 
文件 被 清除 后 ,计数 器 也 不 会 被 清除 ,这 主要 是 通过 设置 变量 的 存储 类 型 来 
完成 。 程 序 的 源 代码 如 下 : 
17x* 头 文 件 包 合 * / 
##include <stdio.h 一 


并 inelude <stting.h> 
亲 inciuqde ”tmex.hyn 


/x 定义 MEX 文件 内 部 调用 计数 器 mex _count, 声 明 为 静态 变量 ,作用 域 为 全 局 
天 


gtatic int mex _cotunt 一 人 


/+# MEKX 文件 人 口 点 函 妆 * 7 


void mexFunction{int nlhs，mxAtrray x plhs[LJ]， 
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int nrhs ，const mxAtrray # Prhs[]) 


/x 变量 声明 * / 
char array 、namte[40]; 
TnKAtray #+attay _Ptr' 


int Status ; 


/:* 检查 输入 输出 参 致 的 个 数 * / 
这 (nrhs ! 一 0 
《 
TexErTMsgTxtk"No input arguments required,”)3 
} 
ifCnihs 之 ]) 
{ 


InpexErrMsgTxtt*Too many Output arguUmetnts ”73 


/xx 调用 函数 mexFunctionName 获取 MEX 文件 的 名 字 * 7/ 


strcpy(Kattray _name，ImexFunctionName(K ?775 


/# 字符 串 连 接 操作 * 7/ 


sttcattatray _Damesw _cailed> )》+ 


/# 在 所 有 的 全 局 变量 中 搜索 名 为 array _ name 的 变量 * / 


atray _ptt 一 ThexGetArray[array _nameswglobal* )# 


/* 检查 MATLAB 和 MEX 文件 的 计数 器 状态 ,并 进行 相应 处 理 * / 
让 《array _ptr 一 二 NULL )》 
{ 
在 5 mex 、count 上 一 0) 
{ 
Imex _count 一 0# 
InexPrintf(”Vatiable sSNna，atray _Pamae); 
mexErrMasgTxt "Global variable was cleared 
from the MATLAH \wlobal 
workspace. NnResetting counht ny ); 


7/x* 构造 矩阵 * 7 
array ptr 一 InxCreateDoubleMatrix(1T,1,mxREAILD); 


/xx 和 将 阵列 array _ptt 命名 为 array _name *7 
tmxSetNatme (atrray _ptr，arTtay _narne》，? 


} 


第 3 章 C 语 言 MEX 文件 的 编写 ,95。 


/x* MATLAB 和 MEX 文件 计数 器 增 1 操作 * / 
mex _count 一 ImxGetPrKarray _Ptr)[0] 
tmexPrtintf(Kw %%s has been called %%itimeksy\nz ， 


mexFunctionNarme(K )，nex _cotunt]; 


/x 将 变量 array _ptr 以 ”globaly 的 性 质 输 送 到 MATILAB 
的 工作 空间 * / 


status = IDexPutArraytkattray _ptfywglobaly)5 


/x 判 斯 输出 变量 是 否 正 确 * 7/ 
诺 status 一 一 1) 
{ 
ImexPrintftKrVariable sn ，attay _natme》1 
ImexEtrMsgTxtKrCould not put variable in globai workspace, Nmw )5 
} 


/x 桥 梅 阵列 * 7 
ImxDestroyArrayfarray _、ptr》; 
} 
在 MATLAB 中 首次 热 行 该 程序 时 MATLAB 将 显示 
ImexSgetarTay has been called 1 time(s》 


而 在 第 二 次 执行 时 ,计数 值 将 增 1, 显示 如 下 ， 


Inex 女 etaryay has been cajiled 2 time(s》 
10，mextGetArrayPtr 


功 能 :用 于 获得 一 个 只 读 的 指向 另外 一 个 工作 空间 中 的 变量 的 指针 。 

证 法;#include "mex, hy 
const tnxArtray # mexGetArrayPtr (const char # name，Cconst Char 
WODrKsbace) 

说 ” 明 , 函 数 输入 参数 const char * name 为 用 户 希 望 从 另 一 个 工作 空间 复制 到 当前 
MEX 文件 的 工作 空间 中 来 的 变量 的 名 字 , 参 数 const char * workspace 则 
指明 了 变量 的 来 源 , 它 有 三 种 取 值 ,如 下 : 

xbase”  , 即 指 明 在 当前 的 MATLAB 工作 空间 中 搜索 变量 namei 

”ealler” ;, 即 指明 在 调用 者 的 工作 空间 中 搜索 变量 name, 一 般 情 况 下 ， 
调用 者 可 以 为 MATLAB M 郴 数 .另外 的 MEX 文件 以 及 
MATLABI 

wglobal” : 即 指明 在 所 有 工作 空间 中 的 全 局 变量 中 搜索 变量 name, 如 
果 存 在 同名 变量 ,但 没有 标记 为 全 局 变量 , 函数 同样 会 返回 
NULL，。 

如 果 该 函数 执行 成 功 ,将 构造 并 返回 一 个 mxArray 结构 体 类 型 的 指针 变量 ， 
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该 指针 指向 变量 name 的 一 个 只 读 属 性 的 拷贝 ,这 对 于 在 MEX 文件 中 检查 
外 部 某 变量 的 内 容 极为 有 用 ,但 是 对 于 数据 的 操作 就 无 能 为 力 了 , 这 也 就 是 
画 数 mexGetArrayPtr 与 本 数 mexGetArray 之 间 的 最 大 区 别 . 如 果 枉 数 调用 
不 成 功 , 则 返回 一 个 空 指针 ,通常 情况 下 , 函数 执行 失败 的 原因 为 当前 的 工作 
空间 中 ,并 不 存在 名 为 name 的 变量 。 


举例 ,在 函数 mexGetArray 的 范例 程序 mexgetarray.c 中 ,将 如 下 语句 


arTray _jbtr 一 InexCGret 太 rray[array _Damey*global" )# 
改 为 


mnXArray # array _Teadonly， 
atfray _ teadonly 一 mexGet 太 TayPtr (array _nameygloehal”) 
array _ptt 一 IIXDuplicateArrayKarray _readoniy)# 


可 以 实现 同样 功能 。 更 为 详细 的 例子 参见 郴 数 mxlsLogical 的 范例 程序 。 


11，mexGetEps(Opsolete) 
说 ” 明 : 该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 


持 兼容 。 一 般 情况 下 ,该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MEX 文件 中 ,否则 在 编译 时 系统 将 报错 。 在 MATLAB V5.0 以 上 的 版 本 
中 ,为 了 完成 同样 的 功能 ,可 以 使 用 函数 mxGetEps 来 代替 酚 数 
mexGetEpbs ,例如 在 MEX 文件 中 可 以 使 用 语句 


eps 一 rmXxGetEps( 7 
代替 对 函数 mexGetEps 的 调用 语句 

eps 一 mexCGetEbs( )》! 
如 果 需 要 使 用 已 经 存在 对 函数 mexGetEps 调用 的 MEX 文件 ,而 不 希望 对 
海 程序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命令 
参数 -V4 ,声明 编 译 为 与 MATLAB V4, 0 版 本 兼容 的 MEX 文件 。 详 细 人 参见 
阔 数 mxGetEps 。 


12.。mexGetFEull(Cpsotete) 


说 “” 明 ,该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4- 0 版 本 保 


持 兼 容 。 一 般 情 况 下 , 该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MEX 文件 中 ,否则 在 编译 时 系统 将 报错 。 为 了 完成 同样 的 功能 ,在 MAT- 
LAB V5.0 以 上 的 版 本 中 ,可 以 使 用 如 下 语句 


TexGetArray(Kartay _ptr，Ycaller” 7 
narme 一 rmXGetName(array _Ptr)+ 
世 一 mxGetM(array _ptT)j 

n 一 ImmxGetN (array _ptr》， 

pr 一 mxGetPr (atray _Ptr7; 

pi 一 mxGetPi(array _ ptr》; 
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代替 语句 
ImexCetFullKnaame，rm， nm， PIT， pi) 


如 果 需 要 使 用 已 经 存在 对 函数 mexGetFull 调用 的 MEX 文件 ,而 不 希望 对 
源 程序 进行 收 改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命令 
参数 -V4, 声 明 编 译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 

详细 内 容 可 以 参阅 相关 的 函数 mexGetArray .mxGetName、mxGetPr 和 画 
数 mxGetPi。 


13. ImexGetGiobal(Obsotete) 


说 明 : 该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 
持 兼容 。 一 般 情 况 下 ,该 机 数 不 允许 出 现在 MATLAB V5,0 版 本 以 上 的 
MEX 文件 中 ,否则 在 编译 时 系统 将 报错 。 在 MATLAB V5.0 以 上 的 版 本 
中 ,为 了 完成 同样 的 功能 ,可 以 使 用 范 数 mexGetArrayPttr 来 代替 画 数 
mexGetGlobal ,例如 在 MEX 文件 中 可 以 使 用 语句 


tnexGetArrayPtrKnatrmne，?”global Dj 
代替 对 阔 数 mexGetGlobal 的 调用 语句 
mexGetGlobal(name) 


如 果 和 需要 使 用 已 经 存在 对 函数 mexGetGlobal 调用 的 MEX 文件 ,而 不 希望 
对 源 程序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命 
令 参 数 -V4, 声 明 编译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 

详细 内 容 可 以 参阅 相关 的 郴 数 mexGetArray ,mxGetName,mxGetPr 和 盯 
数 mxGetPi 。 


14，mexGetInf(Opsozete) 


说 ” 明 : 该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 邮 MATLAB V4. 0 版 本 保 
持 兼容 。 一 般 情 况 下 ,该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MEX 文件 中 ,否则 在 编译 时 系统 将 报错 。 在 MATLAB V5, 0 以 上 的 版 本 
中 ,为 了 完成 同样 的 功能 ,可 以 使 用 本 数 mxGetInf 来 代 夫 函数 mexGetInf， 
例如 在 MEX 文件 中 可 以 使 用 语句 


Inf 王 mxGetInf ( )》; 
代替 对 函数 mexGetInf 的 调用 语句 
Inf 一 mexGetInf 〔 )+ 


如 果 需 要 使 用 已 经 存在 对 函数 mexGetInf 调用 的 MEX 文件 ,而 不 希望 对 源 
程序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命令 参 
数 -V4, 声 明 编 译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 

详细 内 容 可 以 参阅 相关 的 函数 四 xGetInf 。 
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15、MmexGetMatrix(COBrodete ) 


说 骨 : 该 阔 数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 


持 兼 容 。 一 般 情 况 下 ,该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MEX 文件 中 ,否则 在 编译 时 系统 将 报错 。 在 MATLAB V5.0 以 上 的 版 本 
中 ,为 了 完成 闻 样 的 功能 ,可 以 使 用 函数 mexGetArray 来 代替 函数 mexGet- 
Matrix ,例如 在 MEX 文件 中 可 以 使 用 语句 


ImexCGetArraykname，nwealler”)# 
代替 对 画 教 mexGetMatrix 的 调用 语句 


tmex(CetMatrix(nhame7) 


如 果 需 要 使 用 已 经 存在 对 天 数 mexGetMatrix 调用 的 MEX 文件 ,而 不 希望 
对 涉 程 序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命 
令 参 数 -V4, 声 明 编 译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 

详细 内 容 可 以 参阅 相关 的 函数 mexGetArray 。 


16. mexGetMatrixPtrCOBpsozete) 


说 “” 明 ,该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 


持 兼 容 。 一 般 情况 下 ,该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MEX 文件 中 ,否则 在 编译 时 系统 将 报错 。 在 MATLAB V5.0 以 上 的 版 本 
中 ,为 了 完成 同样 的 功能 ,可 以 使 用 本 数 mexGetArrayPtr 来 代替 丁 数 
mexGetMatrixzPtr ,例如 在 MEX 文件 中 可 以 使 用 语句 


TextGet 太 trrayPtrfnatme ，nealler”); 
代替 对 函数 mexGetMatrixPtr 的 调用 语句 


tmexCGetMatrixPtrCnamey3 


如 果 需 要 使 用 已 经 存在 对 函数 mexGetMatrixPtr 调用 的 MEX 文件 ， 而 不 希 
刻 对 源 程 序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 
命令 参数 -V4, 声 明 编译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 

详细 内 容 可 以 参阅 相关 的 函 孝 mexGetArrayBPtr。 


17. mexGetNaN(CObsozete) 


说 ” 明 ,; 该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 


持 兼 容 。 一 般 情 况 下 , 该 函数 不 允许 出 现在 MATLAB V5. 0 版 本 以 上 的 
MEX 文件 中 ,否则 在 编译 时 系统 将 报错 。 在 MATLAB V5.0 以 上 的 版 本 
中 ,为 了 完成 同样 的 功能 ,可 以 使 用 函数 mxGetNaN 来 代替 了 画 数 mexGet- 
NaN ,例如 在 MEX 文件 中 可 以 使 用 语句 


NaN = 王 mxGetNaN(C )1 
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代替 对 函数 mexGetNaN 的 调用 语句 
NaN 一 mexCGetNaN( ); 


如 果 需 要 使 用 已 经 存在 对 函数 mexGetNaN 调用 的 MEX 文件 ,而 不 希望 对 
源 程序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命令 
参数 -V4, 声 明 编译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 

详细 内 容 可 以 参阅 相关 的 函数 mxGetNaN 。 


18、mexIsFinite(OBsotfete) 


说 ”了 明 , 该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 
持 兼 容 。 一 般 情况 下 ,该 函数 不 允许 出 现在 MATLAB V5. 0 版 本 以 上 的 
MEX 文件 中 ,否则 在 编译 时 系统 将 报错 。 在 MATLAB V5.0 以 上 的 版 本 
中 ,为 了 完成 同样 的 功能 ,可 以 使 用 函数 mxJsFinite 来 代替 画 数 mexIsFi- 
nite ,例如 在 MEX 文件 中 可 以 使 用 语句 


answet 一 tmxIsFinite(value); 
代替 对 函数 mexJsFinite 的 调用 语句 


answet 一 mexIsFinitefvalue); 


如 果 需 要 使 用 已 经 存在 对 画 数 mexlsFinite 调用 的 MEX 文件 , 而 不 希望 对 
源 程序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命令 
人 参数 -V4, 声 明 编译 为 与 MATLAB V4, 0 版 本 兼容 的 MEX 文件 。 

详细 内 容 可 以 参阅 相关 的 函数 mxIsFinite。 


19、tmexIsGlobal 


功能 ,判断 mxArray 结构 体 类 型 变量 是 否 为 全 局 作用 域 ， 

语 法 ; 直 include "mex. hy 
bool mexlsGlobalKconst mxAtrray 关 array _Ptr)j 

说 “ 明 , 该 函数 的 输入 参数 为 一 个 指向 mxArray 结构 体 变 量 的 指针 , 当 函 数 判断 指 
针 array _ptr 所 指向 的 mxArray 结构 体 变 量 为 全 局 作用 域 时 ,将 返回 逻辑 
真 , 和 否则 返回 因 辑 假 。 
使 用 该 函数 可 以 判断 一 个 指定 的 mxArray 结构 居 变 量 是 否 拥有 全 局 作用 
域 ,在 默认 情况 下 ,MEX 文件 中 和 独立 运行 的 程序 中 所 有 的 mxArray 结构 
体 变量 作用 域 均 为 局 部, 这 意味 着 所 在 文件 和 程序 内 部 对 mxArray 结构 体 
变量 所 作 的 修改 均 不 会 对 别 的 工作 空间 中 的 同名 mxArray 结构 体 变 量 产生 
影响 ;而 拥有 全 局 作用 域 的 mxArray 结构 体 变 量 进行 修改 , 则 完全 不 同 , 在 
一 个 工作 空间 中 的 动作 ,将 对 所 用 工作 空间 中 的 同名 变 重 产生 影响 。 在 
MATLAB 工作 环境 中 可 以 使 用 命令 global 将 一 个 变量 赋予 全 局 作用 城 , 例 
如 命令 


lobal xi; 


*，100， 


k3 


21. 


遂 起 


22. 


0. 


MATLAB 应 用 程序 接口 用 户 指南 





的 含义 为 赋予 变量 x 全 局 作用 域 . 函数 mexlsGlobal 最 常见 的 用 途 是 用 来 判 
断 一 个 MAT 文件 中 的 变量 是 否 为 全 局 变量 ， 


例 . 参 见 冰 数 mxislogical,c 的 范例 程序 。 


tmexjJsInf(obsolete) 


明 :该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 


持 兼容 。 一 般 情况 下 ,该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MEX 文件 中 , 否则 在 编译 时 系统 将 报错 。 在 MATLAB V5.0 以 上 的 版 本 
中 ,为 了 完成 同样 的 功能 ,可 以 使 用 函数 mxIsInf 来 代替 函数 mexIsInf ,例如 
在 MEX 文件 中 可 以 使 用 语句 


answer 一 mxJsJnf(value)]j 
代替 对 函数 mexIsInf 的 调用 语句 

answer 一 mexjsInf(value)) 
如 果 需 要 使 用 已 经 存在 对 函数 mexJsJnf 调用 的 MEX 文件 ,而 不 希望 对 源 
程序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命令 参 


数 -V4, 声 明 编译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 
详细 内 容 可 以 参阅 相关 的 函 教 mxIsInf 。 


mexIsLocked 


能 :判断 MEX 文件 是 否 处 于 锁定 状态 。 
法 :#ineclude ”Imex.hy 


bool mexJsLocked(void)i; 


明 : 当 MEX 文件 被 锁定 时 , 函数 返回 逻辑 真 ! 否则 郴 数 返 回 远 辑 假 。 当 一 个 


MEX 文件 被 锁定 时 , 用户 不 可 以 将 该 文件 从 内 存 中 删除 。 


例 : 参 见 函数 mexLock 的 范例 程序 。 
mexIsNaN (cbsclete) 


明 , 该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 


持 兼 容 。 一 般 情况 下 ,该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MEX 文件 中 , 砍 则 在 编译 时 系统 将 报错 。 在 MATLAB V5.0 以 上 的 版 本 
中 ,为 了 完成 同样 的 功能 ,可 以 使 用 函数 mxIsNaN 来 代替 函数 mexjsNaN， 
例如 在 MEX 文件 中 可 以 使 用 语句 


answer 一 mxkIsNaNKCvalue)i 
代替 对 枯 数 mexIsNaN 的 调用 语句 


answer 一 mexIsNaN(value); 


如 果 需 要 使 用 已 经 存在 对 函数 mexlsNaN 调用 的 MEX 文件 ,而 不 希望 对 源 
程序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 ,必须 使 用 mex 命令 参 
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数 -V4, 声 明 编 译 为 与 MATILAB V4. 0 版 本 兼容 的 MEX 文件 。 
详细 内 容 可 以 参阅 相关 的 函数 mxIsNaN 。 


mexLock 


能 :用 于 锁定 一 个 MEX 文件 。 

法 :;#include ”mex.hyn 
void mexLocKk(void ) ; 

明 : 该 函数 没有 任何 输入 和 输出 参数 。 在 默认 情况 下 ,所 有 的 MEX 文件 均 处 于 
解锁 状态 ,这 意味 着 用 户 可 以 在 任意 的 时 刻 将 MEX 文件 从 内 存 中 清除 , 但 
是 当 对 MEX 文件 使 用 函数 mexLock 进行 加 锁 后 ,就 可 以 禁止 MEX 文件 被 
随意 清除 。 间 时 可 以 对 同一 个 MEX 文件 多 次 使 用 函数 mexLock 进行 加 锁 ， 
这 时 ,函数 mexLock 将 锁定 次 数 保存 在 一 个 Leck 计数 器 中 , 并 且 每 调用 一 
次 函数 mexLock ,该 计数 器 增 1。 对 MEX 文件 的 解锁 可 以 使 用 函数 mexUn- 
lock , 当 对 文件 多 次 加 锁 时 ,必须 多 次 使 用 画 数 mexUnlock 进行 解锁 。 函 数 
mexUnlock 将 在 后 面 进 行 讲 述 。 

例 :程序 mexlock.c 为 MATLAB 提供 的 一 个 范例 程序 , 它 显 示 了 如 何在 MEX 
文件 中 使 用 函数 mexLock .函数 mexUnlock 和 函数 mexIsLocked 。 其 功能 非 
常 简单 , 即 根据 用 户 的 输入 ,对 MEX 文件 进行 一 定 的 加 锁 和 解锁 操作 ,其 源 
代码 如 下 ， 


/+ 头 文 件 包 含 * 7 


#include "mex.hy 


/+# MEX 文件 人 口 点 函 煞 * 7 
void mexFunection (int nlhs ,raxArray # plhs[]， 
int nths ,const tmxArray # prhs[]) 
《 
/x# 定义 double 型 变量 lock , 当 lock 到 值 为 工时 ,表示 希望 对 文件 加 锁 ! 当 iock 
取 值 为 0 时 ,表示 对 MEX 文件 保持 原状 态 不 动 ; 当 loek 歌 值 为 一 1 时 ,表示 希 
望 对 文件 进行 解锁 操作 。* 7/ 
double lock ; 


/x 对 输入 变量 进行 判断 ,输入 参数 的 个 数 必 须 为 一 个 ,类 型 必须 为 非 复数 的 
数量 * / 
让 (nrhs ! 一 1 1 1 mxlsDouhletprhs[oJ) | 
mxGetN{prhs[0])》* mxGetMKprhs[0]) 上 一 工 | 
mxIsComplex(prhs[D0])) 
{ 
mexErrMsgTxt(?Input argument must be a real scalar double”); 


} 


/* 不 允许 有 输出 参数 * / 
if(nths > 0) 
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mexErrMsgTxt(rNoe output argumenfts expected. 7) 


/x* 获取 输 人 参数 的 内 容 * 7/ 
lock 一 ItmxGetScalar (prhs[0])3 


/* 限定 变量 lock 取 值 范围 为 0,1, 一 1 * / 
iiCKlock 1 一 40) 8RR&leck : = 10g8&lock ! 一 一 1.0) 
《 
mexErrMsgTxtCrInput argument must be either 1 to lock or 一 ton 
unloek or 0 ior lock status, 7 5; 


} 


/x# 判断 文件 的 状态 , 即 解锁 或 加 锁 , 然 后 根据 输 人 进行 相应 的 操作 * 7 
证 (mexIsLocked( )) 
{ 
证 (lock > 0.0) 
{ 
ImexErrMsgTxt("MEX-file is already locEedNny ); 
} 
else 放 (iock < 0. 0) 
{ 
/+ 文件 解锁 *7 
tmexUmnlock( ); 
mexPrintf(*MEX-file is unlockedNnw ?3 


mexPrintf("MEX-file js lockedsn> )# 


} 
else 
{ 
过 [lock < 0.0) 
{ 
mexErrMsgTxtC"MEX-fiie is alteady unlockeds\a" 7 
} 
else ifKlock > 0.0) 
{ 
/+ 文件 加 锁 * 7/ 
mexLock(K 7; 
mexPrintfC2MEX-fiile is lockedna7 7 
} 
El8e 
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{ 
mexPrintf (MEX-file is unlockedsny 》; 
} 
} 
retutni 


} 


24。 tmexMakeArrayPersistent 


能 ,将 一 个 阵列 转换 为 持久 阵列 对 象 。 
法 ; #include ”mex.hy” 
void mexMakeArrayPersistent (Imx 和 Array #8aITay _Ptt)f# 

说 ” 明 ; 函 数 的 输 人 参数 mxArray * array _Pptr 为 一 个 指向 由 冰 数 mxCreate 构造 
的 mxArray 结构 体 类 型 数据 的 指针 。 在 一 般 情 况 下 , 由 函数 mxCreate 在 
MEX 文件 中 动态 创建 的 mxArray 结构 体 类 型 数据 均 为 临时 变量 ,在 MEX 
文件 执行 完毕 退出 时 ,这些 变 量 都 将 被 自动 清除 ( 晨 理 请 读者 参阅 3. 3 节 ， 
MEX 文件 的 内 存 管理 ) 。 如 果 用 户 希 望 某 个 阵列 在 MEX 文件 执行 结束 后 仍 
然 存在 ,方法 之 一 就 是 使 用 函 教 mexMakeArrayPersistent 将 该 阵列 转换 为 
一 个 持久 阵列 对 象 (参见 3. 3 节 ) ,这 种 数据 对 象 在 MEX 文件 退出 时 不 会 被 
自动 内 存 管理 机 制 所 释放 。 但 是 在 使 用 持久 阵列 对 象 时 必须 非常 小 心 ,必须 
人 为 清除 该 对 象 ,否则 将 会 导致 内 存 的 泄漏 ,一 般 的 方法 是 使 用 函数 mexA- 
tExit 注册 一 个 自 定义 函数 用 于 清除 持久 阵列 对 象 。 

举例: 使 用 实例 请 读者 参见 3. 3. 2 小 节 中 的 MEX 文件 。 


谢 吉 


25。mexMakeMemoryPersistent 


能 ,将 一 个 内 存 段 转换 为 持久 阵列 对 象 。 

法 ;#include "mex.hy 
void mexMakeMemoryPersistent(void # ptr)i 

说 “” 明 ,函数 输入 参数 void * ptr 为 一 个 指向 某 一 内 存 段 的 指针 ,该 内 存 段 一 般 由 函 
数 mxCalloc 、 本 数 mxMallcc 和 函数 mxRealloc 进行 分 配 。 一般 情况 下 ,由 这 
些 画 数 分 配 的 内 存 将 在 MEX 文件 退出 时 ,被 自动 清除 (原理 请 读者 参阅 3. 3 
节 ,MEX 文件 的 内 存 管理 ) 。 如 果 用 户 希 望 某 一 段 内 存 被 免 于 自动 清除 , 方 
法 之 一 是 使 用 本 数 mexMiakeMemoryPersistent 将 该 段 内 存 转 换 为 持久 阵列 
对 象 (参见 3. 3 节 ) 。 当 用 户 声明 一 段 内 存 为 持久 阵列 对 象 后 ,必须 人 为 地 将 
之 清除 ,比如 使 用 函数 mexAtExit 注册 一 个 自 定义 函 孝 用 于 清除 工作 。 

例 : 下 面 是 一 个 使 用 函数 mexMakeMemoryPersistent 的 非常 简单 的 MEX 文 
件 , 其 源 代码 如 下 ， 


/x 头 文 件 包含 * 7/ 


林 include ”mmex, hy 


靖 圭 


司 


/x 全 局 变量 定义 * / 
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gftatic int initializeqd 一 0 


char *buf; 


/# 持久 阵列 对 象 清除 函数 * / 

void cleanup 人 tvoid》 

{ 
imexPrintf(*MEX-file is terminating，destroying tnemoryNny ); 
InxFree(buf) 


} 


/nx 人 口子 例 行 程序 * / 
void mexFunction (int nlhs ,mxArray # pihs| ]， 
int nrhsvconst mxArray # PIThs[]) 


{ 


于 《1 initialized) 
《 


ImexPriatf(>MEX-file initializing，allocate memorysaY 3 


A# 便 建 持久 阵列 对 象 * / 
buf 一 〈char # ) mxCalloc(50，sizeof(char》71 
TimexMakeMetnoryPersistent(buf2# 


zx 注册 clearup 羡 数 * / 


imnexAtExittcieanup)y 


initialized 一 1; 
} 
else 


{ 
mexPrintf(>MEX-file initialized Sny )# 
} 


} 
它 的 功能 为 声明 一 个 内 存 段 为 持久 阵列 对 象 ,并 使 用 画 数 mexAtExit 注册 
了 一 个 函数 在 MATLAB 终止 执行 时 清除 该 持久 阵列 对 象 。 


26。 mexPrintf 


功 能 :输出 。 

语 ”法 :并 include "mex.h" 
jint mexPrintfKconst char * format，-.. )4 

说 “” 明 ,该 函数 的 功能 及 函数 参数 与 C 语言 的 输出 函数 printft 的 功能 及 函数 参数 完 
全 相同 ,读者 可 以 参见 C 语言 中 对 输出 格式 的 说 明 .在 MATLAB 中 ,C 语言 
函数 printf 已 经 内 嵌 人 MATLAB 中 , 当 用 户 调用 函数 mexPrintft 时 ,MAT- 
LAB 将 会 回调 C 语言 函数 printf 来 完成 输出 功能 。 但 是 在 MEX 文件 中 ,用 
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户 必须 使 用 函数 mexPrintf 来 代替 C 语言 函数 printf 来 完成 输出 任务 。 


举例:,mexPrintf("total num of cells 一 %dsn” ,total _num _of _cells) ; 
27.、ImexPutArray 


功 能 :将 当前 MEX 文件 工作 空间 中 的 某 个 变量 输出 到 另外 一 个 工作 空间 中 。 
语 法;#include ”mex,h” 
int mexPutArraykKmxArray #array _ ptr，const char #< 友 OfKspace)5 
说 ” 明 : 苑 数 输入 参数 mxArray * array _ptr 为 用 户 希 望 从 当前 MEX 文件 的 工作 
空间 中 输出 的 mxArray 结构 体 的 指针 ,人 参数 const char * workspace 则 指明 
了 阵列 的 去 处 , 即 目的 工作 空间 , 它 有 三 种 取 值 , 如 下 : 
”base”  ; 即 指 明 将 array _ptr 所 指向 的 mxArray 结构 体 变量 输出 到 
当前 的 MATLAB 工作 空间 中 ; 
*ealler” , 即 指明 将 array _ptr 所 指 抽 的 mxArray 结构 体 变 量 输出 到 
调用 该 MEX 文件 的 工作 空间 中 , 一 般 情况 下 ,调用 者 可 以 
为 MATLAB M 函数 .另外 的 MEX 文件 以 及 MATLAB; 
”global” : 即 指明 将 array _pttr 所 指向 的 mxArray 结构 体 变 量 输出 到 
全 局 变量 列表 。 
如 果 该 函数 执行 成 功 ,将 返回 0, 否 则 返回 1 .一 般 情 况 下 , 函数 执行 失败 有 两 
种 可 能 性 ,第 一 种 为 指针 array _ptr 为 空 (NULL) ,第 二 种 为 指针 array _ptr 
所 指向 的 mxArray 结构 体 变量 ,变量 没有 名 字 , 这 时 可 以 使 用 本 数 mxSet- 
Name 对 该 变量 设置 名 字 。 
通过 使 用 函数 mexPutArray, 可 以 使 当前 MEX 文件 工作 空间 中 的 mxArray 
对 象 从 其 他 的 工作 空间 所 获得 ,如 MATLAB、M 文件 以 及 另外 的 MEX 文 
件 。 这 里 必须 非常 注意 一 点 , 即 指 针 array _ptr 和 指针 array _ptr 指向 的 
mxArray 结构 体 变量 的 名 字 的 区 别 , 在 MEX 文件 中 , 程序 通过 指针 array _ 
ptr 对 mxArray 结构 体 变量 进行 访问 ;而 当 将 mxArray 结构 体 变量 输出 到 
MATLAB 中 后 ,MATLAB 对 变量 的 访问 则 是 通过 结构 体 变量 的 名 字 , 这 也 
就 是 为 什么 如 果 不 对 结构 体 变量 设置 名 字 函 数 执行 将 失败 的 原因 。 如 果 在 
目的 工作 空间 中 已 经 存在 了 同名 的 变量 ,那么 函数 将 覆盖 现存 的 变量 。 例 如 
用 户 在 MATLAB 的 工作 空间 中 已 经 定义 了 变量 peach 为 


peach 一 1 :41 
然后 以 如 下 语句 调用 函数 mexPutArray， 


mxSetName(Katrray _bptr，"peachy 
tmexPutArrayKarray _PtT，?base 7# 


这 时 指针 array ”ptr 指向 的 mxArray 结构 体 变 量 将 覆盖 原 变量 peach 。 
举例 :参见 函数 mexGetArray 的 范例 程序 。 


28。tmexPutFull(obsclete) 
说 “了 明 , 该 函数 为 一 个 过 时 的 基 数 ,保留 它 的 目的 是 为 了 同 MATLAB V4.0 版 本 保 
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持 兼 容 。 一 般 情况 下 , 该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MEX 文件 中 ,否则 在 编译 时 系统 将 报错 。 为 了 完成 同样 的 功能 ,在 MAT- 
LAB V5.0 以 上 的 版 本 中 ,可 以 使 用 如 下 语句 


aITaY _ptr 一 mxCreateDoubleMatrixf0，0，mxREALAmxCOMPLEX); 
ITxSetName(array _Ptr，hame)i; 


mexPutArray(Karray _ptr，"cajler" )? 
代替 语句 
mexPutFull name，ms ny pr，Pi); 


如 果 需 要 使 用 已 经 存在 对 函数 mexPutFull 调用 的 MEX 文件 ,而 不 希望 对 
源 程序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命令 
参数 -V4, 声 明 编 译 为 与 MATLAB V4, 0 版 本 兼容 的 MEX 文件 。 


29，tmmexPutMatrix(obsolete) 


说 ” 明 : 该 函数 为 一 个 过 时 的 函数 ,保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 


30. 


六 蔚 


娩 


持 兼 容 。 一 般 情 况 下 , 该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MEX 文件 中 , 否则 在 编译 时 系统 将 报错 。 在 MATLAB V5.0 以 上 的 版 本 
中 ,为 了 完成 同样 的 功能 ,可 以 使 用 函数 mexPutArray 来 代 营 画 数 mexPut- 
Matrix ,例如 在 MEX 文件 中 可 以 使 用 语句 


mexPut 太 tray(atray _PtT，”caljer”)+ 
代替 对 画 数 mexPutMatrix 的 调用 语句 

mexPutMatrix(matrix _ btr》) 
如 果 需 要 使 用 已 经 存在 对 函数 mexPutMatrix 调用 的 MEX 文件 ,而 不 希望 
对 源 程 序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 ,必须 使 用 mex 命 


令 参数 -V4, 声 明 编 译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 
详细 内 容 可 以 参阅 相关 的 本 数 mexPutArray。 


ImexsSet 


能 :用 于 设置 某 个 图 形 句 柄 的 属性 值 。 
法 :并 incluqe "timex. hy 


int mexSet(double handle ，const char * property，mxArray #value); 


明 ,该 函数 与 函数 mexGet 相对 应 ,用 于 设置 某 个 图 形 句 柄 的 属性 值 , 输 入 参数 


handle 代表 了 一 个 特定 的 图 形 句 柄 ,property 代表 了 句柄 的 某 个 属性 值 ,而 
value 代表 了 将 要 设置 的 值 。 车 函数 执行 成 功 ,将 返回 0, 否则 返回 1。 导致 不 
成 功 的 原因 可 能 有 :一 ,没有 指定 的 属性 值 ;二 , 设 定 的 属性 质 类 型 错误 或 越 
界 ， 总 体 来 说 ,该 函数 的 功能 与 MATLAB 内 建 函 数 set 的 功能 大 致 相同 。 


例 : 参 见 函 数 mexGet 的 范例 程序 。 
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T1，mexSetTrapFIag 


功 能 ,异常 处 理 。 

语 法 ,地 include "mex-hr 
yo 刘 mexSetTrapFlag (int trap _flag) 

说 ” 明 : 使 用 数 mexSetTrapFlag 可 以 控制 调用 函数 mexCallMATLAB 失败 时 
MATLAB 的 相应 动作 。 如 果 用 户 程 序 中 没有 使 用 函数 mexSetTrapFlag， 
MATLAB 探测 到 在 执行 函数 mexCallMATLAB 时 发 生 错误 , 则 立即 终止 
MEX 文件 的 执行 并 返回 到 MATLAB 命令 提示 符 下 ; 如果 使 用 了 郴 数 
mexSetTrapFlag, 且 将 输入 参数 trap _flag 设置 为 0, 则 效果 相同 ;如 果 使 用 
了 函数 mexSetTrapFiag 并 日 将 参数 trap _flag 设置 为 1, 那么 在 探测 到 发 
生 错 误 时 ,MATLAB 将 不 会 终止 MEX 文件 的 执行 ,而 是 返回 到 调用 通 数 
mexCallMATLABS 的 语句 的 下 一 行 语 句 , 这 样 用 户 就 可 以 在 MEX 文件 中 
进行 相应 的 处 理 了 。 到 目前 为 止 , 函数 mexSetTrapFlag 的 输入 参数 trap _ 
flag 的 取 值 只 能 为 0 和 1 

举例 ,程序 mexsettrapflag.c 是 MATLAB 提供 的 一 个 演示 国 数 mexSetTrapFlag 

使 用 的 范例 程序 ， 


/# 头 文 件 包 含 * 7/ 


提 inelude ”mmex. hy 


1/x# MEX 文件 人 口 点 函数 * 7/ 
void mexFunetion (int nlhs ，ImxArray * blhs[]j， 

int nrhs，const mxArray #Prhs[]) 
{ 


int statusj 


/* 检查 输入 参数 的 个 数 及 类 型 * / 

让 (nrhs } 一 1 ‖ :mxIsDouble(prhs[0]) | 
mxGetN{tprhs[0]) * mxGetM(prhs[0]) ! = 工 | 
mxJIsCormplex(prhs[0])) 

{ 


mexErrMsgTxt("Input argurment Inust be a real scalar double,”); 


} 


/x+ 检查 输出 参数 个 数 * / 
Cnlhs > 1) 
{ 


ImexRrrMsgTxtt"Too Imany Dutput arguments，”) 5 


/ x 从 输入 参数 获取 函数 mexTrapFlag 的 输入 参数 ,进行 设置 * / 
mexSetTrapFlag((int)mxGetScalarKprhs[0])7?; 
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/# 激活 一 个 MATLAB 命令 * 7/ 
status 一 PhexCallMATLAB(O，(CmxArray + # NTUILL， 
0，(mxArray # + )NULL，*nofcnr 》， 


/+# 如 果 用 户 输入 得 到 该 程序 的 参数 为 1, 则 当 函 数 mexCailMATLAB 调用 发 
生 错 误 时 , 控制 仍然 存在 于 MEX 文件 中 * / 
mexBrinti(*mexCallMATLAE status 一 凶 dSnr ，status)3 
ImexErrMsgTxt(t7mexCallMATLAB failed. Sn ); 
} 


32. mexUnlock 


功 能 :对 MEX 文件 进行 解锁 。 

语 法;#include ”mex, hn 
void mexUnlock(void); 

说 ” 明 , 在 默认 情况 下 ,所 有 的 MEX 文件 均 不 加 锁 , 用 户 可 以 在 任意 情况 下 将 MEX 
删除 , 如 果 对 文件 使 用 函数 mexLeck 进行 加 锁 后 , 则 必须 使 用 函数 mexUn- 
lock 进行 解锁 后 才能 清除 。 如 果 对 一 个 文件 进行 多 次 加 锁 , 则 必须 相应 地 多 
次 解锁 。 

举 例 , 参 见 函数 mexLock 的 范例 程序 。 


33- mex 妈 arnMsgTxt 


功 能 :发 出 警告 信息 。 

语 法:#include ”mex,hy 
void mex 儿 arnMsgTxt(const char * warning _imnsg) 

说 ”了 明 , 该 函数 的 使 用 将 委 臻 MATLAB 显示 一 条 警告 信息 ,信息 内 容 由 函数 输 人 参 
数 const char * warning _masg 决定 ,不 同 于 函数 mexErrMsgTxt ,在 该 函数 
执行 完毕 后 ,并 不 终止 当前 MEX 文件 的 运行 。 

举例 ;mexWatrnMsgTxt("data type is different，”) 


3.8 C 语言 mx- 冰 数 


3.8.1 C 语言 mx- 函数 的 声明 


在 MATLAB 应 用 程序 接口 函数 库 中 ,总 共 提 供 了 93 个 C 语言 的 mx- 画 数 , 它们 的 
声明 分 别 如 下 : 


chbar # InxAArrayToString (const mxXArTrray #array 、ptr) 

void mxAssert(int exprT，char # error _tImessage) 

void mxAssertS(int exXPr，char # erTOT _tmessage)》 

int mxCalcSingleSubscript(const mxArray # array _ptr， int nsgubs ，int # subsg) 
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Void * mxCalloc(size tn size _t size) 
void tmxCiearLogical (mxATray + array _Ptr) 
typedef enum mxCeomplexity(mxREAL 一 0，mxCOMPLEX) 
PHX 凡 rray #IXCreateCellArrayfkint ngitm ，const jnt # dims) 
tnXArTay *# txCreateCell]Matrix(int mint ny》 
mxArray * ImxCreateCharArraykint nditn ，const int #dims》 
rmxAArray # InxCreateCharMatrikzFromStrings(int tm ，cotnst chatr 关 关 Btr7 
mxATray # mxCreateDoubleMatrixkint m，int n，mxComplexity CotmnplexFlag) 
IDxCreateFull 《CD5sozete) 
ImxAxtrtay x+ ImxCreateNuinericAarray(int nditm，const int # qims， 
mxClassID class，ImxCotmplexity ComplexFlag) 

mxArray +# mmxCreateSparse(int my，int n，int nzmax，mxComplexity ComplexFlag》 
ImX 人 入 rTay # tnxCreateString(const char #Sstr) 
mxArray * tnxCreateStructArray(int ndim，const int # dims， 

int nfields ,econsgt char * #field .natmes) 
mxArray * ImxCreateStructMattixtint m，int n，int nfields ，const char # +field _mames) 
void mxDestroy 和 TrayKmx 且 FTay 关 aTTray _ ptr》 
mx 太 rray # InXDuplicate 和 rray[(const InXATray <iny》 
InXArtay # mXFTree(void x ptr》 
txFreeMatrix (Obsofefe) 
mxArray #rxGetCell(const mx 太 rray x artay _ PtT，int index》 
mxC[lassID tmxGetClassIDKconst mxArray #<arTayY _ptr) 
const char xx mxGetClassNatmekKconst tnXx 凡 rray #+atTay _Ptr) 
void * mxGetData(const ix 上 rray # arTay _ ptr) 
conast int xx mxGetUDimensions(const mxArray # array _ptr) 
int mxGetFEiementSize(const mxArray # artray _ btT) 
double mxGetEPs(void) 
tx 上 tray *# mxGetField(const mxArray * afray _btr， int index，const chat 关 field _narney》 
mxArray * ImnxGetFieldByNutmber(const mmxArray # array _ptr， int index，int field _number) 
const char x+ mxGetFieldNameByNutmber(Cconst mxArray # array _ptr，int field _nutmbery) 
int mxGetEFieldNumber(eonst ImxAtTay 关 array _Ptr，const char #field _namte) 
void x* mxGetImagData(const mxATray # array _ptr) 
doubie mxGetInf(void》 
int wx ImXxGetIT(eonst Imnxrray # array _ptr) 
int *# InxGetJcfconst mxArray # TFTay _Ptt) 
int mxGetM(conast mxArTray x attay _ptr) 
int mxGetN (const InxArray # arTay _ptr) 
const char x mxGetNametconst mxArtray #array _ptT》 
double mxGetNaN (void) 
int mxGetNumberOfDimensions (const mxArray + array _ptr) 
int mxGetNutnberOfElements (const mmxArray # array _ptr》 
int mxGetNuimberOfFieldsKconst mmx 太 rray *#array _ptr) 
int mxGetNzmax(const mxArray * atffay _PtT) 
deubie * mxGetPi(const maxArray # array _ptr》 
double *#* mxGetPr(const mxArray #array _Ptr) 
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double mxCGetScalar(consgt mx 太 rtray x artray _btr) 
int mxGetString (const mxAArray xarray _ptr，char xbuf，int bufien) 
bocl mxIsCell (consgt mx 太 rray #artay _Ptr》 
bool mxJsChasr(const Pax 和 由 rray Yarray 人 tr)》 
bool mxJsClass(Kcaonst Imx 和 内 Tray # SIray _PtT，Cconst char xnarmne) 
bool mxIsCotnplex(cohst tnxATray #aTITayY _ptry) 
boeol mxIsDouble(const mx 二 rray YarIray _ btry) 
bool mxJsEmpty(const mxArray # array _ PtT) 
beol mxIsFinite(double vatue) 
bool mxJsFromGlobalWS(Ceonst Imx 太 rray # arTay _pPtr) 
TixIsFulL《Obsofete》 
bool mxIsInf (deuble value) 
bool mxIsJntg8Kconst tmxArray # atTay _pftr) 
boocl mxIsIat16(const mxArray #aTray _ ptr) 
bool mmxJsJnt32(const tpXArray # array _PtT) 
boocl mxJsLogical(const tmx 丰 rray # array _ptr) 
bool mxIsNaN(deubie value) 
bool txIsNumeticKconst mx 内 rray #&Itay _PtT) 
bool mxJIsSingle(const tnxArTay x arTay _ptr) 
boel tmxIsSparse(const mxXArTrray # array _Ptr) 
mXJIsString〔〈O5sofete) 
boeocl mxJIsStruct(const mxAATray 基 aTTayY ptr》 
bool mxIsUint8(const mx 屿 Tray < array _Ptr》 
bool mxjisUJint16(const mxX 凡 rray # atray Ptry 
bool tmxJsUint32Kconst mxArray #array _Ptr) 
Yo 提 d * InXMaljoc(size _tDy) 
void xy mxRealloc(void * ptt，size _t size》 
void mxSetAllocFens (calloc _ proc callocfcn，free _Proc freefcn， 
realloc _proc reallocfcn ，malloc _proc mallocfcn) 
void mxSetCell(mxArray # array _bptr， int index，mxArray # value》 
int mxSetClassName(KmxAArray * array _Ptr，conat chat #classname) 
void mxSetDataKmxAArray sx array _ptt，vo 这 #data _ptry》 
int tmxSetDimensions [mxKArray # array _ptr，const int # dims，int adims) 
void mxSetField(mxArray * atray _ptr，int index，const char # field _natmne， TDX 由 Tray # yaluey》 
void mxSetFieldByNumber(mxArray #+ array .PtT，int index， 
int field _number ，mx 太 rray # yatue) 
void mxSetImagData(tnxArray # array _ptr，void * Pi 
void mxSetJr(mxAArray 关 atrfay _btry int 关 这 ) 
void zaxSetJc(tmx 上 rray # array _PtTy int 关 jc) 
void mxSetLogical(mxArray # array _pPtr) 
void mxSetM(mxArray #atray ptr int mm) 
void mxSetN(mxArray # array _ptr， int 了 ) 
void mxSetNarme (mxArray # artay Ptr，const char * name) 
void mxSetNzmax(mx 和 Array x array _Ptry，int fzrnax》 
void mxSetPi(mxArray * artay _ptr， double #Ppi) 
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void mxSetPrKmxArray #* array _bptr，double * pr) 


所 有 这 些 函 数 均 在 头 文件 matrix.h 中 予以 声明 ,在 使 用 它们 时 , 必须 对 该 头 文件 进 
行 包 含 。 


3.8.2 CC 谐 言 mx- 函数 的 使 用 说 明 


1.ImxArrayToString 


功 能 ,将 mxArray 结构 体 转 化 为 字符 串 。 

语 法 :##include "matrix,hy 
char x# mxArrayToString(const mxXArray 关 Brray _Ptr7， 

说 ”了 明 ;通过 函数 mxArrayToString, 用 户 可 以 将 一 个 字符 串 类 型 的 mxArray 结构 
体 对 象 中 的 字符 读 取出 来 ,并 转 存 为 一 个 C 语言 风格 的 字符 串 , 该 字符 串 以 
空 字符 结尾 。 如 果 函 数 热 行 成 功 , 函数 将 返回 指向 字符 串 起 始 位 置 的 字符 指 
针 , 字 符 串 所 占用 的 内 存 区 域 通过 使 用 画 数 mxCalloc 来 动态 分 配 。 在 程序 结 
束 前 ,必须 通过 使 用 攻 数 mxFree 来 释放 ,否则 将 导致 内 存 港 漏 。 

举例 :参见 函数 mexAtExit 的 范例 程序 mexatexit. ec 。 


2, mxAssett 


功能 :出 于 调试 的 目的 检验 某 个 表达 式 的 值 ,在 出 错时 ,输出 错误 信息 。 
语 法 : 共 incluqe "matrix.h” 
void tmxAssert(int expt，char 关 error _Imessage)3 
说 ” 明 : 该 函数 的 功能 非常 类 似 于 标准 C 语言 的 assert( ) 宏 ,通过 该 函数 ,用 户 可 以 
对 某 个 表达 式 的 值 进行 判断 ,如 果 满 足 要 求 , 则 程序 继续 执行 ,否则 程序 终止 
运行 ,并 且 输 出 指定 的 信息 。 使 用 该 函数 ,可 以 替代 大 量 的 条 件 判 断 语 句 , 并 
且 这 些 语句 仅 在 调试 时 有 效 , 用 户 可 以 在 不 修改 源 代 码 的 前 提 下 ,通过 设置 
编译 参数 ,在 发 布 的 应 用 程序 中 ,去 除 这 些 语 句 的 作用 .在 程序 中 大 量 使 用 该 
函数 ,是 一 种 良好 的 编程 习惯, 通过 该 函数 ,用 户 可 以 使 自己 减少 代码 的 误 
用 ,并 且 可 以 检查 出 多 辑 错误 的 传播 。 函 数 的 输 和 参数 的 含义 如 下 : 
。expr 为 一 个 表达 式 , 当 该 表达 式 取 值 为 真 时 ,程序 继续 执行 ,否则 程 
序 终止 ; 
。error _imessage 为 一 个 错误 信息 ,在 表达 式 expr 为 假 时 ,输出 到 屏幕 
上 ,以 提示 用 户 错 误 的 原因 。 
举例: 下 面 是 一 个 简单 的 样 例 程序 , 源 代 码 如 下 : 
/xx 头 文件 包含 */ 
#include <stdio.h> 
井 incluqde "mattix. h2 
#include <string,h> 


/* 子 函 数 的 原型 声明 * / 
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void analyze _string( char # String ); 


/xx 主 函 数 * 7 
void mainhk void ) 
{ 
/* 变量 定义 * 7 
char testI[ 门 一 abc”，* test2 一 NULL ，test3[] 一 "wy 


Printt《〔《 "上 nalyzing String "0%s' nr ，test] )# 
analyze _ string( testt 》; 
Printf《 "和 nalyzing string :9%s'snn ，test2 )3 
analyze _stting( test2 》; 
Printt 〔 ”有 Analyzing String ' %s'Nnr ，test3 ) 
analyze _Sstring( test3 7 


} 


/* 测试 字符 惠 是 否 为 NULIL、 空 或 者 长 度 小 于 2 * / 
7x empty， or longer than D characters # 7 
void analyze _string( char # strirg ) 
{ 
/+ 测试 字符 串 是 否 为 NULL * 7/ 
ImXxX 和 Assert( stting ! 一 NULL )5 


/+* 测试 字符 串 是 否 为 空 * / 


tmx 太 ssert( # String ! 一 “NO ) 


1* 测试 字符 串 长 度 是 否 小 于 2 * 7 
maX 和 有 ssettt strlen( stting )》 人 > 2 7 
} 


3. ImXAsseTtg 


功能 ,出 于 调试 的 目的 检验 某 个 表达 式 的 值 ,但 是 在 出 错时 ,不 输出 错误 信息 。 
语 法 :#include ”matrix. hy 
void mx 起 ssetrtS(int expr，char *#error _htessage)i 
说 “ 明 ; 函 数 mxAssertS 的 功能 大 致 与 画 数 mxAssert 的 功能 相同 ,惟一 不 同 是 郴 数 
mxAssertS 在 表达 式 expr 为 错时 ,仅仅 是 终止 程序 的 运行 ,而 不 输出 错误 信 
息 。 
举例 ,下面 是 一 个 简单 的 样 例 程序 , 源 代 和 码 如 下 : 
1/x# 头 文 件 包含 * 7/ 
林 inelude <<stdio.jh 


并 include ”matrix. hr 
提 inelude <<sString,h>> 
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/* 子 函数 的 原型 声明 * / 


void analyze _ string( char xstringg 7) 


/ax 主 旺 数 *7 

void maint void ) 

{ 
/*# 谈 量 定义 * 7/ 
char testl[] = "abcr ，* test2 一 NULL，test3[] 一 "24 
Printf 〈 "Analyzing string /%s' An ，testl ); 
analyze _ string( test1 )3 
Printf《 ”Analyzing string“%%s' Nan ，test2 ); 
analyze _ string( test2 )} 
printt〈《 ”Analyzing stting :9%s' nr， test3 》; 
analyze _stting( test3 ); 


} 


/# 测试 字符 串 是 否 为 NULEL, 空 或 者 长 度 小 于 2 * 7/ 
/xx elnpty，ofr longer than 0 characters #<7 
yoid analyze _ String chat # string 》 
{ 
/* 测试 字符 串 是 否 为 NULL */ 
mxAsseftSt string ! 一 NULL 》) 


/# 测试 字符 串 是 否 为 空 * 7 

ImXASsertSK # String ] 一 “人 NO 7 

/x+# 测试 字符 串 长 度 是 否 小 于 2 * 7/ 

mx 入 ssertSft strlen( stting ) 盖 2 
】} 


4. mxCalcSingleSubscript 


功能 ,获取 指定 元 素 的 索引 值 。 

语 法 ;,#inctude <matrix. h 一 
int mxCalcSingleSubscript (const mxArray # array _ ptr，int nstubs，int 
subs); 

说 “ 明 , 通 过 函数 mxCaleSingleSubscript, 用 户 可 以 获得 mxArray 结构 体 中 指定 元 
索 的 索引 值 ,也 就 是 从 mxArray 结构 体 的 起 始 元 素 到 指定 元 素 间 的 偏 移 量 ， 
例如 mxArray 结构 体 的 第 一 个 元 素 的 索引 值 为 0, 而 最 后 一 个 元 素 的 索引 
值 为 N-1, 其 中 N 为 mxArray 结构 体 元 素 的 总 的 个 数 , 这 里 必须 注意 的 一 点 
是 ,在 mxArray 结构 体 的 内 部 ,所 有 的 数据 元 素 均 以 列 优先 的 原则 存放 为 一 
个 一 维 的 数组 ,而 无 论 原 来 mxArray 结构 体 对 象 的 维 数 为 多 少 ,这 与 MAT- 
LAB 中 阵列 的 数据 存储 方法 是 一 致 的 。 如 果 函 数 执行 成 功 ,将 返回 mxArray 
结构 体 中 指定 元 素 的 索引 值 , 此 外 函数 的 三 个 输入 参数 的 食 义 分 别 如 下 : 

。 array _ptr 为 一 个 指向 mxArray 结构 体 对 象 的 指针 ; 
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举例, 程序 mxcalcsinglesubscript.c 是 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目 


录 


中 。 其 功能 相当 简单 , 当 用 户 输 人 一 个 双 精 度 类 型 的 阵列 并 指定 阵列 中 的 某 
个 元 素 , 通 过 该 程序 就 可 以 获得 该 元 素 的 索引 值 。 函 数 的 源 代码 如 下 ,我们 





”nsubs 为 一 个 整 型 变量 ,用 于 指定 数组 subs 中 元 素 的 个 数 ,一般 将 该 


值 设 定 为 mxArray 结构 体 对 象 的 维 数 ; 


。 stibs 为 一 个 具有 nsubs 个 元 素 的 数组 ,其 中 subs[0] 代 表 了 mxAr- 
ray 结构 体 对 象 中 指定 元 素 的 行 数 ,subs[1] 代 表 了 mxArray 结构 体 
对 象 中 指定 元 索 的 列 数 ,subs[2] 代 表 了 mxArray 结构 体 对 象 中 指 
定 元 素 的 页 面 数 。 这 里 必须 注意 的 一 点 是 ,在 MATLAB 中 , 行 和 列 
的 起 始 数目 为 1 ,而 在 C 语言 中 ,数组 行列 的 起 始 均 为 0, 所 以 如 果 要 
表示 MATLAB 阵列 中 的 第 一 个 元 素 (1,1) ,应 将 subsL0] 和 subs 


[1] 均 设置 为 0。 
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将 在 程序 中 对 各 语句 的 功能 进行 注释 ， 
/# imexvh 头 文件 包含 ,对 于 MEX 文件 ,这 是 必 不 可 少 的 “/ 


林 include ”mex, hy 


/xx MEX 文件 的 人 口 点 函数 * / 


void mexEunction(int nlhs,mxArray * pihs[],int nrhs,const mxArtrray * prhs[]) 


{ 


/x 变量 说 明 * 7 
int msubs，index， 藉 ; 
double  *tempi 


int 关 Subs# 


1x 检查 输入 变量 的 个 数 , 要 求 必须 为 2 * 7 
证 Cnrhs [| 一 2》 
{ 
mexErrMsgTxtKzTwo input argurnents required. ”75 


} 


/* 检查 输出 变量 的 个 数 ,机 求 必 须 大 于 1 * 7 
让 Cnlhs > 1) 
《 
mexErrMsgTxtk"Too many OutPut argUIments。 73 


了 检查 第 一 个 输入 参数 的 类 型 ,要 求 必须 为 双 精 度 类 型 共 了 
证 (1 tmxIsDouble(prha[0])》 
《 
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mexErrMsgTxtk"EFirst input argument tnust be a double.”); 


} 


/x* 检查 第 二 个 输 人 参数 的 类 吾 , 要 求 必 须 为 双 精 度 的 实数 类 型 * / 
让 5， mxIsDoeuhble(prhsL1]) 外 mxIsComplex(prhs[1])》 
{ 
ThexFErrMsgTxtC"Second inmput argument Imust be a reai double.”)+ 


} 


/* 获得 第 一 个 输 人 参数 的 维 数 , 即 用 户 输 入 的 双 精 度 类 型 阵列 的 维 数 * / 
nsubs 一 mxGetNumberOfDimensions(Kbprhs[0])》， 


/+# 检查 第 二 个 输入 参数 的 元 索 个 笋 ,要 求 其 元 索 个 数 必须 为 * / 
让 (mxGetNumberOfElements (prhs[1]》 1 一 nsubs》 
{ 
tnexErrMsgTxt(*You must spPecify an index foer each ditnehnsion. mr》 


} 


/*#* 动态 分 配 内 存 * / 


subs 一 mxCallocknsubs ,sizeof (int) 7) 


/* 获得 第 一 个 输 人 参数 实数 部 分 数据 的 指针 * / 
tembp 一 mxGetPr(prhs[1]); 


/# 进行 指定 元 索 的 标识 转换 ,因为 在 MATLABHB 中 ,阵列 以 1 为 起 始 计数 值 ， 
而 在 C 语言 中 , 却 是 以 0 为 起 始 计数 值 , 例 如 在 MATLAB 中 阵列 的 元 素 
(3,4) ,在 C 语言 数组 中 表示 为 (2,3》 =* / 

for〔〈x 一 04X<<nsubs;x 十 十 》 
{ 
subs[x]= (int)temmp[x]-l) 
让 (temp[x]>>《〈《(mxGetDimensions (prhs[0])?[xj>y ) 
{ 
tmxFree(subs7; 
mexErrMsgTxt("You indexed above the size of the atray,”); 
}》 


} 
/* 通过 函数 mxCalcSingleSubsceript 获得 指定 元 素 的 索引 值 * / 


index 一 mxCaleSingleSubscript(Prhs[0]，nsubs ，suhs》; 


/* 人 蚀 建 一 个 输出 双 精 度 类 型 的 阵列 ,是 复数 或 实数 由 第 一 个 输 和 参数 决定 
癌 
plhs[0] 王 mxCreateDoubleMatrixK1，1， tmxIsCormplexKprhs[O])》? 
mxCOMPILEX :mxREAL》; 


/7* 释放 动态 分 配 的 内 存 * / 
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tmxFree(subs》 


/+# 为 输出 阵列 赋值 * 7 
InxGetPr(plhs[0])[o]= mxGetPrKptrhs[0])findex]; 
许 (ImnxIsCotmbplex(prhs[0])》 
{ 
mxGetPifplhs[0])[0] 王 mxGetPi(prhs[0])Lindex]， 
} 


} 
对 该 程序 编译 后 ,在 MATLAB 命令 提示 符 下 键入 如 下 命令 ,将 显示 以 下 的 
结果 ， 
? hb 王 randfk5》) 
b 一 
0. 2028 0. 0153 0.4186 0,. 8381 0. 5028 
0. 1987 0. 7468 0, 8462 0. 0196 0, 7095 
0. 6038 0. 4451 0. 5252 0. 6813 0,. 4289 
0. 2722 0. 9318 0. 2026 0. 3795 0. 3046 
0,. 1988 0. 4660 0. 6721 0. 8318 0. 1897 
? c 一 [4,5]; 
? 一 mxcalcsinglesubscript(bc) 
7 


0. 3046 


5.tnxCallec 


功 ”能 :动态 内 存 分 配 。 
语 法 :#include "matrix, hy” 
#jinclude <stdiib.b 盖 
void #*tmxCalloc(size tn，size _t size); 
说 “” 明 :函数 mxCalloc 是 MATLAB 提供 的 一 个 动态 内 存 分 配 的 函 甫 ,其 功能 与 C 
语言 中 的 标准 库 函数 calloe 的 功能 类 似 ,但 是 一 般 在 MATLAB 的 应 用 程序 
中 , 均 使 用 函数 mxCalloc 来 完成 内 存 的 分 配 工作 ,具体 的 原因 ,读者 阅读 了 
后 续 的 内 容 自 然 会 明白 。 这 里 必须 注意 的 一 点 是 ,在 MEX 文件 和 独立 可 执 
行 的 MATLAB 应 用 程序 两 种 不 同类 型 的 接口 程序 中 , 函数 mxCailoe 所 完 
成 的 动作 是 不 同 的 ， 
。 在 MEX 文件 中 ,函数 mxCalloec 将 自 动 完成 三 个 方面 的 工作 ， 
.分 配 足 够 的 堆 空间 ; 
@ 将 所 有 的 元 素 初 始 化 为 零 ; 
@ 将 返回 的 堆 空 间 注 册 到 MATLAB 的 自动 内 存 管理 机 制 中 。 在 
MATLAB 的 自动 内 存 管理 机 制 中 , 包含 所 有 的 由 函数 mxCalloc 
分 配 的 内 存 ,在 程序 结束 时 MATLAB 自动 内 存 管理 机 制 将 自动 
释放 这 些 内 存 , 从 而 避免 凡 存 泄 沁 。 
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“在 独立 可 执行 的 MATLAB 应 用 程序 中 ,使 用 上 函数 mxCalloc 时 , 函 
数 将 在 内 部 自动 调用 C 语言 的 标准 库 函 数 calloc 来 作为 默认 动作 ， 
完成 内 存 分 配 。 如 果 默 认 的 动作 执行 失败 ,用 户 可 以 自 定义 一 个 内 存 
分 配 函 数 , 然 后 通过 函数 mxSetAllocFens 注册 ,这样 在 调用 本 数 
mxCalloc 时 ,水 数 mxCalloc 将 默认 地 调用 用 户 自 定 义 的 函数 完成 
内 存 分 配 任务 。 

在 默认 情况 下 ,在 MEX 文件 中 使 用 函数 mxCalloc 分 配 的 内 存 为 非 持久 内 
存 , 在 程序 结束 时 将 被 自动 释放 , 这 是 通过 MATLAB 的 自动 内 存 管 理 机 制 
完成 的 。 但 是 如 果 用 户 不 希望 程序 结束 时 内 存 被 释放 , 可 以 通过 使 用 函数 
tmexMakeMemoryPersistent 将 数 mxCalloc 分 配 的 内 存 变 为 持久 内 存 , 这 
样 在 程序 结束 时 , 这 部 分 内 存 也 不 会 被 释放 ,不 过 必须 注意 的 是 ,在 定义 了 
持久 内 存 之 后 ,必须 使 用 画 数 mexAtExit 注册 一 个 退出 函数 ,用 以 在 MEX 
文件 被 清除 时 ,释放 该 持久 内 存 ,否则 将 导致 内 存 汽油 。 
举例 :程序 mxmalloc.ec 是 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 
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中 。 该 程序 的 功能 相当 简单 , 它 将 一 个 输入 的 字符 帅 类 型 的 阵列 中 的 内 容 拨 
贝 到 一 个 C 语言 风格 的 以 空 字符 结尾 的 字符 串 中 , 其 源 代 码 如 下 ， 


7/ mexh 头 文件 包含 ,对 于 MEX 文件 ,这 是 必 不 可 少 的 * 7 


划 include "mex.Dhy” 


/xx 人 口 点 函数 * / 
VoiG 
mexFunetioh (int nlhs,mxArray # pths[],int nrhs,const mxArtrray # prhs[]》 
{ 
char xbuf; 
int buflen; 


int status# 


/* 检查 输 人 和 参数 和 输出 参数 的 个 数 * / 
让 《nrhas 1! = 1) 
{ 
tmexErrMsgTxt(*One input argutnent required.”)3 


} 


HT (nlhs > 1 
{ 
ImnexErrMsgTxt("Too Inany Output arguments.”)1 


} 


/* 检查 输 人 参数 的 类 型 * / 
让 5! mxIsChar(prhs[0]) | 《mxGetM(prhs[0]) 上 一 1)》 
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{ 
ImexErrMsgTxt(C"Inbut argument must be a String.w》; 


} 


/x* 获取 输 人 字符 串 的 大 小 ,并 分 配 足 够 的 内 存 存储 转换 后 的 字符 串 。 这 里 必 
须 非常 注意 的 一 点 是 ,在 MATLAB 中 ,字符 串 的 存储 按照 unicede , 即 16 
位 ASCII, 占 用 两 个 字 节 。* / 


buflen 一 mxGetN(Prhs[L0]) * sizeof(mxChar》 十 1; 
buf = inxMajlloc(Cbuflen7i 


/x* 拷贝 字符 串 到 内 存 * 7/ 
status 一 mxGetString{fprhs[L0]，buf，buflenJy 
mexPrintfK"The input string is: %%sNny ，but) 


7*# 姓 放 内 存 * 7 
rnxFreetbuf>; 


6. ImnxChar 


功能 :字符 串 类 型 mxArray 结构 体 对 象 用 于 存储 其 元 素 的 数据 类 型 。 

定 尽 :tybedef Uint16 mxChar; 

说 ” 明 ;: 所 有 的 字符 串 类 型 的 mxArray 结构 体 对 象 中 的 字符 元 素 均 声明 为 mxChar 
类 型 ,在 MATLAB API 中 mxChar 和 全 人 全 全 16 位 整 型 数 。 

举例, 参见 函数 mxCalloc 的 范例 椎 序 tnxcatiioc, c。 


7. mxClassID 


功能 , 枚 举 类 型 数据 ,用 于 标识 mxArray 结构 体 的 类 型 。 
定 ” 必 :typedef enutm 


{ 
mxCEILL _CLASS 一 1， 
mxSTRUCT _CLASS， 
mxODBJECT _CLASS， 
rmxCHAR _CLASS， 
mxSPARSE CLASS， 
mxDOUBLE _CLASS， 
mxSINGLE _CLASS， 
mxINT8 _CLASS， 
mxUINT8 _CLASS， 
InxINT16 CEASS， 
mxUINT16 _CLASS， 
mxINT32 CLASS， 
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ImxUINT32 _CLASS， 
mxINT64 _CLASS，/# Place holder - future enhancemeoats 共 / 
mxTJINT64 _CLASS，/ +# Place hotder - future enhancetments xy 


mxUNKNOWN _CLASS = 一 1 
}) tmmxClassID# 
说 ”了 明 :,mxClassID 定义 了 许多 常数 ,用 于 标识 mxArray 结构 体 的 类 型 ,这些 常数 的 
含义 分 别 如 下 : 


mxCELL CLASS 代表 单元 类 型 的 mxArray 对 象 
mxSTRUCT CLASS 代表 结构 体 类 型 的 mxArray 对 象 
"tmxOBJECT .CLASS 代表 对 象 类 型 的 mxArray 对 象 

。 mxCHAR _CLASS 代表 字符 串 类 型 的 mxArray 对 象 
mxSPARSE CLASS 代表 稀 朴 类 型 的 mxArray 对 象 

。 mxDOUBLE _CLASS 代表 双 精 度 类 型 的 mxArray 对 象 
。 mxSINGLE _CLASS 代表 单 精 度 类 型 的 mxArray 对 象 
mxINT8 _CLASS 代表 int8 类 型 的 mxArray 对 象 

。， mxUINT8 _CLASS 代表 uint8 类 型 的 mxArray 对 象 
。mxINT16 _CLASS 代表 int16 类 型 的 mxArray 对 象 
。mxUINT16 _CLASS 代表 uint16 类 型 的 mxArray 对 象 
。tinxINT32 _CLASS 代表 int32 类 型 的 mxArray 对 象 

。 mxUINT32 _CLASS 代表 uint32 类 型 的 mxArray 对 象 
mxINT64 _CLASS 目前 没有 意义 ,为 以 后 的 发 展 预 贸 
，mxUINT64 _CLASS 目前 没有 意义 ,为 以 后 的 发 展 预 贸 
mxUNKNOWN _CLASS 代表 类 型 不 可 确定 的 mxArray 对 象 
举 ， 例 ,程序 explore.c 是 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 


MATLAB 根 目 录 \EXTERNNEXAMPLESNMEXA 


中 。 该 程序 中 包含 了 若干 个 的 子 函数 ,完成 的 主要 功能 为 对 所 有 的 输 人 参数 
进行 分 析 , 并 输出 结果 .该 程序 内 容 较 多 ,我 们 将 在 程序 中 对 各 语句 的 功能 进 
行 说 明 。 程 序 的 源 代码 如 下 : 


/1 各 种 头 文 件 包含 ,其 中 对 mex,h 头 文件 的 包含 ,对 于 MEX 文件 来 说 是 必 不 可 少 
的 x/ 

提 include <stdiobh> 

#include <string.h 


林 jineiude *mex.hn 


只 


和 


void digpiay _subscript(Keonst mxArray # artay .ptr， int index7)) 
void get _characteristics (const faXATTay #array _PtT)S 


mxClassID analyze _class(const ImX 太 rray # arTay _DPtT74 


/xy analyze _cell 是 程序 对 MATLAB 单元 阵列 进行 分 析 的 一 个 子 函 数 ,其 输 人 参数 
为 一 个 指向 单元 阵列 的 指针 。 单 元 阵列 是 MATLAB 中 一 种 非常 特殊 的 数据 类 
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副 , 这 种 类 型 阵 列 的 每 一 个 元 素 又 为 一 个 MATLAB 阵列 。 通过 子 函 数 analyze _ 
cell, 用 户 可 以 对 单元 阵列 中 的 子 阵 列 进 行 访问 和 分 析 , 并 且 显 示 相 关 的 阵列 信 
龟 */ 


tatic void analyze 、cell (const mxAtrray #cell _array _btr》 


7/x 变量 定义 */ 
int total _num _oef _cells; /* 用 于 存放 单元 阵列 中 元 素 的 个 数 * 7/ 
int index; 


comnst mxArray # cell _element _bttt yx 描 向 单元 阵列 中 元 素 的 指针 x / 


/*# 通过 下 数 mxGetNumhberOfEiements 获取 单元 阵列 中 元 束 的 个 数 , 并 输出 * 7 
total _num _of _ ceils 王 mxCetNumberOfEiementskcell _atray _Ptr)3 
mexPrintf("total num of cells 一 %dnr total _num of _cells》; 
mexpPrintf(2 nn 7 


/sx 对 单元 阵列 中 的 所 有 元 率 进 行 访 问 * / 
for 《index 一 0; index<<total _nutm _of _eceilsf index 十 十 ) 
《 
mexPrintf(*\nNtNtCell Eierment: ”); 
display _subaeript(ecell _ array _ptr， index)# 
maexPrintffr Sn )+ 
cell _element _Ptr 一 ImmxGetCell(cell artay _ptr，index)! 
让 《cell _element _ptr 一 一 NULL) 
tnexPrintf(NtEmpty Cellsny ); 
else 1 
Eet _ characteristics cell _element .Ptr》8 
analyze 、class(kcelil _element _Ptr); 
mexPrintf(” Na 73 
} 
} 
fnexPrintffw nn 5 
}》 


/x 子 函 数 analyze _structute 的 功能 为 对 结构 体 隆 列 进 行 分 析 。 结 构 体 阵列 是 
MATLAB 中 一 种 较为 特殊 的 阵列 , 它 的 每 一 个 阵列 元 索 可 以 包含 若干 个 域 ,每 
个 域 可 以 为 不 同类 型 的 数据 类 型 , 与 乙 语言 中 的 结 梅 体 类 似 。 子 函数 analyze _ 
structure 可 以 访问 任何 元 素 的 任何 域 ,并 给 出 相应 的 信息 。* / 

static void analyze ，sStructure(const mxArray # structdte _array _ptr) 

{ 

# 变量 声明 * 7/ 

int total num _of _elements ，humber _of _fields; 
int 。 index，field _index; 

const char #fiejd _namei; 

consft mmX 上 FTRy # field _ array _ptr; 
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tmexPrinttK*ne ) 
total _num _of _elements 一 mxGetNurmberOfEiementskgtrdctute _array _ptr)) 
”numbet _of _fieldqs 一 mxGetNutrnberOfFEields (structure 、array _ptr》; 


/sx# 访问 结构 体 阵 列 的 每 一 个 元 夫 * / 
for (index 王 0 index<<total _num _of _eletmnentsf index 十 十 )》 
{ 
/* 对 于 给 定 的 阵列 元 素 , 访 问 元 素 的 每 一 个 城 * / 
for (field _index 一 0f ficld _index<<number _of _fieldsy field _index 十 十 ) 
{ 
mexPrintf(rnNtNt" )5 


/* 根据 索引 信 给 出 元 素 在 阵列 中 的 下 标 “7 


出 splay _gubscript(strttcture _array 、ptr，index)1 


/* 通过 函数 mxGetFieidNameByNumber 根据 索引 值 获 到 域 的 和 名字, 并 显 
示 *7 
field_ _name 一 mxzGetFieldNarmeByNumberkstructure _atray _PtT， 
field _indexy》， 
mexPrintf(”，%gNnry field _name)j 


/sx 通过 杉 mxGetFieldByNumber 根据 索引 值 获取 城 的 指针 * 7 
field _arTay 网 ptr 一 mxGetFieldByNurnber(structurc _atrray _ ptT， 
index，fiejd _index》) 
让 《field _array _ptr 一 王 NULL) 
mexPrintfK”NtEEmpty Fieldsar ?3 
elae 
{ 
/x 对 域 进 行 分 析 * / 
get _characteristics field _atrray _ Ptr7# 
analyze _clags(field _array _bptr)5 
mexPrintiC nn 1 
} 


tnexPrintf (nn 
} 


/* 子 冰 数 analyze _stting 的 功能 为 对 字符 申 阵列 进行 分 析 , 并 且 一 次 输出 字符 让 
阵列 的 一 行 , 在 MATLAB 中 ,字符 申 阵列 的 每 一 个 元 素 为 一 个 mmxChar 类 型 的 
字符 ,占用 两 个 字 节 。+# 7 

static void analyze _string(const mnxArray # string _array _ ptr》 


{ 
/+ 变量 声明 * 7 


char # buf; 
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int ” number _of _dimensions; 
const _ int + dims) 


int ”buflen，d，page，total _mutmiber _of _ pages，eletments _ Pet _ pagei 


/7x# 分 配 足 各 的 内 存 存放 转换 获得 字符 串 * / 
buflen 一 如 xGetNumberOfElements (string _array _ptt》 十 13 


buf 王 mxCalloc(buflen，sizeofKchar7721 


/# 从 输入 的 字符 让 中 读 取 数 据 存放 人 缓存 中 * / 
让 【mxGetString (string _atray _ptr，buf，buflen) 上 一 0) 
ImexErTMsgTxt("Could not convert string data.)# 


/* 获 歌 输入 字符 串 阵列 的 维 数 以 及 维 数 大 小 * / 
ditms 一 mnxGetDimnemnsions(string _array _Ptr71 


number _of _ 出 mensions 一 mxGetNumberOfDimensions(string _arTay _Ptr)# 


elements _per _page 一 dims{f0] * dims[]1]) 
/sx total _number _of _pages 一 出 ms[2] x dims[3] xx. ，x dims[N-it > 7 
total _numhbet _of _pages 一 14 
fer (d 一 24 qd<<nutmbetr _of _ dimensions; qd 十 十 ) 
total _mumber _of _pages +* 一 dims[d]， 


/x* 访问 岂 有 的 字符 ,并 按 行 输出 * / 
for (page 一 03 page < total _number _of _ pages; page 十 十 ) 
{ 
int row# 
for (row 王 0 iow<dimsf10ji row 十 十 ) 
{ 
int columny; 
int index 一 〈page #* elements _Per _p8gEe)》 十 rowi 
mexPrintfKw\t” ?4 
display _subscript(string _array _Ptr，index75 
mexPrintfCr ”723 


for (column=0; column<dimsg[1]; column 十 十 ) 
{ 
tmexPrintf(r %ecw buf[index]); 
index 十 = 王 dims[0]) 
} 
mexPrintfKr ny 7 
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/+#* 子 函 数 analyze _sparse 的 功能 为 对 输 和 人 的 稀疏 矩阵 进行 分 析 . 稀疏 矩阵 是 一 种 
包含 大 量 零 元 素 的 先 阵 ,在 MATLAB 中 为 了 焉 小 内 存 的 消耗 ,为 和 天 玻 矩阵 提供 
了 与 一 般 抵 阵 完 全 不 同 的 存储 方式 ,有 关 详 细 的 存储 方式 ,参见 本 数 第 一 章 。 
闪 

Static void analyze _ spaTse[const mXArray # arTayY _ptr) 


{ 


/x 刘 量 声明 * 7 

double * Pr，#DPi 

int 关于， 关 护 ; 

int col ，total 一 0 

int starting _row _index ，stopping _row _index，current _row _indexi 
int 全 # 


/* 获取 稀 琉 矩阵 的 所 有 数据 指针 * 7/ 
pz 一 InxGetPrfarray _ptr)7; 

pi 一 mxGetPiGarray _Pptt)s 

ir 一 tnxGetIrkarray _PtT)# 

je 一 mxGetJe(atray _ptr) 


/+ 显示 非 零 元 素 * / 
一 InxGetN(Carray _PtT)# 
for (eol=0f col<nf co[ 十 十 ) 
{ 
starting _row _index 一 jc[col]; 
stopping _trow _index 一 jc[coi 十 1] 
证 (statting row _index 一 一 stopping _ row _index) 
continue 
]se 
{《 
for current _row _index 一 starting _rOW _index' 
current _row _index < stopping _rOW _indexsi 
eutTent _tow _index 十 十 ) 
{ 
话 (mxIsComplexKarray _ptr)) 
{ 
mexPrintf(>NtC%d%d) 一 站 g 十 %%g in ， 
ir[current _row _index] 十 1， 
col 十 1，pr[total]，pi[total 十 十 ]); 
} 
else 
mexPrinttKwNt(%%d,%%d)》 一 %%gNar yir[current _row _index] 十 1， 
col 十 1，pr[total 十 十 了 
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/ax 子 函 数 analyze _int8 的 功能 为 对 int8 类 型 的 阵列 进行 分 析 3 
static void analyze _int8Kconst mxX 丰 rray +# array ptr) 
{ 

signed char 站 Pr 关 了 Di 

char total _num _of _elements ，index' 


pr 一 《signed chat * )mxCetPr(Cartray _ptr73 
匀 一 〈signed char # )tmxGetPi(array .ptr)4 
total _num _of _elements 一 mxGetNumberOfElements(array _PtrD)? 


for 《index 一 0 index<<total _num _of _eletmentsi index 十 十 》 
{ 
ImexPrintf(* Nt* ) 
display _subscript(atrtray _ Ptry， index)1 
证 (mxIsCotmplexKarray _Ptr)》 
ImexPrintffr* 一 %d 十 %disn? ，#+pr 十 十 ，+DPi 十 十 2 
else 
texPrintf(” 一 多 da ，+#+ Pr 十 十 )5 


} 
/* 子孙 数 analyze _uint8 的 功能 为 对 uint8g 类 型 的 阵列 进行 分 析 * / 


static void analyze _tint8(const InxArray * array _PtT) 
{ 
unsigned char +# Pr，: pis 
int total _nutm _of _eletimnents，indexs 
pr 一 《unsigned char + )mxGetPr(array _ ptt71 
Ri 一 《unsigned char := )mxGetPi(array _ptr); 
total _num _of _elements 一 mxGetNumberOfEtements (array _ptr)5 


for (Kindexz 一 0 index<<total _num _of _elements; index 十 十 ) 
{ 
inexPrintfK Nt 7 
display _subscript(array _ ptr，index)? 
让 (mxIsComplex(array _ptr)) 
mexPrintftn 一 %u 二 Wuismne ，<pr，Y Pi 十 十 7 
else 
tmexPrintf(” 一 %%usnr ，# 和 PIT 十 十 )4 


} 
/sx 子 画 数 analyze _intl6 的 功能 为 对 int16 类 型 的 阵列 进行 分 析 * / 
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static void analyze _int16(const mxX 太 rray + array _Ptr) 
{ 

shott int # Pr 关 pis 

short int teta] _ nltao “of _elements，index% 


pr 一 《shott int #+ )mxGetPr(atrray _ptr>1 
ii 一 《short int * )rax(GetPiKarray _ptr7)# 
total _hum _of _elements 一 InxGetNUmberGOiIElements (array _ ptr7j 


for (index 一 05 index<<total _nutm _of _elementsy index 十 十 ) 
{ 
TexPrintf(n Nt )5 
display subscript(array _Pptt，index7# 
让 《mxlsCombplex(array _Ptr)) 
mexPrintf(” 一 %d 十 %dixn* ，*# pr 十 十 ，# Pi 十 十 7) 
else 
mexPrintf(” 一 %dar，#Ppr 十 十 7 


/xx 子 函 数 analyze 、uintl6 的 功能 为 对 uint16 类 型 的 阵列 进行 分 析 * / 
static void analyze _uint16(const tmx 和 rtay # arTay 六 tr 

ns 这 ned short int 类 Pr， 3 Di 

int total _num _of _elements，index) 


pr 一 《unsigned short int * )mXGetPr(array _ptr7s 
pi 一 〈unsigned short int + )mxCGetPiCarray _ptr)5 
total _mdum _of _elements 一 mxGetNumberOftElements (array _ ptr)5 


for (Kindex 一 0 index<total _num _of _elementsi index 十 十 放 
《 
mexPrintfkw Nt ); 
由 splay _、gubscriptKarray _ptr，inqdex)》3 
证 (mxIsComplex(array _ptI)) 
mexPrintf(” 一 %u 十 好 uisns ，*+pIr 十 十 ，# pi 十 十 2 
elSe 
mexPrintfk” 一 %uNar，# PT 十 十 2 


} 
/* 子 函 数 analyze _int32 的 功能 为 对 int32 类 型 的 阵列 进行 分 析 * / 


static void analyze _int32(consat mxArray +# Brray _ ptr) 


{ 


iat < 关 pr，#Pis 
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int total _num _of _eletments，indexs5 


PT 一 《int * )tmxGetPrkKarray _ptr)# 
Pi = (ipt x* 》mXCetPifarray _Ptt)y 
total _num 、of _elements 王 mxGetNumberODfElementsKartray _ptr)1 


fotr (index 一 0; index<<total _num _of _eletmentsf index 十 十 ) 
《 
tnexPrintfK” Nt )# 
display _subscriptKarray 、Ptr，inqdqex7 5 
下 《mxIsCompIexKartay _Ptr)) 
mexPrintfKr 一 %d 十 %disna* ，# Pr 十 十 ，#+ Pi 十 十 7) 
else 
mexPrintf(r* 一 dsnr ，x< pr 十 十 )3 


1# 子 函 数 analyze _uint32 的 功能 为 对 uint32 类 型 的 阵列 进行 分 析 * / 
static void anajlyze _Uint32(Kconst ImXATTay 关 arrHa7Y _Ptt) 
{ 

unsigned int # Pr，:#Ppiy 

int total _hum _of _elements ，imndex1 


pr 三 《unsigned ipt # )mxGCetPrtatray _ Ptr7f 
Pi 一 〈unsigned int * )imXxCretPi(Carray _ptr》; 
total _num _of _elements 一 mxGetNumberOfElements (artay _ptr)1 


for (index 一 0y index<<total _nutm of _elements; index 十 十 》 
{ 
tnexPrintf(w Nt )# 
display _ subscript(array _ Ptr，ihdex7j 
让 (mxIsComplextatrtay _ptr)》 
mexPrintftK”=- %u 十 %%uisn2，x pr 十 十 ，#+Pi 十 十 2 
]5e 


rmexpPrintf(” 一 %usn” ，* Pt 十 十 


} 


/# 子 函数 analyze _single 的 功能 为 对 single 类 型 的 阵列 进行 分 析 * / 
static void analyze _single (const mxArTay “# array _ptr) 


{ 
loat xx PT， 关 Pi 
int total _num _of _elerments，index# 


pr 一 《float * )mxGetPrkarray _Ptr); 
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mi 一 (float x )mxGetPi(arTray _ptr); 
total _num _of _eletments 一 mxXGetNumberOfEIements (array _Ptr)# 


for 《index 一 04 index<<total _num _of _eletmentsj jpdex 十 十 ) 
{ 
mexPrintfKm Nt 
让 splay _subscript(Karray _ptr ，index)# 
下 《mxIsComplex(artray _ptr7) 
mexPrintf(y 一 又 和 十 吧 gisn ，# pr 十 十 ，#DPDi 十 十 ) 
else 
mexPrintf(” 一 多 gr，#pr 十 十 2》3 


/+# 子 函数 analyze _double 的 功能 为 对 double 类 型 的 阵列 进行 分 析 * / 
static void analyze _double(const mxAtrray # BITa7 _Ptr) 
{ 

double 关 pr， 关 Ji 

int total _nuin _of _elements ，inqexj 


pr 一 《double *+ 》mxGetPr(array _ptr》) 
pi 一 〈(double * )mxGetPi(array _Ptr); 
total _num _oaf _elements 一 mxGetNumberOfElemente (atray _ptr)s 


for (index 一 0 index<<total _num _of _eletmentsy index 十 十 ) 
{ 
ImexPrintfK* Nt 7 
display _subscript(attay _Ptr，index7# 
证 (mxlsCompiexKarray _ptr)》 
mexPrintft” 一 %g 十 凶 gin ，#Br 十 十 ，# pi 十 十 ) 
else 


ImnexPrintf(” 一 %gsn2  ，# Pt 十 十 )5 


} 


/+ 子 函 数 analyze _full 的 功能 为 对 存 峙 类 型 为 满 的 阵列 进行 分 析 * / 
static void analyze _ 和 1](const mxArray *# ntuimeric _atray _ptr) 


《 
tmxClassID ”category1 


category 一 mxGetClassID (numeric _array _ ptr)3 
awritch 《categOry) 


{ 
case InXINT8 _CLASS， 
analyze _int8(nutneric 、array _ ptr7; 
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break， 


case IOXUINT8 _CLASS: 
analyze _Uintgtnumeric _array _ptr)5 


break ; 


case IXINT16 _CLASS 
analyze _int16(numeric _array _PtrJ# 
break; 


case IDXUINT16 _CLASS， 
analyze _uintl16(numeric _artray _Ptr)# 
break ; 


case InxXINT32 CLASS 
analyze _int32(numeric _array _PtT)# 
break 1 


case XUINT32 CLASS， 
analyze _Uint32(nutaetic _array _Ptr73 
break; 


case mxXSINGLE _CLASS: 
analyze _single(numeric _artay _ptr73 
”break; 


case mxDOUBLE _CLASS 
analyze _double(numeric _artray _ ptr7 
breaky 


} 


/x# 子 函 数 display _subscript 的 功能 为 根据 索引 值 获取 元 素 的 下 标 * / 
void display subseript(const mxArray # aTray _ptr， int index) 


{ 


int inner ，subindex，total，9，q 
int nutnber _of _dhmensiconai 
int %# 8ubscripbt; 


eonst int +# dinsy 


number _of _dhmensions 一 mxGetNumberOfDimensiona 《array _ptr7? 
subscript 一 tmxCalloc(number _of _ 由 tmensions， sizeofKint7)1 


dims 三 mxGetDimensiong(array _ PtT75 


ImexPrintfKr (” 7 
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subindex 一 index#; 
ier (d 一 mrurnber _of _dimenstions-1; gd > 一 0; d--) 
{ 
for ttotal 王 1，inner 一 0f ihner<dr inner 十 十 ) 
totasl x 一 dims[inper]; 


subscriptLd] 一 subindex /totaly 
subindex =- subinqdex %% totaly 


} 
for (q 一 0 g<number _of dimensions-1f @ 十 十 ) 
TaexPrintfK" %d* ，subseript[q] 十 1)5 


mexPrintf (* %d)* ，subscript[Cnumhpber _of _ 机 mensions-1] 十 13; 


tnxFree(dsubscript)5 


/+# 子 函 数 get _ chatacteristics 的 功能 为 获得 输 和 人 参数 的 名 字 、 维 数 和 类 型 信息 ,并 


输出 * 7 


void get _characteristics(const mxXxArTay # array _Bptr) 


《 


/< 变量 定义 * 7/ 

const char x* namei /x 存放 输 人 参数 的 名 字 * 7/ 

conat chat * elass _namei /xx 存放 输入 和 参 数 的 类 型 * / 
const int x dims; /yx 存放 输 人 和 参数 维 数 * / 

char # shape _strinmgy 

char # temp _stting+ 

int GC 

int nutmber _of _dimensions# 

int length _of _ shape _string# 


/xx 显示 “7/ 
mexPrintf(? -~ An )5 


/1 通过 函数 mxGetName 获得 输 和 人 阵列 的 名 字 并 显示 ， 如 果 该 阵列 没有 和 定义 名 
字 , 则 输出 Unnamed * 7 


natme 一 YaXGetNatmekartray _ptz) 


让 (xname 一 一 人 NOD) 
mexbrintf(>Natme: Unnamedsn" )3 
else 


mexPrintft(* Narme:，%sNr，narne); 


/x# 显示 阵列 的 维 数 ,例如 5X7X3。 如 果 阵 列 的 维 数 过 大 ,无 法 按 前 面 的 格式 显示 ， 


将 直接 输出 维 数 ,例如 12-D。* / 
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/# 通过 末 数 mxGetNumberDfDimensions 获取 阵列 维 数 * 7/ 


Duimber _of _dimensions 一 mxCetNutmberOfDimensions (artray _ptr)》; 


/x* 通过 函数 mxGetDimensions 获得 阵列 每 一 维 的 大 小 + / 


dims 一 mxGetDimensions(Karray 、Ptr); 


/x* 为 格式 输出 分 配 内 存 , 这 样 可 以 在 其 中 添加 符号 x * 7/ 


shape _string 一 (char # )》mxCallocKnumber _of _dimensions * 348izeofkchat7?1 
shape _string[0]=- 0; 
tetmp _、string= 《char # ?mxCalloc(64，sizeof(char)7? 


for (ce 一 Di c<nurmber _of _qimensions; ec 十 十 ) 
《 
sprintfKtemp _string， ”dqxr， dimsic]); 
strecat [shape _Btting，temp _string7 


} 
lenagth _of _shape _stting 一 strlen(shape _string)8 


Arx 将 最 后 一 个 x 过 换 为 空格 * 7/ 
shape _atring[length _of _shape _string-1] 一 人 0') 
让 (length _of _shape _string >> 16) 
sprintf(shape _string， ”外 d-DNO0" ，number _of _dimensionay》， 


/:x 输出 维 数 * 7/ 
tmexPrintKrDimensions ，%%ssny ，shape _stting) 


/x* 通过 函数 mxGetClassName 获取 阵列 的 类 型 并 显示 * 7 
class _nhame 一 mnxGetClassNatmne(array _Ptr)# 
mexBPrintftrClass Namet 9%SsNn，class _name); 


/xx 显示 * 7 

InexPrintf fw”-----~--------------------------- 人 一 nr75 
# 麦 放 内 存 = 7 

TaxFree(shape _stting)f 


} 


1/ x 子 数 anaiyze _clags 完成 的 功能 为 对 单元 阵列 的 元 素 进行 类 型 分 析 , 然 后 再 调 
用 相关 的 子 函数 对 该 元 素 进 行 分 析 * / 


mxClassJID analyze _class(conast tmxArray # array _PtT) 


{ 


1x# 定义 了 一 个 mxClassID 类 型 的 变量 category, 用 以 标识 单元 阵列 元 素 的 类 型 
夫子 
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ImXClassID categotyy 


/+# 通过 函数 mxGetClassID 对 元 素 的 类 型 进行 判断 * / 
category 一 mxGetClassID(array _ ptr)$ 


/xx 根据 元 素 的 类 型 ,选择 相应 的 子 函 数 进行 处 理 * / 
Switch 《category) 
{ 
/4# 字符 昌 类 型 * / 
case IIXCHAR CLASS: 
analyze _ string(array _Ptr)5 
break) 


/sx 结构 类 型 * / 

case ImXSTRUCT CLASS， 
analyze _Strilcture(KaTray _ Ptr73 
break ; 


/x# 稀 朴 矩阵 类 型 * / 

case IDxSPARSE _CLASS， 
analyze _sparse (array _ Ptr ?1 
break ; 


/x 单元 阵列 类 型 * /7 

case InxCELL CLASS: 
analyze _cellKarray _Ptr]$ 
hreak; 


/+ 类 开 不 详 <7 
case mxUNKNOWN CLASS， 
tnex 肥 arnMsgTxtt*Unknowrn class.”)# 


breakj 


/* 默认 情况 * 7/ 

default ， 
analyze _full(array _ptr7; 
break; 


Tetutn{kcategery)1 


} 


/nx MEX 文件 人 口 点 函数 * / 
void mexFunetiont int nlhs ，mxArray x blhs[， 
int nths ，const mxArray +# Prhs[] ) 
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{ 


int ij 


7/* 玛 一 地 对 输 人 套数 进行 分 析 * / 
for〈i 一 0 i<snrbs;y i 十 十 》《 
reXpPrintf(yNaNn” ); 
get _characteristics(prhs[i])# 
analyze _class(Kprhs[i])， 
} 
} 


对 该 程序 编译 后 ,在 MATLAB 下 键入 如 下 的 命令 ,将 得 到 以 下 结果 ， 


? e 一 [aidirghj 门 ; 
? explore(e》 


Name: e 
Dimernsionrs :2xX3 


Class Name : char 


《1;,1) afd 
《2 1》 gbj 


8. mxClearLogical 


功 能 :清除 膛 辑 标志 。 

语 法 :并 incluade "matrix. hy” 
void mxClearLogical(mxArray #array _ptr7; 

说 ” 明 ; 通 过 函数 mxClearLogical 可 以 清除 mxArray 结构 体 对 象 的 逻辑 标志 ,该 标 
志 用 来 通知 MATLAB 将 mxArray 结构 体 数 据 作 为 数值 数据 处 理 ,还 是 作 
为 布尔 数据 处 理 。 如 果 该 标志 为 on ,那么 MATLAB 将 数值 0 看 作为 逻辑 
假 ,而 将 非 零 的 数值 看 作为 逻辑 真 。 此 外 用 户 还 可 以 通过 使 用 梧 数 mxSet- 
Logical 为 开启 mxArray 结构 体 对 象 的 逻辑 标志 。 

举例 ,参见 函数 mxIsLogical 的 范例 程序 mxislogical, ec。 


9. mnxCormplexity 


功 ”能 :用 于 判断 阵列 是 否 为 复数 类 型 。 

定义 :typedef enum mxComplexity (mxREAL 一 0，mxCOMPLEX); 

说 “ 明 ,mxComplexity 为 一 个 校 举 类 型 的 数据 , 它 包含 两 个 常量 ,其 中 mxREAL 用 
来 标识 一 个 mxArray 结构 体 对 象 为 实数 类 型 ,不 包含 虚 数 部 分 , 而 mx- 
COMPLEX 用 来 标识 一 个 mxArray 结构 体 对 象 为 复数 类 型 , 包 含 虚数 数 
据 。 在 大 量 的 mx- 函 数 中 , 均 要 使 用 到 这 两 个 常量 。 

举例 ;参见 函数 mxCalcSingleSubscript 的 范例 程序 mxcalcsingtesubscript- c。 
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10, mxCreateCellArray 


功 ”能 :创建 一 个 N 维 的 未 赋值 的 单元 阵列 。 
谓 法 :#incliude "matrix. py 
txArray x mxCreateCellArray(int ndim ，const int x dims); 
说 ” 明 : 通 过 函数 mxCreateCellArray, 用 户 可 以 创建 一 个 指定 维 数 、 指 定 大 小 的 单 
元 阵列 ,单元 阵列 的 维 数 通过 输 人 参数 ndim 来 确定 , 而 每 一 维 的 大 小 则 通 
过 数组 dims 来 确定 ,其 中 dims[0] 用 来 指定 阵列 的 行 数 ,dims[L1] 用 来 指定 
阵列 的 列 数 ,dims[2] 用 来 指定 阵列 的 页 面 数 ,后 续 的 以 此 类 推 。 如 果 用 户 希 
望 创 建 一 个 3 维 的 .大 小 为 3X4X5 的 单元 阵列 ,使 用 函数 mxCreateCell- 
Array 时 , 必须 将 参数 设 管 为 ndims 一 3,dims[0] 王 3,dims[1] 一 4,dims[2] 
王 5。 如 果 函 数 执行 成 功 将 返回 一 个 指向 新 创建 的 单元 阵列 的 指针 , 并且 将 
阵列 的 每 一 个 单元 均 设置 为 空 如 果 函 数 执行 不 成 功 ,在 MEX 文件 中 ,整个 
程序 将 终止 运行 ,并 返回 到 MATLAB 命令 提示 符 下 # 而 在 独立 可 执行 的 
MATLAB 接口 程序 如 引擎 程序 中 , 函数 将 返回 一 个 NULL 指针 。 一 般 来 
说 , 导 殖 函数 运行 失败 的 原因 主要 有 两 种 ， 
。 没有 足够 的 空闲 堆 空 间 ; 
。 所 确定 的 阵列 的 维 数 大 于 数组 元 素 的 个 数 。 
举例, 下面 是 一 段 使 用 函数 mxCreateCellArray 的 范例 代码 ; 


int ndims 一 3; 

int dims[] 一 (34 5j， 

tmx 太 Tray :cell _arrayi 

cell _array 一 mxCreateCellArray(ndims，dims73 


/x 在 独立 可 执行 的 MATLAB 接口 程序 中 ,对 函数 执行 的 成 功 与 否 进 行 判断 :而 在 
MEX 文件 中 , 则 无 需 下 面 的 代码 对 函数 的 执行 成 功 与 否 进行 判断 , 因为 ,在 
MEX 文件 中 , 如 果 函 数 执行 失败 将 直接 返回 MATLAB 命令 提示 符 * / 

放 (eeli _array 一 NUILL) 


{ 
printtt\n 创建 单元 阵列 失败 .”); 


TCtUYImn 


} 
11, mxCreateCellMatrix 


功 能 ,创建 一 个 二 维 的 未 赋值 的 单元 阵列 。 

请 法 ;#include ”matrix,h” 
mxArray # ImXCreateCellMatrix(int m，int mn)i 

说 “” 明 ;通过 函数 mxCreateCellMarrix, 用 户 可 以 创建 一 个 指定 行 数 和 列 数 的 二 维 单 
元 阵列 ,具体 的 行 数 和 列 数 由 输入 参数 m 和 nm 确定 。 如 果 画 数 执行 成 功 将 返 
回 一 个 指向 新 创建 的 单元 阵列 的 指针 , 并 且 将 阵列 的 每 一 个 单元 均 设 置 为 
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空 。 如 果 冰 数 执行 不 成 功 , 在 MEX 文件 中 , 整个 程序 将 终止 运行 ,并 返回 到 
MATLAB 命令 提示 符 下 ;而 在 独立 可 执行 的 MATLAB 接口 程序 如 引擎 程 
序 中 , 枯 数 将 返回 一 个 NULL 指针 。 一 般 来 说 , 导致 函数 运行 失败 的 原因 主 
要 有 两 种 ， 

。 没有 足够 的 空闲 堆 空间 

。 所 确定 的 阵列 的 维 数 大 于 数组 元 素 的 个 数 。 
总 的 来 说 ,函数 mxCreateCellMatrix 完成 的 功能 与 函数 mxCreateCellArray 
完成 的 功能 类 似 , 惟 一 的 不 同 是 函数 mxCreateCellMatrix 不 能 创建 维 数 大 
于 2 的 单元 阵列 。 

举 例 , 程 序 mxcreatecellmatrix,e 是 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 


MATLAB 根 目录 NEXTERNNEXAMPLESNMXAY 


中 .该 程序 完成 的 功能 相当 简单 , 它 将 输入 参数 放 人 一 个 单元 阵列 中 ,然后 使 
用 mex- 函 数 mexCallMATLAB 调用 MATLAHB 全 令 显 示 单 元 阵列 的 内 容 ， 
其 源 代 和 码 如 下 : 


/# mex.h 头 文 件 包 食 , 这 对 于 MEX 文件 来 说 是 必 不 可 少 的 * / 


提 include mex, hn 


Z/# 人 口 点 卫 数 * 7/ 
void 
mexFunetion (int nths ，mxArray x# plhs[]， int nrhs ，const mxArray * brhs[]) 
{ 
/x* 变量 声明 * / 
IDX 上 Atray + cell _array _ptt，#rhsL1l]; 


int i; 


1/ 检查 输 人 和 输出 变量 的 个 数 * 7/ 
这 (nrhs < 1》 
{ 
mexErrMsgTxtt" At least one input argument Tequired.”)5 


} 


让 (nlhs 之 1) 
{ 
tnexErrMsgTxtCToo many Dutput aTgurnents,”)1 


》 


1x# 创建 一 个 nths X 1 的 单元 阵列 * / 


cell _array _ptr 一 mxXCTeateCellMatrix(tnrhs，173 


/x* 用 输入 参数 撤 讽 单元 阵列 * / 
for( i 一 0 i<nprhs;i i 十 十 ) 
{ 


第 3 章 C 语 言 MEX 文件 的 编写 “135， 


ImXSetCellKcell .array _ Ptr,iymxDuplieateArrayKprhs[ 让 ))3 
} 


rhs[0] 一 cell _array ptrj 


7x 显示 单元 阵列 的 内 容 * 7 
mexPrintf(”\nTbe contents of the created cell is:nsn2)5 
mexCallMATLAB(CO,NULL,1vths,rdisp” 

} 


对 该 程序 进行 编译 后 ,在 MATLAB 命令 提示 符 下 键入 如 下 命令 ,可 以 得 到 
下 面 的 结果 : 


? txcreatecelljmatrixtraad(3) 7abcd'》 
The sentents of the created cell is， 
[3x3 double]j 
Tabed 


此 外 读者 还 可 以 参见 3, 2.4 节 的 范例 程序 uppercase.c。 


12. mxCreateCharAArray 


功 能 :创建 一 个 N 维 的 未 赋值 的 字符 串 阵 列 。 

语 法 : 共 inciude matrix. hy 
ImxArray #ImXCreateCharArray(int ndqim ，const int # dims) 

说 ” 明 : 通 过 函数 mxCreateCharArray, 用 户 可 以 创建 一 个 指定 维 数 的 字符 毕 阵 列 ， 
该 字符 串 阵列 的 维 数 通过 输入 参数 ndim 来 确定 ,而 每 一 维 的 大 小 则 通过 孝 
组 dims 来 确定 ,其 中 dims[o] 用 来 指定 阵列 的 行 数 ,dims[1] 用 来 指定 阵列 
的 列 数 ,dims[2] 用 来 指定 阵列 的 页 面 数 ,后 续 的 以 此 类 推 。 如 果 用 户 希 望 创 
建 一 个 3 维 的 .大 小 为 3X4X5 的 字符 溃 阵 列 ,使 用 画 数 mxCreate- 
CharArray 财 ,必须 将 参数 设置 为 ndims 一 3,dims[0]j 一 3,dims[L1] 一 4,dims 
[2 一 5。 如 果 函 数 执行 成 功 将 返回 一 个 指向 新 创建 的 字符 串 阵列 的 指针 ,但 
是 并 不 为 该 字符 串 阵 列 赋值 .如果 函 数 执行 不 成 功 ,在 MEX 文件 中 ,整个 程 
序 将 终 正 运行 ,并 返回 到 MATLAB 命令 提示 符 下 ;而 在 独立 可 执行 的 
MATLAB 接口 程序 如 引擎 程序 中 , 函数 将 返回 一 个 NULL 指针 。 导 致 函数 
运行 失败 的 原因 主要 只 有 一 种 , 即 没有 足够 的 空闲 堆 空 间 。 

举例 ,参见 函数 mxCreateCharMatrixFromStrings 中 的 范例 程序 。 


13. mxCreateCharMatrixFrormStrings 


功 ”能 :创建 一 个 二 维 的 字符 串 阵 列 。 
语 ”法 : 直 include "matrix. hy 
mxArray # mxCreateCharMatrixFromStrings (int m，const char 关 #Str75 
说 “” 明 ;通过 函数 mxCreateCharMatrixFromStrings, 用 访 可 以 创建 一 个 m 行 的 二 维 
字符 串 阵列 , 并且 通过 输入 参数 中 的 字符 串 数 组 str 对 该 阵列 进行 了 赋值 。 
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函数 成 功 执行 后 ,将 返回 一 个 字符 串 阵列 的 指针 , 并 且 所 创建 的 字符 串 阵列 
的 大 小 为 mxXmax, 其 中 max 为 字符 绅 数 组 中 最 长 字符 串 的 长 度 。 如 果 郴 数 
执行 不 成 功 , 在 MEX 文件 中 ,整个 程序 将 终止 运行 ,并 返回 到 MATLAB 傅 
令 提 示 符 下 ;而 在 独立 可 执行 的 MATLAB 接口 程序 如 弛 人 歼 程 序 中 , 数 将 


返回 一 个 NULL 指针 。 


举例 ;程序 mxcreatechatmatrixfromstr'c 是 MATLAB 提供 的 一 个 范例 程序 , 存 


放 在 目录 


中 。 该 程序 的 功能 较为 简单 , 它 将 输入 的 多 个 字符 串 阵 列 按 先 后 顺序 垂直 连 
接 为 一 个 字符 串 阵列 ,其 中 每 一 行为 原来 的 一 个 输入 阵列 。 此 外 根据 编译 时 
的 不 同 命令 ,在 程序 中 对 每 一 行 字符 串 的 长 度 作 了 相应 的 调整 ,添加 空格 或 


MATLAB 根 目 录 NEXTERNNEXAMPLESNMXY 


者 空 字符 ,使 每 一 行 的 长 度 相 同 。 程 序 的 源 代码 如 下 
/* mex.h 头 文件 包含 ,这 对 于 MEX 文件 来 说 是 必 不 可 少 的 * / 


提 include ”mex,h? 


/xx 人 口 点 匿 数 * / 


void InexFunction (int nlhs ,mxArray * plhs[],int nrhs,const mxArtrray # prhs[J]》 


{ 


int i; 
char #str[100]， 


/x* 检查 输入 参数 和 输出 参数 的 个 数 * / 
证 (nrhs < 2) 
{ 
mexErrMsgTxt("At least two input argutmnents Tequired.”)4 
} 
证 Cnlhs > 1) 
{ 
mexErrMsgTxtC Too many output arguments ”7 


} 


for (ii 一 0 i<nthsy 1 十 十 ) 

{ 
/+# 检查 输 和 人 参数 的 类 型 * 7/ 
计 (! inxJsChar(prhs[i]》) 


《 
mexErrMsgTxt(C"Input Imust be of type char. "73 


} 


/* 获取 字符 串 阵列 的 所 包含 的 字符 昌 * 7/ 
str[i] 一 mxArrayToString(prhs[i])3 
} 
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/* 如 果 在 编译 时 使 用 了 盆 数 -D SPACE _PADDING ,程序 中 将 使 用 空格 填 
充 字 符 串 ,和 否则 使 用 空 字 符 NULL 来 填充 字符 串 * / 
并 if defined (SPACE _PADDING) 
{ 
int dims[2]3 
int jy ] 一 0,，m 一 nths，n 一 0; 
mxCbhar x charDatai 


for(i 一 01< mii 十 十 ) 
《 


int len; 


/+ 获取 最 长 的 字符 串 的 长 度 * 7/ 
len = strlen(str[i])， 

半 Kjen > ay》 

{ 


n 一 len; 


} 
ditmsf0] = mi 
dims[1] 一 ni 


/+# 创建 字符 串 阵 列 * / 
plhs[0] = InxCreateCharArrayt2，dims?; 
charData 一 《mxChar *# )mxGetDataKplhs[L0 7; 
for 和 一 0 ii 过 mii 十 十 ) 
{ 
二 
white (str[i[D] 1 一 和 0) 
{ 
charData[j * m 十 订 王 〈mxChar) (unsigned char)str[i][j] 
j 十 十 ;# 
} 
whbileG < n) 
{ 
charData 行 < im 十 和 一 《mxChar) 
j 十 十 ; 


划 lse 


plhs[0] 一 tmxCreateCharMatrixFromStrinags (nrhs ，(const char 关 共 )Str75 
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并 endif 


/x# 麦 放 内 存 * 7/ 
for 人 ti 一 0Df 1i<hrhsi i 十 十 》 
《 
rnxFreeKstr[i)# 
} 
} 


对 该 程序 编译 后 运行 可 以 得 到 如 下 的 结果 ， 


? mxXcreatecharmattixfromstr(C' asd' ,fghq ) 
ans 一 

as 如 

雪 hq 


14. mxCreateDoubteMatrix 


功能 :创建 一 个 二 维 的 未 赋值 的 双 精 度 浮 点 类 型 的 阵列 。 

语 ” 计 :#include "matrix. hy 
mxArray x mxCreateDoubleMatrixz (int m，int nn，ImxComplexity Com- 
PlexFlag) ; 

说 ”了 明 : 通 过 郴 数 mxCreateDoubleMatrix， 用 户 可 以 创建 一 个 二 维 的 双 精 度 浮 点 类 
型 的 未 赋值 的 阵列 ,该 阵列 的 行 数 和 列 数 可 以 通过 输入 参数 m 和 nn 来 确定 ; 
阵列 为 实数 还 是 为 复数 ,可 以 通过 mxComplexity 类 型 的 输入 参数 Com- 
plexFlag 来 确定 。 如 果 函 数 成 功 执行 ,将 返回 一 个 指向 新 创建 阵列 的 指针 ， 
如 果 函 数 执行 不 成 功 ,在 MEX 文件 中 ,整个 程序 将 终止 运行 ,并 返回 到 
MATLAB 命令 提示 符 下 ;而 在 独立 可 执行 的 MATLAB 接口 程序 如 引擎 程 
序 中 ,函数 将 返回 一 个 NULL 指针 。 

举例: 在 3. 2 节 中 的 若干 个 范例 程序 中 , 沟 使 用 了 该 函数 ,请 读者 自行 参阅 。 


15. mxCreateFull 


说 “” 明 ,该 函数 为 一 个 过 时 的 函数 ,其 功能 可 以 通过 范 数 mxCreateDoubleMatrix 来 
替代 。 如 果 需 要 使 用 已 经 存在 对 该 函数 调用 的 MEX 文件 ,而 不 希望 对 源 程 
序 进行 修改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 ,必须 使 用 mex 命令 参数 - 
V4 ,声明 编译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 


16. mxCreateNumericArray 


功能 :创建 一 个 N 维 的 未 赋值 的 数值 阵列 。 
语 法 ;#include "matrix. hy 
mxArray #mxCreateNumericArray(int ndim，const int #dims， 
mxClassID class ，mxComplexity ComplexFlag)5 
说 ” 骨 : 和 通过 函数 mxCreateNutmericArray， 用 户 可 以 创建 一 个 N 维 的 未 赋值 的 数值 
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阵列 。 阵 列 的 维 数 可 以 通过 输入 参数 ndim 来 确定 :每 一 维 的 大 小 则 通过 输 
人 的 数组 dims 来 确定 ,其 中 dims[0] 用 来 指定 阵列 的 行 数 ,dims[1] 用 来 指 
定 阵列 的 列 数 ,qims[2] 用 来 指定 阵列 的 页 面 数 ,后 续 的 以 此 类 推 ;阵列 的 数 
值 类 型 可 以 通过 mxClassID 类 型 的 输入 参数 class 来 确定 :实数 或 复数 可 以 
通过 mxComplexity 类 型 的 输 和 人 参数 ComplexFlag 确定 .如果 用 户 希 望 创 建 
一 个 3 维 的 .大 小 为 3X4X5 的 ,mxINT16 _CLASS 类 型 的 实数 阵列 ,使 用 
函数 mxCreateNumericArray 时 , 必须 将 输入 参数 设置 为 如 下 形式 
ndims 一 3,dims{0] = 3,dims[1] = 4,dqims[2] 一 5,class 一 mxINT16 _ 
CLASS,CompiexFlag 一 0。 如 果 函 数 成 功 执行 ,将 返回 一 个 指向 新 创建 阵列 
的 指针 ,同时 将 该 阵列 的 所 有 数据 置 为 零 ; 如 果 函 数 执行 不 成 功 ,在 MEX 文 
件 中 ,整个 程序 将 终止 运行 ,并 返回 到 MATLAB 命令 提示 符 下 ;而 在 独立 可 
执行 的 MATLAB 接口 程序 如 引擎 程序 中 ,函数 将 返回 一 个 NULL 指针 。 这 
里 必须 非常 注意 的 一 点 是 ,函数 mxCreateNumericArray 将 为 所 创建 的 数值 
阵列 动态 分 配 内 存 , 在 使 用 完 该 数值 阵列 后 ,应 该 使 用 画 数 mxDestroyArray 
对 内 存 进行 释放 。 


举 例 :参见 3.2.5 节 中 的 范例 程序 。 


17. mxCreateSparse 


功 能 :创建 一 个 未 赋值 的 稀 玻 矩阵 。 


法 ;#include ”matrix. hy 


tmxArray x mxCreateSparse int m，int nn，int nztmax， 


mxComplexity ComplexFlag)s 


说 “” 明 :通过 函数 mxCreateSparse ,用户 可 以 创建 一 个 二 维 的 未 赋值 的 稀 琉 矩阵 。 丁 


数 的 四 个 输入 参数 的 含义 分 别 如 下 : 

。m 为 一 个 整 型 数 ,用 以 确定 所 创建 的 稀 航 矩阵 的 行 数 ; 

。n 为 一 个 整 型 数 ,用 以 确定 所 创建 的 稀疏 矩阵 的 列 数 ， 

。nzmax 为 一 个 整 型 数 ,用 以 确定 稀疏 矩阵 中 非 零 元 泰 的 最 大 个 数 ; 

。ComplexFlag 为 一 个 mxCormplexity 类 型 的 变量 ， 用 以 确定 稀 柱 矩阵 

为 实数 类 型 还 是 为 复数 类 型 。 

如 果 函 数 执行 成 功 ， 将 返回 一 个 指向 未 赋值 的 稀 蚊 矩阵 的 指针 ,否则 将 返回 
一 个 空 指 针 NULL。 这 里 必须 说 明 的 一 点 是 函数 所 返回 的 稀 琉 和 矩阵 并 没有 
包含 任何 的 数据 信息 ,该 矩阵 不 能 被 作为 参数 传递 给 任何 的 MATLAB 稀 玻 
和 矩阵 处 理 函 数 使 用 。 如 果 希 望 该 稀 琉 失 阵 有 效 ,必须 对 pr'\ir、Pi 和 jc 四 个 数 
组 进行 初始 化 。 此 外 当 对 所 返回 的 稀 草 矩阵 使 用 完毕 后 ， 必须 使 用 函数 
mxDestroyArray 对 函数 mxCreateSparse 分 配 的 内 存 进 行 释放 。 


举 例 ,参见 3.2.7 节 的 范例 程序 。 


18. mxCreateStting 


功能 :创建 一 个 1xn 的 字符 串 阵 列 。 


“140 。 MATLAB 应 用 程序 接口 用 户 指南 


语 法 :#include ”matrix- hy 
Imx 嫩 rray <InXCreateString(const char #str); 

说 ” 明 :通过 函数 mxCreateString ,用 户 可 以 创建 一 个 1Xn 的 字符 囊 阵 列 ,并且 通 过 
字符 串 str 进行 初始 化 ,其 中 为 输入 的 字符 串 str 的 长 度 。 

举 例 : 参 见 3. 2.1 节 的 范例 程序 。 


19. mxCreateStructArray 


功能 :创建 一 个 N 维 的 未 赋值 的 结构 体 阵 列 。 
语 法 ;#include ”matrix. hv 
txArray #IXCreateStructArray (int ndim，const int # dims，int nfields ， 
cornst chatr #x #%field names7# 
说 ” 明 : 通 过 函数 mxCreateStructArray ,用 户 可 以 创建 一 个 N 维 的 未 赋值 的 结构 体 
阵列 ,其 四 个 输入 参数 的 含义 分 别 如 下 ， 
。ndim 为 一 个 整 型 数 , 用 以 确定 结构 体 阵 列 的 维 数 ， 
，dims 为 一 个 整 型 数组 ,其 数组 元 素 分 别 用 来 确定 结构 体 阵列 每 一 维 
的 大 小 ,其 中 dims[0] 为 结构 体 阵 列 的 行 数 ,qims[1] 为 结构 体 阵 列 
的 列 数 ,dims[2] 为 结构 体 阵 列 的 页 面 数 ,后 续 的 以 此 类 推 ! 如 果 用 户 
希望 创建 一 个 3X4X5 的 结构 体 阵列 , 则 必须 将 参数 dims 设置 为 如 
下 形式 ,dims[0] = 3， dims[1] 一 4,dims[2] 一 55 
。nfields 为 一 个 整 型 数 ,用 以 确定 结构 体 所 包含 的 域 的 数量 ; 
。 field _names 为 一 个 字符 串 数 组， 用 以 确定 结构 体 各 个 域 的 名 字 。 
如 果 函 数 执行 成 功 ,将 返回 一 个 结构 体 阵 列 的 指针 ,否则 范 数 返回 一 个 空 指 
针 NULL。 结 构 体 阵列 的 每 一 个 元 素 的 任何 一 个 域 的 包含 一 个 阵列 的 指针 ， 
函数 在 创建 结构 体 阵 列 时 ,会 将 这 些 指针 全 部 初始 化 为 NULL 。 当 使 用 完 盟 
数 返回 的 结构 体 阵 列 后 , 必须 使 用 函数 mxDestroyArray 对 所 占用 的 内 存 进 
行 释 放 。 
举例 :程序 mxcreatestructattay.c 是 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 
MATLAB 根 目 录 NEXTERNNEXAMPLESNMXA 


中 。 该 程序 演示 了 如 何 将 一 个 C 语言 的 结构 体 转换 为 MATLAB 的 结构 体 阵 
列 , 其 源 代码 如 下 ， 


/+ 头 文件 包含 * 7 
并 include 7tnex. by 
## 训 clude <string.h 之 


/* 宏 定 义 = 7 
#define NUMBER _OF _STRUCTS 

(sizeof (friends) /sizeofKsttuct phonebook)) 
#define NUMBER _OF _FIELDS 

《sizeof [field _natnes)ysizeof( # field _names)) 
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/sx C 语言 结构 体 * / 
struct Phonebook 
{ 
conmst Char xDamei 
doubte phone 
}; 


7# 人 口 点 函数 * /7 
void 
ImexFunctionKint nlhs ,mxArray #plhsf],int arhsconst mxArray + prhs[]》 
《 
/# 变量 声明 * / 
const char xfield _narmes[] 一 【hame"，zrphonen } 
struct Phoneboock friends[ ] 一 {{*Jordan Roberts ，3386 ) ， 
{"Mary Smith ,3912}， 
{7Stacy Florar ，3238}，{7Hatrty 和 lperty ,3077}}; 
int dims[2] = (1 NUMBER _OF _STRUCTS }) 
int i， name fietd、phoene _field; 


/x* 检查 输入 和 输出 变量 的 个 数 * / 
让 《nrhs 1 一 0) 
{ 
mexETrMES&Txt(CNo input argutment required.”) 
} 
ifCnlhs > 1) 
{ 


ImexEITTMsgTxt(Too tnany output atrguraents,Y)) 


/*# 创建 一 个 1Xn 的 结构 体 阵列 * / 
plhs[0] = mxCreateStructArray(2，dims，NUMBER _OF _FIEILDS， 
field _narmes)j 


name field = mxGetFieldNumbertplhs[0J:*nameY 7 
phone _field = mxGetFieldNumber(pihs[D],>phone 7) 


/* 冉 值 * 7 

for (i=0; i<NUMBER OF _STRUCTS: i 计 十 ) 

{ 
mX 凡 rray # field _value 
tmxSetFieldByNumber(plhst0],，i，name _field， 

mxCreateStringtfriends[i], namey)# 

field_value 一 mxCreateDoubleMatrix(1 ,1,mxREAL71 
x* InxGetPrtfield _valne) 一 frienqs[i 让 .Phormes 
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ImxSetFieldByNutaber(pihsL0],i,phone _fieid ,field value)y 


} 
20. mnxCreateStructMatrix 


功 能 :创建 一 个 未 赋值 的 二 维 结构 体 阵 列 。 
语 法 :#include ”matrix. hy 
Inx 太 rray # InxCreateStructMatrix(int m，imt ny，int nflields， 
const char # xfield _namesy7 
说 ”了 明 ; 通 过 函数 mxCreateStructMatrix ,用 户 可 以 创建 一 个 未 赋值 的 二 维 结构 体 阵 
列 。 函 数 的 各 输入 参数 的 含义 分 别 如 下 : 
。 aa 为 一 个 整 型 数 ,用 以 确定 结构 体 阵列 的 行 数 ; 
，n 为 一 个 整 型 数 ,用 以 确定 结构 体 阵 列 的 列 数 ! 
。nfieljds 为 一 个 整 型 数 ,用 以 确定 结构 体 所 包含 的 域 的 教 量 ; 
。field _names 为 一 个 字符 串 数 组 , 用 以 确定 结构 体 各 个 域 的 名 字 。 
如 果 函 数 执行 成 功 , 将 返回 一 个 指向 结构 体 阵 列 的 指针 ,否则 将 返回 一 个 空 
指针 NULL。 
举例: 参见 3.2.3 节 的 范例 程序 。 


21. mxDestroyArray 


功 能 :释放 由 mxCreate 系列 函数 动态 分 配 的 内 存 。 

语 法 ,;#include "matrix, hy 
void mxDestroyArray(mxArray #x array _Ptr7j 

说 “了 明 , 通 过 函数 mxDestroyArray, 用 户 可 以 释放 由 一 个 指定 的 阵列 占用 的 内 存 ,该 
内 存 不 但 包括 阵列 的 一 些 特 征 域 , 而 且 包 括 与 阵列 相 联系 的 一 些 数 组 ,如 
Pr、pi.ir 和 jc。 

举例 :参见 函数 mexCallMATLAB 的 范例 程序 mexcaiimatiab.c。 


22. mxDuplicate 和 Array 


功能 :对 一 个 阵列 进行 复制 。 

语法 ,#include ”matrix. hy 
tnxArtrray #+ mxDuplicate 太 rray(Const TIXArray #<in)5 

说 “” 明 ,通过 函数 mxDuplicateArray ,用户 可 以 对 一 个 阵列 进行 完全 的 拷贝 , 即 对 输 
入 的 阵列 in 的 所 有 内 容 进 行 复 制 。 如 果 函 数 执行 成 功 , 画 数 将 返回 一 个 指向 
拨 贝 的 指针 。 

举例 ;参见 3.2.4 节 的 范例 程序 。 


23. ImXFree 


功能 ;释放 由 函数 mxCalloc 动态 分 配 的 内 存 。 
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司法:#inelude ”matrix. hy 
void tmxFree(void # btr)j 
说 明 : 通 过 函数 mxFree, 用户 可 以 对 由 函数 mxCalloc 动态 分 配 的 内 存 进 行 释放 。 
“在 所 有 的 MATLAB 接口 应 用 程序 ,包括 本 章 所 讲述 的 MEX 文件 ,以 及 后 
续 的 MAT 文件 应 用 程序 和 MATLAB 引擎 程序 中 , 对 堆 内 存 的 释放 操作 ， 
都 应 该 使 用 函数 mxFree 来 代替 标准 的 C 语言 的 库 函 数 free。 在 MEX 文件 
中 ,函数 mxFree 将 自动 完成 两 个 方面 工作 ; 
。 调用 C 请 言 的 库 函 数 free 释放 以 指针 ptr 为 起 始 位 置 的 连续 的 堆 内 
存 ; 
。， 其 除 该 有 段 内 存在 MATLAB 内 存 自 动 管理 机 制 中 注册 的 信息 包 。 
MATLAB 的 自动 内 存 管 理 机 制 是 MATLAB 为 了 避免 内 存 浊 沁 而 提供 的 
一 种 自动 的 内 存 管 理 机 制 ,在 它 之 中 ,保留 了 由 函数 mxCalloc 和 mxCreate 
系列 函数 分 配 的 所 有 内 存 的 信息 包 。 当 一 个 MEX 文件 执行 完毕 后 , 自动 内 
存 管 理 机 制 将 释放 所 有 与 MEX 文件 相关 的 内 存 , 并 删除 对 应 的 信息 包 。 通 
过 内 存 的 自动 管理 机 制 , 用 户 无 需 手动 地 使 用 函数 mxFree 对 内 存 进行 释 
放 。 不 过 在 对 一 段 内 存 使 用 完毕 后 ,立即 进行 炙 放 ,是 一 种 良好 的 编程 习惯 。 
在 默认 情况 下 ,由 函数 mxCalloc 分 配 的 内 存 为 非 持久 的 ,但 是 如 果 通 过 耳 数 
mexMakeMemoryPersistent 进行 持久 化 后 ,这 片 内 存 就 无 法 由 MATLAB 
的 自动 内 存 管 理 机 制 来 释放 了 ,而 必须 通过 使 用 mexAtExit 来 注册 一 个 退 
出 函数 ,在 退出 函数 中 使 用 mxFree 进行 内 存 释 放 。 
举例 :参见 函数 mxCalecSingleSubscript 的 范例 程序 mxcalesinglesubscript.c。 


24. mxFreeMtatrix 


说 “” 明 ,该 函数 为 一 个 过 时 的 函数 ,其 功能 可 以 通过 本 数 mxDestroyArray 来 替代 。 
如 果 需 要 使 用 已 经 存在 对 该 函数 调用 的 MEX 文件 ,而 不 希望 对 源 程序 进行 
收 改 ,那么 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命令 参数 -V4, 声 
明 编 译 为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 


25. mxGetCell 


功 ”能 :获得 单元 阵列 中 一 个 指定 的 单元 。 
语 法;#incelude "matrix. hy 
mxArray x mxGetCell(const mxArray #array _ptr， int index); 
说 ” 明 , 通 过 函数 mxGetCell, 用 户 可 以 获得 单元 阵列 中 一 个 指定 的 单元 。 枯 数 的 输 
人 参数 的 含义 分 别 如 下 ; 
。array _ptr 为 一 个 指向 单元 阵列 的 指针 ; 
。index 为 希 鹿 提取 的 单元 阵列 单元 的 索引 值 , 该 索引 值 可 以 通过 函 数 
mxCaicSingleSubsceript 从 希望 提取 单元 的 下 标 获 取 。 
如 果 画 数 执行 成 功 , 将 返回 一 个 指向 指定 单元 中 阵列 的 指针 ,否则 返回 
NULL ,表示 执行 失败 ,导致 失 获 的 原因 可 能 有 以 下 几 种 ， 
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。 指定 的 单元 并 未 被 赋值 ; 
”确定 的 指针 array _ptr 不 是 一 个 单元 指针 ; 
* 指定 的 索引 舍 超 出 范围 
。 没有 足够 的 内 存 空间 存储 返回 的 阵列 。 
举 例 :参见 mxClassID 的 范例 程序 explore.ec。 


26. imxGetClassID 


功 能 :获取 一 个 阵列 的 类 型 。 

语 法 :#include ”matrix. hy 
mxClassID mxGetClassID(const mxArray x#atrray ptr) 

说 ” 明 ; 通 过 函数 mxGetClassID ,用 户 可 以 获得 -- 个 指定 的 阵列 的 类 型 ,其 输入 参 数 
为 一 个 阵列 指针 ,返回 值 为 一 个 mxClassID 类 型 的 值 。 

举 例 : 人 参见 mxClassID 的 范例 程序 explore. c。 


27. mxGetData 


功 ”能 :获得 阵列 的 数据 指针 。 

语 法 :#include ”matrix. hy 
void #x InxGetData(const InxArray %array _ptr)， 

说 ” 明 ,通过 函数 mxGetData, 用户 可 以 获得 由 指针 array _ptr 指向 的 阵列 的 数据 指 
针 。 它 不 同 于 mxGetPr 等 函数 的 地 方 在 于 mxGetData 的 返回 值 为 void 类 型 
的 指针 。 

举例 ,参见 函数 mxCreateCharMatrizFromStrings 的 范例 程序 。 


28. InxGetDimensions 


功能 :获得 一 个 指向 阵列 维 数 大 小 的 数组 的 指针 。 

请” 法,#include "matrix. hy 
const int # mxGetDimensions(const mxXArray #array _Ptr); 

说 “” 明 ;通过 函数 mxGetDimensions ,用 户 可 以 获得 一 个 指向 阵列 维 数 大 小 的 数组 的 
指针 。 该 指针 指向 的 数组 的 元 素 包 含 了 阵列 每 一 维 的 大 小 ,其 中 数组 的 第 一 
个 元 素 为 阵列 的 行 数 ,数组 的 第 二 个 元 素 为 阵列 的 列 数 ,第 三 个 元 素 为 阵列 
的 页 面 数 ,后 续 的 以 此 类 推 。 函 数 的 输 人 参数 array _ptr 为 一 个 指向 某 个 阵 
列 的 指针 。 

举例 :参见 函数 mxCreateCharMatrixFromStrings 的 范例 程序 。 


29. mxGetElementSize 


功能 :获得 存储 阵列 中 元 素 所 需 的 字 节 数 量 。 
语 法 :#include ”matrix. hy 
int mxGetEjementSize (const tmxATray # array _PtT)3 


说 ”了 明 , 通 过 函数 mxGetElementSize, 用户 可 以 获得 存储 阵列 中 元 兹 所 需 的 字 节 数 
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量 ,其 输入 参数 array _ptr 为 指向 某 个 阵列 的 指针 。 如 果 函 数 执行 成 功 , 将 返 
回 一 个 整数 ,用 以 表示 存储 阵列 元 素 所 需 的 字 节 的 数量 , 如 果 执 行 失败 ,将 
返回 0, 导致 困 孝 失败 的 原因 一 般 为 对 阵列 的 类 型 不 清 。 对 于 单元 阵列 和 结 
构 体 阵列 ,函数 将 存放 返 苛 指向 单元 阵列 元 素 和 结构 体 阵 列 元 素 指 针 的 字 
节 数 。 

举 例 :参见 3.2.5 节 范 例 程序 。 


30. mxCetEps 


功 能 :， 获取 epSs 的 值 。 
证 法 :#jinclude ”matrix. h? 
double mxGetEps(void) ; 
说 ” 明 : 通 过 函 数 mxGetEps, 用 户 可 以 获得 MATLAB 的 内 部 变量 eps 的 值 。 
举例, 程序 mxgeteps.e 为 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 


MATILAB 根 目录 NEXTERNNEXAMPLESNMXAN 
中 , 它 演示 了 画 数 mxGetEps 的 使 用 ,其 源 代 码 如 下 : 
1/x# 头 文 件 包 含 * 7/ 


划 include ”fnex. hv 
#include <tnath.h>> 


/xz 人 口 点 函数 * 7/ 
void 
ImexFunction (int nihas ,mxArray *# PlhsE],int nrhbsyeonst InxArray # prhsLJ》 
{ 
/xx 变量 声明 * 7/ 
const int # dims _first，。# dims _secondi 
int cy eletments，j# 


douhble * first _ptr，#+Ssecond _PtT，epsy 


/* 检查 输 和 人 输出 参数 的 个 数 * / 
让 (nrhs ! 一 2》 
{ 
InexErTMasgTxt(7Two input argutnents required. ”7 
} 
让 《nlhs > 1 
{ 
mexErrMsgTxt("Too many Output argutinents-”)4 


} 


/x* 检查 第 一 个 输 和 人 参数 的 类 型 * / 
证 〔《1 mxJsDouble(prhs[0]》 | ! mxIsDouble(prhs[1J]) 

1 mxIsComplex(prhs[0]) 1 mxIsComplex(prhs[1]>) 
{ 
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DexErrMsSgTxtf"Input argutnents InuUst be real of tyPe double.”); 


1/x 检查 输入 参数 是 否 同 维 * / 
计 《 mxGetNumberOfiDimensions(prhs[0]) 1 一 
tnxGetNumberOfDitnensions(prhs[1])) 


mexErrMSsgTxet"Inputs miust have the same nutnber 


of 由 tmensions, ny ) _ 


dims _firat 王 mxGetDitmensions (pths[1L0])* 
dims _second 一 tmmxGetDitmensions(prbs[1])) 


/* 检查 输 人 参数 的 每 一 维 的 大 小 是 否 相 同 * / 
for 《ec 一 0 c<<mxGetNumberOfDimensionstprhsL0])i ce 十 十 》 
{ 

让 (dims _first[c]1] = dims secondic]) 

《 


ImexErrMsgTxtt"Inputs must have the same dimensions. \n”)5 


/+ 获得 输 人 参数 的 元 素 的 个 数 * / 
eletments 一 mxfGetNumberOfElements(prhs[0]) 


7:* 获得 数据 * 7/ 
firrst _ptr 一 《double * )mxGetPr(prhsL0]); 
second _ptr = 〔〈denble * )mxGetPrkprhs[1])， 


/xy 构造 输出 * 7 
plhs[0 一 mxCreateDoubleMatrix(]，1,mxREAL); 


/x 获得 EPS 的 值 * / 
eps 一 mxGetEps( ) 


/x 使 用 EPS 作为 容 限 , 检 测 相等 性 * / 
for(0=0 j<eletmentsi j 十 十 ) 


{ 
入 Cffabs (first _ ptr[j] - second ptr[j]))》>《〈 扣 bs(ksecond _ ptr[j] * 


eps)])) 


break ; 
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这 人 = 一 elements》 
{ 
mxGetPr(plhsLO0])L0] 一 1.0， 
} 
} 


31. mxGetField 


功 能 :获得 指定 结构 体 阵 列 指定 元 素 的 指定 域 的 值 。 
语 法 : #include "matrix. hv 
mx 太 trray #<IxGetField(const tnxArray #atrtay _ptr，int index， 
const chatr #field name); 
说 明 ,通过 函数 mxGetField ,用 户 可 以 获得 指定 结构 体 阵 列 指定 元 素 的 指定 域 的 
值 , 它 的 三 个 输入 参数 的 含义 分 别 如 下 ， 
。array _ptr 为 一 个 指向 某 个 结构 体 的 指针 ; 
。index 为 希望 提取 的 单元 阵列 单元 的 索引 值 ,该 索引 人 导 可 以 通过 郴 数 
mxCatcSingleSubseript 使 用 希望 提取 单元 的 下 标 获 取 ; 
。 field _name 为 域名 。 
如 果 函 数 执 行 成 功 ,其 返回 值 为 一 个 阵列 指针 ,用 C 语言 的 伪 码 返回 结果 可 
以 表示 为 如 下 形式 ， 


array _btr[index].field _name 


如 果 函 数 执行 失败 ,将 返回 空 指针 。 导 致 失败 的 原因 一 般 有 以 下 几 种 ， 
。 指针 array _ptr 并 非 一 个 指向 结 梅 体 阵 列 的 指针 ; 
。，index 的 值 超出 结构 体 阵 列 的 范围 ， 
。field __name 为 一 个 不 存在 的 域名 ! 
。 没 有 足够 的 内 存 空 间 存 储 返 回 的 值 。 
举例 ,参见 mxClassID 的 范例 程序 explore. c。 


32. mxGetFieldByNumber 


功能 ,获得 指定 结构 体 阵列 指定 元 素 的 指定 域 的 值 。 

语 法 : 夫 include ”matrix. h” 
mxAarray x* mxGetFieldByNumber(const mxArray # array _ptr，int index， 

int field _number)y 

说 “了 明 :, 函 数 mxGetFieldByNumber 完成 的 功能 与 函数 mxGetField 完成 的 功能 完 
全 相同 ,它们 之 间 惟 一 的 不 同 是 对 域 的 确定 方式 的 不 同 。 在 函数 mxGetFieid 
中 ,通过 直接 输入 域名 字符 圳 来 确定 域 ,而 函数 mxGetFieldByNumber 则 是 
通过 域 的 索引 来 确定 域 。 下 面 语句 


field _num = mxGetFieldNumpber(pa，"field _name'”) 
mxGetFieldByNumber(pa，index， field .nutmy7; 


的 功能 与 语句 
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mxCetFielid(pa，index，*field _namer)y 


的 功能 相同 
举例 ,参见 mxClassID 的 范例 程序 explore.e。 


33, mxGetFieldNatmeByNurmber 


功 能 :通过 索引 获得 域名 。 
语 法 :#include ”matrix. hr 
conast char x ImmxGetFieldNameByNumberkconst mxArray #array _ptr， 
int field _number7# 
说 阴 , 通 过 函 教 mxGetFieldNameByNumber, 用户 可 以 获得 指定 域 的 名 字 ,其 输入 
参数 的 含义 如 下 ， 
。array _ptr 为 一 个 指向 结构 体 阵 列 的 指针 
，field _number 为 域名 的 索引 值 , 第 一 个 域名 的 索引 值 为 0, 第 一 个 域 
名 的 索引 值 为 1, 后续 的 以 此 类 推 。 
如 果 函 数 执行 成 功 ,将 返回 一 个 指向 字符 捉 的 指针 , 如 果 函 数 执行 失败 ,将 返 
回 NULL。 一 般 情 况 下 , 导致 函数 出 错 的 原因 主要 有 以 下 两 种 ; 
。array _ptr 不 是 一 个 指向 结构 体 阵 列 的 指针 
。 field _number 超出 范围 。 
举例 ,参见 mxClassID 的 范例 程序 explore.c 。 


34. mxCGetFgieldNutnbet 


功 能 ,获得 指定 域名 的 索引 值 。 
语 法 ,#include ”matrix, h? 
int mxGetFieldNumber (const mxArray #array ptz，const char xfield _ 
arme); 
说 “ 明 :; 函 数 mxGetFieldNumber 的 功能 正好 与 函数 mxGetFieldNameByNumber 相 
反 , 它 是 通过 给 定 域名 来 获得 域名 的 索引 值 。 其 输入 参数 的 含义 分 别 如 下 ， 
。array _btr 为 一 个 指向 结构 体 阵 列 的 指针 
。 field _name 为 域名 。 
如 果 函 数 执行 成 功 ,将 返回 指定 域名 的 索引 值 ,如 果 函 数 执行 不 成 功 ,将 返回 
-1。 一 般 情况 下 ,导致 函数 出 错 的 原因 主要 有 以 下 两 种 : 
。array _ptr 不 是 一 个 指向 结构 体 阵列 的 指针 ; 
。fieid _name 不 是 结构 体 阵列 所 具有 的 域名 。 
举例 ;参见 函数 mxCreateStructArray 的 范例 程序 。 


35, mxGetImagData 


功能 :获得 阵列 虚数 部 分 数据 的 指针 。 
语 法 :#include ”matrix, hy 
void * mxGetImagData(const mxArray #array _PtT)5 
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说 有明 : 酚 数 mxGetImagData 的 功能 与 函数 mxGetPi 的 功能 相似 ,不 过 返回 的 指针 
类 型 为 void 类 型 。 
举例 ;参见 函数 mxIsFinite 的 范例 程序 。 


36, mxGetInf 


功 ”能 :获得 无 穷 大 的 值 。 
语 法 :#include ”mattrix,. hy 
Gouble ImxGetInf(Cvoid ) ; 
说 ” 明 : 通 过 函数 mxGetInf 用 户 可 以 获得 MATLAB 内 部 变量 inf 的 值 、inf 为 一 个 
常量 ,是 IEEE 所 确定 的 用 于 代表 正 无 穷 大 的 符号 。 在 一 定 的 系统 中 ,inf 的 
值 是 确定 的 ,用 户 不 能 进行 更 改 。 在 执行 下 列 操作 时 ,系统 将 返回 inf 
。 被 0 除 ; 
。 数值 滋 出 。 
举例 :程序 mxgetinf.c 为 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 


MATLAB 根 目 录 NEXTERNNEXAMPLESNMXN 
中 , 它 演示 了 函数 mxGetInf 的 使 用 ,其 源 代 码 如 下 : 


/# 头 文 件 包 含 * 7/ 
划 include <limits,h>> 
#include "tnex. hy 
/# 人 口 点 函数 * / 
void 
mexFunetionk int nlhs，tnxArray * plhs[]，int nrhs，const ImXxArray *# prhsi]》 
{ 
int 1，D+ 
double x PT，* Pi 
doubte inf， nanji 


/* 检查 输 人 参数 和 输出 参数 的 个 数 * / 
让 Cnrhsg 上 一 1) 
{ 
texErrMsgTxt(*One input argument required->”)3 
} 
计 (hihs 之 1》 
《 
imexErrMasgTxtCzToo many output argutnents, "7 


} 


/* 检查 输入 参数 的 类 型 * / 
证 (】 mxIsDouble(prhs[0》 |‖ mxIsCoemplex(prhs[0])》 
{ 


mexErrMsgTxt (?Input argurment mmust be cf rype real double，" 7 


} 


"150 -。 MATLAB 应 用 程序 接口 用 户 指 南 








/+x 复制 输 人 参数 */ 
plhs[0] 王 mxDupiicateAxtray(Prhs[0])+ 


pr 一 ImxGetPrCplhs[0])+ 

1 一 mxGetPi(CplhsL0])+ 

n 一 mxGetNumberOfElements(plhst0]); 
inf 一 mxGetInfk >; 

nan 一 mxXCetNaN( ); 


7/x 蔡 换 操作 * / 
forti 一 0 i < nri 十 十 ) 
{ 
这 《pr[i 三 = 0) 
{ 
pr[ 中 nan 
} 
else 让 ( pr[Li]= INT _MAX) 
{ 
px[ 记 一 inf 
} 
else 这 (prLi]< 一 INT _LMIN》 
《 
Pr[i 让 一 -Kinf); 
} 


} 
37. mxCetIr 


功 ”能 ,获得 稀 琉 矩阵 的 ir 数组 ， 
语 ”法 :#include ”matrix. hy” 
int x InxXGetIr(const ImXxAtrray #atrray ptr) 
说 “” 明 :通过 函数 mxGetIr, 用 户 可 以 得 到 稀 斑 矩阵 的 ir 数组 ， 其 输入 参数 为 一 个 指 
向 稀 朴 矩阵 的 阵列 指针 array _ptr。 如 果 函 数 执行 成 功 , 本 数 将 返回 一 个 指 
向 ir 数组 第 一 个 元 素 的 整 型 指针 。ir 数组 元 素 的 个 数 为 稀 朴 矩阵 中 能 够 存 
放 最 多 非 零 元 素 的 个 数 , 即 nzmax, 并 且 ir 数组 中 的 每 一 个 元 素 顺序 地 代表 
了 稀 朴 矩阵 中 非 零 元 素 在 稀疏 矩阵 中 的 行 数 。 如 果 函 数 执行 失败 ,将 返回 一 
个 空 指针 NULL。 一 般 导 致 失败 的 原因 主要 有 两 点 : 
。array _pbtr 所 指向 的 阵列 不 是 一 个 稀 巩 和 矩阵; 
。array _ptr 为 NULL, 这 主要 是 由 于 前 面 调 用 天数 mxCreateSparse 
失败 导致 。 
举例 ;参见 mxClassID 的 范例 程序 explore' c。 
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38, ImxGCetc 


功 能 :获得 稀 朴 矩阵 的 jc 数组 。 

语 法 :#incluqe "matrix.h” 
int x#x mmXGetJc(Keconst imXArray array _Pptr)j 

说 ” 明 , 通 过 函数 mxGetJc, 用 户 可 以 得 到 稀 殉 各 阵 的 jc 数组 ,其 输 人 参数 为 一 个 指 
向 稀疏 矩阵 的 阵列 指针 array _ptr。 如 果 函 数 执行 成 功 , 函数 将 返回 一 个 指 
向 je 数组 第 一 个 元 素 的 整 型 指针 。 jc 数组 的 长 度 为 n 十 1,n 为 稀疏 矩阵 的 列 
数 。 

举例 ,参见 mxClassID 的 范例 程序 explore. ec。 


39. mxGetM 


功 能 :获得 阵列 的 行 数 。 

语 法 :#include ”matrix. hy 
int mxGetM (const mxXAtrray # array _Ptt75 

说 “ 明 ; 通 过 函数 mxGetM, 用 户 可 以 获得 由 输 人 参数 array _ptr 指定 的 阵列 的 行 
数 ,而 不 需要 考虑 阵列 的 实际 维 数 。 

举例 :参见 3.2.1 节 范 例 程序 。 


40. mxGetN 


功 能 :获得 阵列 的 列 数 。 

语 法 :#include ”matrix.hy 
int mxGetN (const tmxArray xarray _Ptr7; 

说 “ 明 : 通 过 函数 mxGetN ,用 户 可 以 获得 由 输 和 人 参数 array _ptr 指定 的 阵列 的 列 
数 ,而 不 需要 考虑 阵列 的 实际 维 数 。 

举例: 参见 3. 2.1 节 范 例 程序 。 


41, ImxGetName 


功能 ,获得 阵列 的 名 字 。 

证 法 :#include "matrix. hy 
const char * mxGetName(const mxArray 关 array _Ptr)3 

说 ” 明 ; 通 过 函数 mxGetName, 用 户 可 以 获得 由 输 人 参数 array _ Pt 指定 的 阵列 的 
名 字 , 如 果 函 数 执行 成 功 ,函数 将 返回 一 个 指向 以 NULL 字符 结尾 的 C 详 言 
字符 审 的 指针 。 该 字符 串 的 长 度 是 固定 的 ,为 mxMAXNAMTI ,而 实际 的 阵 
列 名 字 的 长 度 则 由 空 字 符 NULL 来 标识 。 常 量 mxMAXNAM 是 在 头 文件 
mxArray.h 中 定义 。 如 果 阵 列 没有 名 字 , 则 返回 的 指针 指向 的 字符 叫 的 第 一 
个 字符 为 \0。 

举例 ,参见 mxCiassID 的 范例 程序 explore. c。 
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42. mxGetNaN 


功 能 :获得 NaN (not-a-number) 的 值 。 
语 法 :#include "matrix. hy 
double mxGetNaN(tvoid); 
说 ” 明 : 通 过 函数 mxGetNaN ,用 户 可 以 获得 系统 内 部 变量 NaN 的 值 。NaN 为 一 个 
常量, 是 IEEE 所 确定 的 用 于 代表 not-a-number 的 符号 。 在 执行 下 列 操作 
时 多 系统 将 返回 NaN 
。0.0 /0.0 
。 inf - inf 


举例, 参见 函数 mxGetInf 的 范例 程序 mxgetinf.c。 
43. mxGetNupmberOfDimensions 


功 能 ,获得 阵列 的 维 数 。 

语 法 :#include "matrix. h” 
int mxGetNutmberOftDimensions (const mxAtrray #arTay _Ptr75 

说 “了 明 , 通 过 函数 mxGetNumberOfDimensions ,用 户 可 以 获得 由 输入 参数 array _ 
ptr 指定 的 阵列 的 维 数 。 郴 数 返回 的 最 小 值 为 2。 如 果 用 户 希 望 获得 阵列 每 一 
维 的 大 小 ,可 以 使 用 冰 数 mxGetDimensions 。 

举例 ,参见 mxClassID 的 范例 程序 explore, c。 


44. ImxGetNumberOfElements 


功 ”能 :获得 阵列 中 元 素 的 个 数 。 

语 法 ,#include ”matrix- h” 
int mxGetNumberOfElements (const ImxArray #array _ptr)5 

说 “ 明 , 通 过 函数 mxGetNumberOfEiements ,用 户 可 以 获得 由 输入 参数 array _ Pt 
指定 的 阵列 元 素 的 个 数 。 与 函数 mxGetClassID 结合 使 用 , 可 以 得 到 有 关 阵 
列 的 高 级 信息 。 

举例, 参见 mxClassID 的 范例 程序 explore. c。 


45. mxGetNumberODfFields 


功能 ,获得 结构 体 阵 列 的 域 的 数量 。 
语 ”法 :#include ”matrix.hy 
int mxGetNutmberOfFields (const mxArray xarray _ptr)i 
说 “了 明 , 通 过 函数 mxGetNumberOfFields, 用 户 可 以 获得 由 输入 参数 array _- Ptr 指 
定 的 结构 体 阵列 的 域 的 数量 。 一 旦 用 户 确 切 地 知道 了 该 值 ,就 可 以 通过 一 个 
循环 过 程 来 访问 结构 体 阵列 的 所 有 的 域 。 
举 例 ， 参见 mxClassJD 的 范例 程序 explore, c。 


46 
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.IIXKCetNzmax 


能 :获得 稀 朴 矩阵 的 三 个 数组 Pr、pi 和 ir 的 元 素 个 数 。 


法 ;并 include ”matrix. hy 


int mxGetNzrmaxkKconst mmXArray x<atray _ ptr75 

明 : 通 过 函数 mxGetNzmax, 用 户 可 以 获得 稀疏 和 拖 阵 中 的 nzmax 域 的 值 ,稀疏 矩 
阵 通 过 该 值 来 确定 矩阵 中 可 以 包含 的 最 大 的 非 零 元 素 的 数量 ,同时 该 值 也 确 
定 了 稀 琉 矩阵 的 三 个 数组 pr.pi 和 ir 的 元 素 个 数 。 

例 , 程 序 mxgetnzmax,c 为 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 


MATLAB 根 目 录 \EXTERNNEXAMPLESNMXN 


中 9 它 演示 于 郴 数 mxCGetNzmaXx 的 使 用 9 其 源 代 码 如 下 2 
/* 头 文 件 包 含 * 7 


##include "mex, hy 


/+ 人 口 点 函数 * / 


void 


mexFunction{int nlhs ,mxArray # plhs[],int nrhs;const mxArray # prhs[]) 


{ 


int nzmax，nnz，colutmmns1 


/+ 检查 输 人 参数 和 输出 参数 的 个 数 * / 
这 nths ! 一 1) 
{ 
texErrMsgTxtkrOne input argument required.”)5 
} 
这 Cnlhs > 1》 


区 


mexErrMsgTxtk*Too many output arguments-”)1 


} 


计 《1 mxIsSparse 人 (prhs[0])) 
《 
ImexErrMsgTxtC*Input argument must be a spParse STTay.“)3 
} 
nzmax 一 mxGetNzmax(prhs[0])) 
coluimns 一 mxGetNKprhs[0])， 


nnz 一 #+ (mxGetJc(prhs[0]) 十 columns)) 


mexPrintf(rContaing 由 d nonzero elermnents, nn ，fnz7》; 


mexPrintfKwCan store up to 多 d nonzero elements, ny ，nztnax)# 
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47. IDxCGetPi 


功 能 :获得 阵列 的 虚数 部 分 的 数据 指针 。 

语 法 :#include "tmatrix. hy 
double x* mxGetPi(const mxXArray x array _ptr)3 

说 明 , 通 过 函数 mxGetPi, 用 户 可 以 得 到 由 输 人 参数 array _ptr 指向 的 阵列 的 虚数 
部 分 的 数据 指针 。 如 果 函 数 执行 成 功 , 将 返回 一 个 双 精 度 类 型 的 指向 包含 虚 
数 部 分 数据 的 数组 的 指针 ,否则 返回 NULL。 

举例 :参见 mxClassID 的 范例 程序 explore. c。 


48. mxCGetPr 


功 ”能 ,获得 阵列 的 实数 部 分 的 数据 指针 。 

语 法 :#include ”matrix, hy 
double x mxGetPrkconst mxArray #<array _pPtr7; 

说 ” 明 : 通 过 函数 mxGetPr, 用 户 可 以 得 到 由 输入 人 参数 array _ptr 指向 的 阵列 的 实数 
部 分 的 数据 指针 。 如 果 函 数 执行 成 功 ,将 返回 一 个 双 精 度 类 型 的 指向 包含 实 
数 部 分 数据 的 数组 的 指针 , 否则 返回 NULL。 

举例 :参见 mxClassID 的 范例 程序 explore. c。 


49. InxGetScalar 


功能 :获得 某 个 阵列 的 实数 部 分 的 第 一 个 数据 。 

语 法 :#include "mattix. h” 
double mxGetScealar(const ImmxArray #array ptr); 

说 ” 明 : 通 过 函数 mxGetSealar ,用 户 可 以 获得 某 个 阵列 的 实数 部 分 的 第 一 个 数据 ， 
其 输入 参数 为 一 个 指向 某 个 阵列 的 指针 。 函 数 的 返回 值 为 一 个 双 精 度 类 型 
的 数据 ,如 果 指 针 array _ptr 指向 的 阵列 的 类 型 不 为 双 精 度 类 型 ,而 为 其 他 
类 型 ,函数 会 进行 自动 转换 。 如 果 指 针 array _ptr 指向 的 阵列 为 单元 阵列 或 
者 结构 体 阵列 ,函数 的 返回 值 为 0. 0: 如 果 指 针 array _ ptr 指向 一 个 稀 朴 矩 
阵 , 则 函数 将 返回 稀 朴 矩阵 中 第 一 个 非 零 元 素 的 值 ; 如 果 指 针 array _ptr 指 
向 一 个 空 阵列 , 则 返回 值 为 一 个 不 定 值 。 一 般 函 数 mxGetScalar 的 使 用 对 象 
为 仅 包 含 一 个 实数 数据 的 阵列 ,对 于 含有 多 个 元 素 的 阵列 或 者 多 维 阵 列 ,天 
数 永 远 返 回 阵列 实数 部 分 第 一 个 数据 的 内 容 。 

举例 :参见 函数 mexGet 的 范例 程序 mexget. c。 


50. mxGetString 


功 ”能 ;获得 字符 串 阵列 的 内 容 。 
语 ”法 :#include ”matrix, h” 
int mxCGetString(const mxAArray #aITay _PtTy char #*buf，int buflen)， 


说 “了 明 , 通 过 函数 mxGetString ,用 户 可 以 获得 字符 串 阵 列 所 包含 的 字符 串 。 函 数 的 
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三 个 输 和 人 参数 的 含义 分 别 如 下 ， 
”array _ptr 为 一 个 指向 字符 串 类 型 阵列 的 指针 ， 
”Pbnutf 为 存放 读 取 的 字符 串 的 缓存 的 起 始 指针 ; 


。 bufien 为 存放 字符 串 的 钥 存 的 长 度 。 
如 果 函 数 成 功 ,返回 值 为 0, 否则 为 1。 一 般 导 致 郴 数 执行 失败 的 原因 主要 有 
以 下 几 点 : 


。 attray _ptr 所 指向 的 阵列 不 是 字符 昌 类 型 的 阵列 ; 
*， buflen 所 确定 的 缓存 的 长 度 小 于 字符 串 阵 列 包含 的 字符 串 的 长 度 ， 
这 种 情况 下 , 函数 将 返回 1 ,并 且 将 字符 串 截 断 。 
缓存 buf 中 的 字符 昌 为 一 个 C 语言 风格 的 字符 串 , 其 最 大 长 度 为 buflen-1， 
并 且 以 空 字符 NULL 标识 结束 。 如 果 参 数 array _ptr 指向 的 字符 串 阵 列 包 
含 若 于 行 ,函数 在 执行 时 ,会 按 列 优先 的 顺序 将 它们 一 并 读 出 ,并 且 连 接 成 为 
一 个 长 的 字符 昌 。 
举 例 :参见 mxClassID 的 范例 程序 expilore. c。 


51. mxIsCell 


功 能 :判断 阵列 是 否 为 单元 阵列 。 

语 法 :#inctude ”matrix-bhy" 
bool mxjJsCell(const mxXArray x array _ptr) 

说 ” 明 : 通 过 函数 mxIsCell, 用 户 可 以 判断 由 输入 人 参数 array _pttr 所 指向 的 阵列 是 否 
为 单元 阵列 。 如 果 返 回 值 为 1, 则 说 明 array _ptr 所 指向 的 阵列 为 单元 阵列 ; 
如 果 返 回 值 为 0, 则 说 明 array _ptr 所 指向 的 妖 列 不 是 单元 阵列 。 此 外 函数 
mxjsCell 的 功能 还 可 以 通过 下 面 的 语句 来 完成 ， 


mxGetClassID(artray _ptr》 一 一 InxCELL CLASS 
关于 函数 mxGetClassID 和 常量 mxCELL _CLASS 的 说 明 , 请 读者 参阅 前 
面 的 内 容 ， 


举例, 参见 3. 2.4 节 的 范例 程序 。 
52. mxISsSChar 


功能 :判断 阵列 是 否 为 字符 串 类 型 的 阵列 。 

语 法 ;,#include "matrix. hy” 
bool mxIsChar(const mxXArray # array _Pptr)8 

说 “” 明 ;通过 函数 mxIsChar, 用 户 可 以 判断 由 输入 参数 array _ptr 所 指向 的 阵列 是 
否 为 字符 串 类 型 的 阵列 。 如 果 返 回 值 为 1, 则 说 明 array _ptr 所 指向 的 阵列 
为 字符 串 类 型 的 阵列 ; 如果 返 回 值 为 0, 则 说 明 array _ ptr 所 指向 的 阵列 不 
是 字符 冲 类 型 的 阵列 。 此 外 函数 mxlsChar 的 功能 还 可 以 通过 下 面 的 语句 来 
完成 


mxCGetClassID(array _pttr)》 一 一 InxXCHAR _CLASS 
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关于 函数 mxGetClassID 和 常量 mxCHAR CLASS 的 说 明 , 请 读者 人 参阅 前 
面 的 内 容 。 
举 例 : 参 网 3.2. 1 节 的 范例 程序 。 


53. mxIsClass 


功 能 :判断 阵列 是 否 为 指定 类 型 的 阵列 。 
语 法 ;#inelude ”matrix. hn 
booil mxIsClass (const mx 太 rray # array _Bptr，const char #mnatmey); 
说 ” 明 :通过 函数 mxIsClass ,用户 可 以 判断 一 个 阵列 是 否 为 指定 类 型 的 阵列 。 函 数 
的 两 个 输 人 参数 的 含义 分 别 如 下 ， 
，array _ptt 为 指向 某 个 阵列 的 指针 ; 
。，name 为 一 个 字符 串 变 量 , 用 以 确定 阵列 的 类 型 , 表 3.2 为 各 字符 串 
































常量 与 类 型 常量 的 对 照 表 。 
开 3.2 常量 对 照 表 
ET 类 型 这 重 
ndoubley tmxDOUBLE _CLASS 
9 S5BTSe8 tmxSPARSRE _CLASS 
?eellr mxCRELL _CLASS 
wChary CE tmxCFHAR CLASS 
三 watruets mxSTRUCT _CLASS 
imgle" mxSINGLE _CLASS 
?了 imt 客 > mxINT8 _CLASS 
unit8” mxUINT8 _CLASS 
了 ETmT3 mxINT16_CLASS 
?uint16? mxUINTI6 _CLASS 
7 了 int32m mxINT32 _CLASS 
了 uint32Y mxUINT32 _CLASS 
<class _name>>( 自 定义 ) mxDBJBECT _CLASS 
Pdnknown mxUNKNOWN _CLASS 


如 果 函 孝 返 回 值 为 TRUE, 则 说 明 阵 列 的 确 为 指定 的 字符 串 。 
举例; 程序 tmxisclass.c 为 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 


MATLAB 根 目 录 NEXTERNNEXAMPLESNMXN 
中 , 它 演示 了 函数 mxisClass 的 使 用 ,其 源 代 码 如 下 : 
1/# 涉 文 件 包 含 * 7/ 


#include "Paex, hz 


/# 人 口 点 通 数 * / 
yoid 
mexFunction (int nlhs ,mxArray * plhs[],int nrhsconst mxArray # prhs[]) 
{ 
7 变量 说 明 * / 


mx 和 Array #+ Dutput，#Iinput; 
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一 


int hutmber _of _fields, field _nutn; 


/* 检查 输入 参数 和 输出 参数 的 变量 * / 
计 (nrhs ! 一 0) 


mexErrMsgTxtk"No input argutment required.”")5 


} 
ifCnlhs > 1) 
《 
ImexErrMsgTxtt"Too many Output arguments.”)71 
} 


input 一 mxCreateStting(ysinK3#X)w71i 


7 使 用 函数 mexCallMATLAB 调用 MATLAE 俞 令 */ 
tmexCallMATLAB(CL,&outbhut，1，&jinputyinlinew 1 
mxDestroyArray(input)# 


/xx 判断 阵列 的 类 型 * / 
让 《」 tnxJIsClassKoutput，Pinline ) ) 
mmXDestroyATIayfKoutput》; 
ImexErrMSsgTxt(y"Failed to create an Object of class inline 4 


number _of _fields 一 tnxGetNumberOfFielqs (output); 
inexPrintf(2Tbis object contains tbe following fields :rw)+ 
mexPrintf (rnatneNtNtclassNtNtvalueNp ); 


InexPrintf(w------------ 一 -一 -~~-------- 一 ----- rr)1 

/7*+ 获得 城 名 * 7/ 

for field _num 一 0y fietd _num<cnumber _of _ fields; field _num 十 十 ) 
{ 


1mXAYray 关 Pas 

mexPrintft" sr ，ImxGetFieldNatneByNumberkoutput， 
field _nutm》)3 

ba 一 InxGetFieldByNutmbertoutput，0，field _nutmD)# 

mexPrintf(rNtNt %sNtNt ，mxGetClassNatmetpa))# 

mexCallMATLAB(0O，NULL，1，&pa，"dispy )5 


mxDesttoy 和 rray[(output7)5 


} 


54. mxIsComPplex 
功能 ,判断 阵列 是 否 为 复数 类 型 。 
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语 法 : 划 include "mattix.hn 
boocl mxIsComPplextconst mxArray #aTray _ btr) 

说 ”了 明 ,通过 函数 mxIsComplex, 用 户 可 以 判断 由 输入 参数 array _ptr 所 指向 的 阵列 
是 耕 为 复数 类 型 的 阵列 。 如 果 返 回 值 为 1, 则 说 明 array _ptr 所 指向 的 阵列 
为 复数 类 型 的 阵列 :如果 返 回 值 为 0, 则 说 明 array _ ptr 所 指向 的 阵列 不 是 
复数 类 型 的 阵列 。 

举 例 , 人 参见 函数 mxIsLogical 的 范例 程序 mxislogical, c。 


55. mxIsDouhble 


功 能 :判断 阵列 是 否 为 双 精 度 类 型 。 

语 法 :#ihclude "matrix hy 
bool mxJsDouble(const mxArray # array _Ptr)5 

说 ”了 明 ; 通 过 函数 mxIsDouble, 用 户 可 以 判断 由 输 和 人 参数 array _ptr 所 指向 的 阵列 
是 否 为 双 精 度 类 型 的 阵列 。 如 果 返 回 值 为 1, 则 说 明 array _ ptr 所 指向 的 阵 
列 为 双 精 度 类 型 的 阵列 ; 如果 返 回 值 为 0, 则 说 明 array _ ptr 所 指向 的 阵列 
不 是 双 精 度 类 型 的 阵列 。 

举 例 : 参 见 3.2. 3 节 的 范例 程序 ， 


56. mxJIsEmpty 


功 能 :判断 阵列 是 否 为 空 。 

语 法 ,#include ”matrix .hy 
bool mxIsEmpty(const mxArray # array _ptr)3 

说 ” 明 , 通 过 函数 mxJsEmpty， 用 户 可 以 判断 由 输入 参数 array _ptr 所 指向 的 阵列 
是 否 为 空 。 如 果 返 回 值 为 1, 则 说 明 array _ptr 所 指向 的 阵列 为 空 ;如 果 返 回 
值 为 0, 则 说 明 array _ptr 所 指向 的 阵列 为 非 空 。 

举例 :参见 函数 mxIsLogical 的 范例 程序 mxislogical. ce。 


57,. mnxJsFinite 


功能 ;判断 一 个 值 是 否 为 有 限 值 。 

语 法, #include ”matrix.hw 
bool mxIsFinite (double value) 

说 ” 明 : 通 过 函数 mxIsFinite, 用户 可 以 判断 由 输 人 参数 value 所 代表 的 双 精 度 类 型 
的 浮 点 数 是 否 为 inf 或 者 NaN。 如 果 函 数 的 返回 值 为 1 ,说明 输入 的 参数 为 
有 限 值 ,不 为 inf 和 NaNs; 如 果 返 回 0, 则 说 明 输 入 参数 必 为 inf 和 NaN 两 者 
之 一 。 

举例 ;程序 mxisfinite.ec 为 MATLAB 提供 的 一 个 范例 程序 ,存放 在 月 录 

MATLAB 根 旧 录 NEXTERNNEXAMPLESNMXAN 


中 , 它 演示 了 函数 mxIsFinite 的 使 用 ,其 源 代码 如 下 : 
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7x* 头 文件 包 售 < 7/ 
#include <limits,h 盖 
砷 inelude ”timex, hn 


/* dtoi32 为 一 个 子 函 数 ,其 功能 为 在 判断 输 人 参数 d 是 否 为 inf 或 NaN 的 前 握 上 ， 


进行 不 同 的 处 理 * / 


static int dtoi32(double d) 


{ 


} 


int ji 一 0; 


这 KmxIsFinite(qd>) 
《 
/+ 如 果 d 为 有 限 值 * / 
iftd < (deuble)INT MAX 8&&d > (double)INT _MIN) 
{ 
Ax* 如 果 寻 可 以 用 32 位 整数 表示 , 刚 将 d 转换 为 32 位 整 型 数 * / 


i 一 (int) ds 


/# 如 果 d 不 可 坟 用 32 位 整数 表示 ,判断 d 是 过 大 还 是 过 小 * 7 
i=((d>0)3?INT_MAX :INT_MIN)， 


} 

else 在 (tmxIsJInf(d)) 

{ 
/+# 如 果 d 为 无 穷 大 ,判断 由 是 过 大 还 是 过 小 * 7 
i=((d>0)?INT_MAX:INT_MIN)， 

} 

eise 计 (mxJsNaN(d)) 


{ 
/x* 如 果 d 为 NaN, 将 d 设置 为 稚 * 7/ 
mex 有 arnMsgTxtCrdtoi32: NaN detected， Translating to 0. SNny 7# 
1 一 0 

} 

retUrR i; 


/# 人 口 点 函数 * 7 


void mexFunetion( int nlths，mxArray x+ bihs[]， 


int nrhs ，const mxArray * prhs[]) 


/* 变量 声明 * 7/ 
int ij， ny; 
double * 上 pr，* pis 
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int # pri32，:#pii324 


/* 检查 输 人 输出 参数 的 个 数 * / 
这 (nrhs | 王 1》 
《 
tnexErrMsgTxtkroOne input argument Tequired. 了》 
} 
inlhs >> jh) 
{ 


InexXErrMsgTxtC2Tooc mmany Output arguments-”)3 


7x 检查 输入 参数 的 类 型 * / 
证 (! 《mxIsDouble(prhs[0]))》 
{ 


mexErrMsgTxt("Input argutnent must be of type double.”)) 


/+ 检查 输入 参数 是 否 为 空 * / 
证 (mxIsEtmpty(ptrhs[0])) 
{ 
mex 妈 arnMsgTxt("Input argutment is ermnpty\nr 5 


Pr 一 mxGetPr(prhs[0])， 
Pi 一 tmnxGetPi(prhs[0])， 
n 一 mxGetNumberOfEIiements (prhs[0]) 


/+ 创建 mxINT32 类 型 的 数值 阵列 * / 
plhs[0] = InxCreateNuineric 和 Array( 
mxGetNumberOfDimensions (ptrhs[L0])， 
imxGetDimensions (prhs[LO])， 
mxINT32 _CLASS， 
(mxIsComplex(prhs[L0]) ? mxCOMPLEX : mxREAL77)+ 
pri32 一 mxGetData(plhs[0]); 
pi32 =- mxGetImagData(plhs[0])# 


/* 将 输入 阵列 的 实数 部 分 的 每 一 个 元 素 转 化 为 int32 * 7 
forti 一 0x i < 忆 也 i 十 十 ) 
{《 
pri32[ 英 一 dtoi32(pPr[]7; 
} 


/x* 如 果 输 人 阵列 存在 虚数 部 分 , 则 将 虚 部 数据 也 转化 为 int32 * / 
主 (pi32 ! = NULL》 
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boocl empty _image _data 一 true# 
forti=0ri< nri 十 十 ) 
{ 
pii32[ 这 = dtei32(pi[i); 
这 (Pii320] 1 = 0) 
{ 
empty _itmmage _ data 一 falsel 
}》 
} 


让 《empty _itmmage _ data) 

{ 
TYRXFree (pii32)4 
mxSetImagData(Plhs[0]，NULL)， 


} 
58. ImnxIsfromGlobalWSs 


功 ”能 ;判断 阵列 是 否 是 从 MATLAB 的 全 局 工作 空间 中 获得 。 

语 法 :#include ”matrix.h2 
bool mxIsFromGlobalWS(Cconst mxArray #array _ Ptr) 

说 ”了 明 , 通 过 函数 mxlsFromGlobalWSs, 用 户 可 以 判断 由 输 人 参数 array _ptr 所 指 疝 
的 阵列 是 否 为 从 MATLAB 的 全 局 工作 空间 中 获得 。 如 果 函 数 的 返回 值 为 
1 ,说 明 输入 参数 array _ptr 所 指向 的 阵列 是 从 MATLAB 的 全 局 工作 空间 
中 获得 ,否则 返回 0。 

举例 ,参见 5.4. 1 节 函 数 matGetArrayHeader 的 范例 程序 。 


59. mxIsFull 


说 “ 明 ,; 该 函数 为 一 个 过 时 的 函数 ,MATLAB V5.X 版 本 不 对 其 提供 支持 如果 需要 

使 用 已 经 存在 对 该 函数 调用 的 MEX 文件 ,而 不 希望 对 源 程 序 进行 修改 , 那 
从 在 对 这 类 MEX 文件 进行 编译 时 , 必须 使 用 mex 命令 参数 -V4, 声 明 编 译 
为 与 MATLAB V4, 0 版 本 兼容 的 MEX 文件 。 在 MATLAB V5.X 版 本 的 
MEX 文件 中 ,用 户 可 以 使 用 语句 

这 (} mxJsSparse(prhs[0])) 
来 代替 语句 

许 CmxIsFullCprhs[0])>) 


完成 的 功能 。 
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60. mxIsJnf 


功 能 ;判断 一 个 双 精 度 类 型 的 数值 是 否 为 inf。 

语 法 ;#include "matrix, hy 
bool mxjlsInf (double value ) ; 

说 ” 明 : 通 过 函数 mxIsInf, 用 户 可 以 判断 由 输入 参数 value 所 代表 的 双 精 度 类 型 的 
数值 是 否 为 inf 。 如 果 函 数 返 回 值 为 真 , 说 明 输 入 参数 value 所 代表 的 双 精 度 
类 型 的 数值 为 inf ,否则 函数 返回 0。 

举例 ;参见 本 数 mxIsFinite 的 范例 程序 mxisfinite.c。 


61. mxJsInt8 


功能 ,判断 阵列 的 数据 类 型 是 否 为 8 位 的 整数 类 型 。 

语 法 ,#include "matrix. hz 
bool mxIsJnt8(const Imxrray #array _pPtr); 

说 ”了 明 : 通 过 函数 mxIslnt8, 用 户 可 以 判断 由 输 和 参数 array _ptr 所 指向 的 阵列 的 数 
据 类 型 是 否 为 8 位 的 整数 类 型 。 如 果 返 回 值 为 1, 则 说 明 array _ptr 所 指向 
的 阵列 为 8 位 的 整数 类 型 ;如 果 返 回 值 为 0, 则 说 明 array _ptr 所 指向 的 阵 
列 不 是 8 位 的 整数 类 型 。 此 外 本 数 mxlsInt8 的 功能 还 可 以 通过 下 面 的 语句 
来 完成 ， 

mxGetClassIDKarray _ptr) 一 一 mxINT8 CLASS 


关于 函数 mxGetClassID 和 常量 mxINT8 _CLASS 的 说 明 , 请 读者 参阅 前 面 
的 内 容 。 


62, mxIsInt16 


功能 :判断 阵列 的 数据 类 型 是 否 为 16 位 的 整数 类 型 。 

语 法 :#include ”matrix. hy 
bool mxIsInt16(const mxArray #artay _Pptr) 

说 “” 明 ;通过 函数 mxlslnt16, 用 户 可 以 判断 由 输入 参数 array _ ptr 所 指向 的 阵列 的 
数据 类 型 是 否 为 16 位 的 整数 类 型 。 如果 返回 值 为 1, 则 说 明 array .ptr 所 指 
向 的 阵列 为 16 位 的 整数 类 型 ;如 果 返 回 值 为 0, 则 说 明 array _ptr 所 指向 的 
阵列 不 是 16 位 的 整数 类 型 。 此 外 画 数 mxIsInt16 的 功能 还 可 以 通过 下 面 的 
语句 来 完成 ， 


mxGetClassID(array _ptr) 一 一 mxINT16 _CLASS 


关于 函数 mxGetClassID 和 常量 mxINT16 _CLASS 的 说 明 , 请 读者 参阅 前 
面 的 内 容 。 


63. mxJsInt32 


功能 :判断 阵列 的 数据 类 型 是 否 为 32 位 的 整数 类 型 。 


第 3 章 C 请 言 MEX 文件 的 编写 。 163 。 


语 法 ,#include "matrix. hyw 
bool mxIsInt32(const mxArray #atray ptr)? 

说 ” 明 ; 通 过 函数 mxIsInt32, 用 户 可 以 判断 由 输 人 参数 array _ptr 所 指向 的 阵列 的 
数据 类 型 是 否 为 32 位 的 整数 类 型 。 如 果 返 回 值 为 1, 则 说 明 array _ptr 所 指 
向 的 阵列 为 32 位 的 整数 类 型 ;如 果 返 回 值 为 0, 则 说 明 array _ptr 所 指向 的 
阵列 不 是 32 位 的 整数 类 型 。 此 外 本 数 mxIsInt32 的 功能 还 可 以 通过 下 面 的 
语句 来 完成 


mxGetClassID(atrray _ptr) 一 一 mxINT32 _CLASS 


关于 本 数 mxGetClassID 和 常量 mxINT32 CLASS 的 说 明 , 请 读者 参阅 前 
面 的 内 容 。 


64. mxIsLogical 


功 能 :判断 阵列 的 数据 类 型 是 和 为 逻辑 类 型 ， 

语 法 ;#include ”matrix. hy 
bool mxlsLeogical(const mxArray #array _ptr)3 

说 ” 明 , 通 过 函数 mxIsLogical, 用 户 可 以 判断 由 输入 参数 array _ Ptr 所 指向 的 阵列 
的 数据 类 型 是 否 为 逐 辑 类 型 。 如 果 函 数 返 回 1 ,说 明 array _ ptr 所 指向 的 阵 
列 的 数据 类 型 为 到 辑 类 型 ,这 时 阵列 中 所 有 的 非 零 元 素 将 代表 逻辑 真 ,而 零 
元 素 代表 勾 辑 假 ; 如 果 本 数 返回 0, 则 说 明 array _ptr 所 指向 的 阵列 的 数据 
类 型 不 为 逻辑 类 型 。 

举例 ,程序 mxislogical.c 为 MATLAEB 提供 的 一 个 范例 程序 ,存放 在 目录 


MATLAB 根 目 录 N\EXTERNNEXAMPLESNMXN 
中 , 它 演示 了 函数 mxIsLogical 的 使 用 ,其 源 代码 如 下 : 
/x# 头 文 件 包含 *7 


并 include "mex,hbhy” 


/xr 人 大口 点 函数 */ 
void 
mexFunetion (int nlhs ,mxArray * pths[],int nrhsyconst mxAtrray # prhs[]) 
{ 
/* 变量 声明 * 7/ 
加 Array 上 # BITIay7 _Pttt 
char 斗 yatiable# 


/x 检查 输入 输出 参数 的 个 数 * / 
让 《nrhs ! = 一 1) 
{ 
mexErrMsgTxt(*One 让 put argument required.”)1? 
} 
让 nlhs >> 1) 
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ImexErrMasgTxtk"Too many Output arguUrments ”) 


/x* 检查 输 和 人 变量 是 否 为 字符 串 类 型 * / 
主 《} (maxJsChar(PrhsL0]))7) 
{ 


mexErrMsgTxt"Input must be of type string, nm")5 


/* 获取 输入 参数 的 内 容 * / 
vatiable 一 mxAryayToString(prhs[0]); 
array _ptr 一 〈ImxArray x )mexGetAxrTayPtr(variable ，*caller” )5$ 
让 (array _、ptt = 一 一 NUJI.L》 
{ 
ImexErrMsgTxtCrCould not get variable. Na" 7 


if (tmexJsGlobal (array _ptr)) 
{ 

ImexErrMsgTxt("The variable you reqlested is global, ny7)3 
} 


mexPrintf(” 9%s is not a globajsnr variable》， 


这 (mxjaLogical(atrtray _ PtT)》 
{ 

ImxCliearLogicat(array _Ptz7r 
} 


else 


txSetIogicai(array _Ptr7y; 


} 
65. mxJsNaN 


功能 :判断 一 个 双 精 度 类 型 的 数值 是 否 为 not-a-number。 

语 ”法 :#include "matrix.hy 
boeol mxIsNaN (double value); 

说 ” 明 : 通 过 本 数 mxIsNaN ,用 户 可 以 判断 由 输入 值 为 参数 value 所 代表 的 双 精 度 类 
型 的 数值 是 否 为 not-a-number。 如 果 函 数 返 回 真 ， 说 明 输 入 参数 value 所 代 
表 的 双 精 度 类 型 的 数值 为 not-a-number， 否则 本 数 返回 0。 

举例 ;参见 函数 mxlsFinite 的 范例 程序 mxisfinite. c。 
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66,. mxIsNumeric 


功 能 :判断 阵列 是 否 为 数值 阵列 。 
语 法 :,#include ”matrix, hy 
bool mxIsNumeric (const ImxXArray %#%atrray _ptr); 
说 明 , 通 过 五 数 mxIsNumeric, 用 户 可 以 判断 由 输 人 参数 array _ptr 所 指向 的 阵列 
的 数据 类 型 是 否 为 数值 类 型 。 如 果 天 数 返回 1, 说 明 array _ptr 所 指向 的 阵 
列 的 数据 类 型 为 数值 类 型 :如 果 函 数 返回 0, 则 说 明 array _ ptr 所 指向 的 阵 
列 的 数据 类 型 不 为 数值 类 型 。 当 阵列 为 以 下 类 型 时 , 函数 将 返回 1 
"ImxDOUBLE CLASS 
mxDOUBLE _CLASS 
mxSPARSE _CLASS 
InxSINGLE _CLASS 
mxINT8 CLASS 
mxUINT8 _CLASS 
。 InxINT16 _CLASS 
mxUINT16 _CLASS 
。 InxINT32 _CLASS 
ImxUINT32 CLASS 
当 阵 列 为 以 下 类 型 时 , 函数 将 返回 0; 
*。 InxCELL CLASS 
，ImxCHAR CLASS 
mxOBJECT _CLASS 
。， InxSTRUCT _CLASS 
。，mxUNKNOWN _CLASS 
举例 :参见 3. 2.8 节 的 范例 程序 。 


和 


67. ImxIsSingle 


功能 :判断 阵列 的 数据 类 型 是 否 为 单 糖度 的 浮 点 类 型 。 

语 法 ,#include ”matrix. hy” 
boeocl mxIsSingle(const mxArray #array ptr); 

说 ” 明 , 和 通过 函数 mxlsSingle ,用户 可 以 判断 由 输 人 参数 array _ptr 所 指向 的 阵列 的 
数据 类 型 是 否 为 单 精度 的 浮 点 类 型 。 如 果 返 回 值 为 1, 则 说 明 array _ptr 所 
指向 的 阵列 为 单 精 度 的 浮 点 类 型 ;如 果 返 回 值 为 0, 则 说 明 array _ ptr 所 指 
向 的 阵列 不 是 单 精度 的 浮 点 类 型 。 此 外 函数 mxIsSingle 的 功能 还 可 以 通过 
下 面 的 语句 来 完成 ， 


mxGetClassJID(array ptr》 一 一 mxSINGLE CLASS 
关于 函数 mxGetClassID 和 常量 mxSINGLE _ CLASS 的 说 明 , 请 读者 参阅 
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前 面 的 内 容 。 


68. mxIsSparse 


功 能 :判断 阵列 是 否 为 稀 朴 阵列 。 

语 法 :#include ”matrix. hy 
boocl mxIsSparsekconst Imx 太 rray #% array _ ptr)f# 

说 ”上 明 ,通过 函数 mxlsSparse, 用 户 可 以 判断 由 输入 参数 array _ptr 所 指向 的 阵列 是 
否 为 稀 梳 阵列 。 如 果 返 回 值 为 1, 则 说 明 array _ptr 所 指向 的 阵列 为 稀 玻 阵 
列 : 如 果 返 回 值 为 0, 则 说 明 array _ptr 所 挡 向 的 阵列 不 是 稀 阵 列 。 

举例, 会见 3.2.7 节 的 范例 程序 。 


69. mxJIsString 


说 ” 明 : 该 函数 为 一 个 过 时 的 函 数 ,MATLAB V5.X 版 本 不 对 其 提供 支持 .如 果 需 要 
使 用 已 经 存在 对 该 函数 调用 的 MEX 文件 ,而 不 希望 对 源 程 序 进行 修改 , 那 
么 在 对 这 类 MEX 文件 进行 编译 时 ,必须 使 用 mex 命令 参数 -V4, 声 明 编 译 
为 与 MATLAB V4. 0 版 本 兼容 的 MEX 文件 。 


70, mxJIsStruct 


功 能 :判断 阵列 是 否 为 结构 体 阵 列 。 

语 法 ,#include "matrix, hn 
bool mxJsStruct(const mmXArray # array _ptr25 

说 ” 明 :通过 函数 mxIsStruct, 用 户 可 以 判断 由 输入 参数 array _ptr 所 指向 的 阵列 是 
否 为 结构 体 阵 列 。 如 果 返 回 值 为 1, 则 说 明 array _ptr 所 指向 的 阵列 为 结构 
体 阵 列 ; 如 果 返 回 值 为 0, 册 说 明 array _ptr 所 指向 的 阵列 不 是 结构 体 阵 列 。 

举例 ;参见 3.2, 3 节 的 范例 程序 。 


71. mxIlsUint8 


功 能 :判断 阵列 的 数据 类 型 是 否 为 8 位 的 无 符号 整数 类 型 。 

语 法 ,#include "matrix. hy 
bool mxlsUint8(const mxArray #array _ ptr7 

说 “” 明 :通过 函数 mxIsUint8, 用 户 可 以 判断 由 输入 参数 array _ ptr 所 指向 的 阵列 的 
数据 类 型 是 否 为 8 位 的 无 符号 整数 类 型 . 如 果 返 回 值 为 1, 则 说 明 array _ptr 
所 指向 的 阵列 为 8 位 的 无 符号 整数 类 型 ;如 果 返 回 值 为 0, 则 说 明 array _ ptr 
所 指向 的 阵列 不 是 8 位 的 无 符号 整数 类 型 。 此 外 函数 mxIsInt8 的 功能 还 可 
以 通过 下 面 的 语句 来 完成 ， 


mxGetClassJD(array _Ptr) 一 一 ImXUINT8 _CLASS 


关于 本 数 mxGetClassID 和 常量 mxUINT8 _CLASS 的 说 明 , 请 读者 参阅 前 
面 的 内 容 。 
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72. mxIsTUJint16 


功 能 ,判断 阵列 的 数据 类 型 是 否 为 16 位 的 无 符 导 整数 类 型 。 

语 法 ;,#include ”matrix.hr 
bool mxJIsUint16(const ImXArray #array _ptr); 

说 明 :通过 函数 mxlsUint16, 用 户 可 以 判断 由 输入 参数 array _ptr 所 指向 的 阵列 
的 数据 类 型 是 否 为 16 位 的 无 符号 整数 类 型 , 如 果 返 回 值 为 1, 则 说 明 array _ 
ptr 所 指向 的 阵列 为 16 位 的 无 符号 整数 类 型 ;如 果 返 回 值 为 0, 则 说 明 array 
_ptr 所 指向 的 阵列 不 是 16 位 的 无 符号 整数 类 型 。 此 外 琐 数 mxIsIntl16 的 功 
能 还 可 以 通过 下 面 的 语句 来 完成 

mxGetClassIDf(atray _Ptr) 一 一 mxUINT16 _CLASS 


关于 画 数 mxGetClassID 和 常量 mxUINT16 _CLASS 的 说 明 ， 人 
前 面 的 内 容 。 


73.iImxIsUint32 


功 能 :判断 阵列 的 数据 类 型 是 否 为 32 位 的 无 符号 整数 类 型 

语 法 ;#include ”matrix,. h” 
beoel mxlsUint32{const mxArray #atray _ptr)3 

说 ”了 明 : 通 过 函数 mxIsUint32, 用 户 可 以 判断 由 输入 参数 array _ ptr 所 指向 的 阵列 
的 数据 类 型 是 否 为 32 位 的 无 符号 整数 类 型 .如果 返 回 值 为 1, 则 说 明 array _ 
ptr 所 指向 的 阵列 为 32 位 的 无 符号 整数 类 型 ;如 果 返 回 值 为 0, 则 说 明 array 
_ptr 所 指向 的 阵列 不 是 32 位 的 无 符号 整数 类 型 。 此 外 通 数 mxIsInt32 的 功 
能 还 可 以 通过 下 面 的 语句 来 完成 ， 


mxGetClassID(array _ptr) 一 一 mxUINT32 _CLASS 


关于 函数 mxGetClassID 和 常量 mxUINT32 _CLASS 的 说 明 , 请 读者 参阅 
前 面 的 内 容 。 


74, mxMalloc 


功 能 ;使 用 MATLAB 的 内 存 管理 器 进行 动态 内 存 分 配 。 

语 法 :并 include ”matrix. hy 
夫 include <stdqdlib.h>> 
void *tnxMallocf(size tmn); 

说 ”有明 , 通 过 函数 mxMalloc, 用 户 可 以 方便 地 在 MATLAEB 接口 应 用 程序 中 进行 动 
态 内 存 分 配 ,其 输入 参数 n 代表 希望 分 配 的 内 存 的 大 小 ,单位 为 字 节 。 如 果 
函数 执行 成 功 , 将 返回 一 个 void 类 型 的 指针 ,指向 所 分 配 内 存 区 域 的 起 始 字 
节 ; 如 果 函 数 执行 失败 ,MEX 文件 和 其 他 的 MATLAB 接口 应 用 程序 的 处 理 
方法 不 同 :在 MEX 文件 中 , 函数 将 终止 整个 MEX 文件 的 执行 ,返回 到 
MATLAB 的 命令 提示 符 下 ;而 在 其 他 的 MATLAB 接口 应 用 程序 中 , 函数 
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将 返回 一 个 空 指针 NULL .造成 不 同 返 回 结果 的 原因 是 在 MEX 文件 和 其 他 
的 MATLAB 搂 口 应 用 程序 中 , 函数 mxMalloc 的 工作 方法 不 一 致 。 在 MEX 
文件 中 , 函数 mxMalloec 将 自动 完成 两 方面 的 任务 ， 
。 分 配 足够 的 连续 的 堆 内 存 空间 ; 
。， 将 所 分 配 的 内 存 空间 在 MATLAB 的 自动 内 存 管 理 机 制 中 注册 ,这 
样 对 于 非 持 久 的 内 存 , 在 MEX 文件 结束 执行 时 ,MATLAB 会 自动 
释放 这 些 内 存 , 而 不 用 用 户 显 式 地 调用 内 存 释 放 函 数 。 在 默认 情况 
下 ,内 存 分 配 函 数 分 配 的 内 存 和 由 为 非 持 久 内 存 , 当 通 过 函数 mex- 
MakeMemoryPersistent 将 某 段 内 存 变 为 持久 内 存 后 ,MATLAB 的 
自动 内 存 管 理 机 制 就 无 法 在 MEX 文件 结束 时 释放 该 妖 内 存 了 , 这 
时 必须 通过 mexAtExit 注册 一 个 退出 函数 ,在 该 退出 西数 中 使 用 内 
存 麦 放 函 数 对 持久 内 存 进 行 释 放 了 。 
而 在 其 他 的 MATLAB 接口 应 用 程序 中 , 函数 mxMalioc 在 工作 时 ,将 默认 
地 调用 C 语言 的 库 函 数 mailoc 对 内 存 进行 内 存 分 配 ; 如 果 函 数 的 默认 行为 
产生 异常 ,用 户 可 以 定义 自己 的 内 存 分 配 画 数 来 蔡 代 malloc, 同时 通过 范 数 
mxSetAllocFcns 将 子 定义 函数 注册 为 默认 的 工作 函数 。 
举例 :参见 函数 mxMalloc 的 范例 程序 mxmalloc. ce。 


75. mxRealloc 


功 能 :重新 分 配 内 存 。 

语 法 :#incluqde ”matrix. h 
夫 include <<stdlib.b 盖 
void xx mxRealloc(void # Ptr，size _t size7)5 

说 “” 明 :通过 函数 mxRealioc ,用 户 可 以 对 某 一 段 内 存 进 行 重新 分 配 ,void 指针 类 型 
的 输入 参数 指明 了 希望 重新 分 配 的 内 存 的 起 始 地 址 ,输入 参数 size 则 声明 
了 重新 分 配 的 内 存 的 大 小 。 如 果 函 数 执行 失败 ,函数 将 返回 一 个 空 指针 
NULL,。 但 是 必须 注意 的 一 点 是 ,在 这 种 情况 下 ,用 户 同样 需要 对 内 存 进 行 释 
放 , 因 为 该 豚 内 存 仍 然 处 于 分 配 状 态 , 如果 不 进行 释放 ,将 导致 内 存 汇 漏 。 

举例, 参见 函数 mxSetNzmax 的 范例 程序 mxsetnzmax'.c。 


76. mxSetAllocFcns 


功能 :在 MAT 文件 应 用 程序 和 引擎 应 用 程序 中 , 注册 自 定义 的 内 存 分 配 函 数 和 内 
存 释放 函数 。 
语 法 :#include "matrix. hy 
#inelude <stdlib.h> 
void mxSetAllocFcns(Kealloc _proc caliocfcn，free _proc freefcn， 
realloc _proc reallocfcn，malloc _proc mallocfcn)# 
说 ” 明 : 通 过 函数 mxSetAllocfFcns， 用 户 可 以 将 自 定义 的 内 存 分 配 函 数 和 内 存 释放 
函数 注册 到 系统 中 ,在 MAT 文件 应 用 程序 和 引擎 应 用 程序 中 , 供 MAT- 
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LAB 的 接口 提供 的 内 存 分 配 郴 数 和 释放 函数 调用 。 因 为 在 MAT 文件 应 用 
程序 和 引擎 应 用 程序 中 ,接口 函数 mxCallcc ,mxFree 和 mxMalloc 仅仅 是 简 
单 地 调用 C 语言 的 库 函 数 calloc .free 和 malloc 对 内 存 进行 操作 ,通过 编写 
和 定义 的 内 存 操作 本 数 ,可 以 令 用 户 完 成 特定 的 工作 . 郴 数 mxSetAllocFcns 
的 输入 参数 的 含义 分 别 如 下 ， 
。cajlocfcn 为 用 户 自 定义 的 供 函 数 mxCalloc 调用 的 内 存 分 配 函 数 的 
函数 名 。 通常 该 机 数 是 以 C 语言 的 库 函 数 calloe 为 核心 ,并 且 其 原型 
必须 为 如 下 形式 ， 


void #x caliocfcnksize _t nmemb，size _t size7j; 


其 中 nmemb 为 内 存 中 可 以 分 配 的 元 素 的 个 数 ,而 size 为 每 个 元 素 所 
占用 的 字 节 数 .此 外 必须 注意 的 一 点 是 ,在 用 户 自 定义 的 内 存 分 配 函 
数 callocfen 中 ,必须 将 所 有 的 内 存 初始 化 为 0; 

。 freefcn 为 用 户 自 定义 的 供 函 数 mxFree 调用 的 内 存 释 放 画 数 的 函数 
名 。 该 函数 的 原型 必须 为 如 下 形式 ， 


void freefcnCveid +# Ptr)5 


其 中 ptr 为 指向 用 户 希望 释放 的 内 存 块 的 指针 。 此 外 必须 注意 的 一 
点 是 ,在 用 户 自 定义 的 内 存 释 放 函 数 freefcn 中 , 必须 对 输入 参数 ptr 
进行 判断 ,如 果 ptr 为 NULL, 则 立即 退出 ; 

。reallocfcn 为 用 户 自 定义 的 供 函 数 mxRalloe 调用 的 内 存 分 配 函 数 的 
函数 名 。 该 本 数 的 原型 必须 为 如 下 形式 ; 


Yoid +# teallocfcn(void #+ ptt，size _t Size7i 


其 中 ptr 为 指向 用 户 希望 重新 分 配 的 内 存 区 域 的 指针 ,而 size 为 内 
存 区 域 的 大 小 ,单位 为 字 节 。 

。imalloefcn 为 用 来 替代 函数 malioc 进行 内 存 重新 分 配 的 函数 的 函数 
名 。 该 函数 的 原型 必须 为 如 下 形式 ， 


void x mallocfcnksize _t ny)3 


其 中 为 希望 重新 分 配 的 内 存 的 大 小 ,单位 为 字 节 ; 此 外 在 函数 mal- 
locfcn 中 无 需 对 重新 分 配 的 内 存 进 行 初始 化 。 
举例 ;程序 mxsetallocfcns.c 为 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 
MATLAB 根 目 录 \EXTERNNEXAMPLESNMXN 
中 , 它 演 示 了 函数 mxSetAllocFens 的 使 用 ,其 源 代 码 如 下 : 


7x 头 文 件 包 含 * 7 
并 inciude <stdio.h>> 
#include <stdlib. h>> 


#include ”matrix. hy 


/x* 自 定 义 的 内 存 分 配 枯 数 * / 
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void <*my _ calloc(size tn size ft size) 
{ 


void 关 PtT# 


printfCrCalloc Proc. ny ); 


让 (nn < 民 王 0) 外 (size < 一 0)) 
return NULL 


else 

{ 
ptr 一 callocGn ，size)]j 
tetutrnCptr》y 

} 


/7* 自 定义 的 内 存 释 放 函 数 * / 
void my _free(void < Ptt) 
{ 
printfK*Free Proac, \n7 )3 
计 《ptt 一 一 NULL》 
returny 
else 
freeKptr)]1+ 
} 


/* 自 定义 的 供 函 数 mxMalloc 调用 的 内 存 重 新 分 配 画 数 * / 
void x my _Tealloc(void * ptr，size _t size) 
{ 

printf (Realloc Proc. Nny 7 


这 《size 一 一 0) 


太 ee(Cpttr》， 


计 (size 所 一 0) 
retutrn NULL; 


让 (ptt 一 = NULIL) 
ptr 一 malloc(size7 
ejse 
ptr 一 teallocKptr，size)]# 


rettuIntKPtT73 


} 


/* 自 定义 的 替代 malloc 的 内 存 重新 分 配 画 笋 * / 
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void xx my _malloc(size _t size) 


void 关 ptt+ 
printtK* Malloc Proc. ny )5 


让 《size < 一 0) 
returm NULLI 

else 

{ 
ptr 一 malloc(size》; 
TetuttnKptr]# 


} 


/# 主 函 数 * 7 
int main(void) 
{ 

char 并 其 $ 


InX 丰 rray 共 Pa 


/* 注册 内 存 操 作 函 数 * / 
imxSetAllocFcnsKmy _calloc， 
my _free， 
my _tealloc， 
Imy _malloc); 


printf("Creating an array, .. Na》; 
pa 一 tnxCreateString("This is an exarmple of a string- 六 7 


printf (Creating a character buffer. .Amn7 3 
x 一 InxCalloc(255，sizeaf(char27# 


YXxGetSttring 《pa ，X，255734 
printf (4String variabte contained :9%%sNa" ，x)5; 


printf(wFreeing allocated buffer, .An ); 
mxXFree(x2# 

printf(zFreeing the array， .Any )5 
TaXDesttoy 生 rray(Pa)j 


retutn 刁 XIT _SUCCESS} 
} 


77. ImxSetCell 


功能 :设置 单元 阵列 的 单元 值 。 
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语 法 :;##include "mattrix. hy 
void mxSetCelli(CmxArray # array _ptr，int index，mxArray < value); 
说 了 明 :通过 函数 mxSetCell, 用户 可 以 对 单元 阵列 的 某 个 单元 进行 内 容 设 置 。 本 数 
的 三 个 输入 参数 的 含义 分 别 如 下 ， 
。，atray _ptr 为 一 个 指向 单元 阵列 的 指针 ; 
。 index 为 希望 设置 的 单元 的 索引 值 ; 
。，vajlue 为 希望 设置 的 值 ,为 一 个 指向 某 个 阵列 的 指针 。 
如 果 在 指定 单元 已 经 存在 内 容 , 则 函数 将 使 用 新 的 内 容 材 盖 原 先 的 内 容 。 
举例 :参见 3.2.4 节 的 范例 程序 。 


78. ImxSetClassName 


功 能 ,将 一 个 结构 体 阵 列 转换 为 对 象 阵列 。 

语 法 ,#include ”matrix,h” 
int mxSetClassNatme 人 mxArray # array Pttf，const char #Classnatme)i 

说 ” 明 : 通 过 函数 mxSetClassName 用 户 可 以 将 输入 参数 array _ptr 指向 的 结构 体 
阵列 转换 为 由 字符 串 classname 指定 的 对 象 类 型 的 阵列 ,这 主要 是 为 了 将 阵 
列 内 容 硕 序 地 存储 到 MAT 文件 中 。 如 果 不 通过 MATLAB 的 load 命令 将 
阵列 读 人 到 MATLAB 之 前 , 对 象 阵列 是 无 效 的 。 如 果 由 classname 指定 的 
对 象 类 型 为 MATLAB 中 未 定义 的 对 象 类 型 ,load 命令 将 会 将 对 象 阵列 转换 
为 结构 体 阵 列 。 如 果 函 数 执行 成 功 , 将 返回 0, 否则 返回 非 0。 


79. mxSetData 


功 能 :设置 阵列 的 数据 指针 。 
语 法 ,#include ”matrix. hy 
void mxSetData (mxArray #array _ptt，vVvoid #data _Ptr)1 
说 ” 明 : 通 过 函数 mxSetData, 用户 可 以 设置 阵列 的 数据 指针 。 函 数 的 功能 与 冰 数 
mxSetPr 的 功能 极为 类 似 , 惟 一 的 不 同 是 函数 指向 数据 的 指针 为 void 类 型 。 
函数 的 两 个 输入 参数 的 含义 如 下 : 
。array _ptt 为 指向 某 个 阵列 的 指针 
。，data _ptr 位 数据 指针 。 


80. ImxSetDimensions 


功 ”能 :更 改 阵列 的 维 数 和 各 维 的 大 小 。 
语 法 ;#include "matrix. h” 
int mxSetDimensions (mxArray # array 、Pptr，const int * dims，int 
ndims># 
说 “ 明 ; 通 过 函数 mxSetDimensions ,用 户 可 以 更 改 阵列 的 维 数 和 各 维 的 大 小 ,其 各 
输入 参数 的 含义 分 别 如 下 ， 
。array _ptr 为 一 个 指向 阵列 的 指针 ; 
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”dims 为 一 个 用 于 指定 阵列 各 维 大 小 的 数组 ,其 中 dims[0] 代 表 了 阵 
列 的 行 数 ,dims[1] 代 表 了 阵列 的 列 数 ,dims[2] 代 表 了 阵列 的 页 面 
。ndims 为 阵列 的 维 数 大 小 。 
如 果 函 数 执行 成 功 , 郴 数 返 回 0, 否 则 返回 1。 


81. mxSetField 


功 能 :设置 一 个 结构 体 阵 列 的 域 的 名 字 和 值 。 
语 法 :#incluqde ”matrix. hy 
void mxSetFieldKtmnxAtrray x array _btr，int index， 
const char xfeld natme，mxArtray x value); 
说 ”了 明 :通过 函数 mxSetField, 用户 可 以 设置 一 个 结构 体 阵列 的 指定 域 的 名 字 和 值 ， 
其 四 个 输入 参数 的 含义 分 别 如 下 ， 
。array _ptr 为 一 个 指向 结构 体 阵 列 的 指针 ; 
"index 为 指定 域 的 索引 值 ; 
。field _name 为 包含 域名 的 字符 串 ; 
。value 为 希望 设 轩 的 值 ,为 一 个 指向 某 个 阵列 的 指针 。 


82. mxSetFieldByNumber 


功 能 ;通过 指定 元 素 的 索引 值 和 域 的 索引 值 , 对 域 的 内 容 进 行 设置 。 
应 法 :站 ipclude "matrix. hy 
void mxSetFieldByNumber(mxArray * atray _ptr，int index， 
int field _number ，mxArray < vajue)i 
说 “” 明 ;通过 函数 mxSetFieldByNumber ,用 户 可 以 通过 指定 的 元 素 的 索引 值 和 域 的 
索引 值 ,对 域 的 内 容 进 行 设 置 。 函 数 的 四 个 输入 参数 的 含义 分 别 如 下 ， 
。，array _ptt 为 一 个 指向 结构 体 阵 列 的 指针 ; 
。index 为 指定 阵列 的 元 素 的 索引 值 ; 
。field _number 为 指定 域 的 索引 值 ; 
*。 walue 为 希望 设置 的 值 ,为 一 个 指向 某 个 阵列 的 指针 。 
举例; 参见 函数 mxCreateStructArray 的 范例 程序 。 


83. mxSetImagJData 


功 能 :设置 阵列 的 虚 部 数据 指针 。 

谨 ”法 ;##incluade ”tnatrix, hy7 
void mxSetImagData(mxArray #array _ptr，void 关 Pi)8 

说 ” 明 , 通 过 函数 mxSetImagData ,用 户 可 以 对 阵列 的 虚 部 数据 进行 设置 。 输 人 参数 
array _ptr 为 一 个 指向 某 个 峰 列 的 指针 ,pi 为 数据 指针 。 函 数 的 功能 与 函数 
mxSetPi 的 功能 极为 相似 ,惟一 的 不 同 是 函数 mxSetImagData 的 数据 指针 
为 void 类 型 。 画 数 mxSetImagData 可 以 用 于 除 双 精 度 类 型 以 外 的 所 有 数值 
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阵列 的 串 数 部 分 赋值 。 
举 例 : 参 见 函 数 mxjsFinite 的 范例 程序 。 


84. mxSetIr 


功 能 :设置 稀 朴 矩阵 的 ir 数组 。 

语 法 ; 半 inclade ”matrix. hy 
void mxSetIr(mxArray xatrray _ptry int # 这 7); 

说 ” 明 : 通 过 函数 mxSetIr, 用户 可 以 对 稀疏 矩阵 的 ir 数组 进行 设置 . 输入 参数 array 
_ptr 为 一 个 指向 某 个 稀 朴 矩阵 的 指针 ,ir 为 数据 指针 ,。 数组 ir 为 一 个 整 型 数 
组 ,其 长 度 为 nzmax, 即 稀 朴 矩阵 可 以 包含 的 最 天 的 非 零 元 素 的 个 数 , 其 元 素 
包含 了 笑 琉 矩阵 中 每 个 非 零 元 素 的 行 的 索引 值 , 并 且 非 零 元 素 在 数组 按 列 优 
先 的 顺序 存放 。 

举 例 :参见 3. 2.7 节 内 容 。 


85. mxSetJc 


功 能 :设置 稀疏 矩阵 的 jc 数组 。 
语 法 ,##tinclude ”matrix.h” 
void mxSetJc(mxArray #array _pttr，int 关 jc)j 
说 ” 明 , 通 过 函数 mxSetJc, 用 户 可 以 对 稀 琉 矩阵 的 jc 数组 进行 设置 . 输 和 人 参数 array 
_ptr 为 一 个 指向 某 个 稀 朴 矩阵 的 指针 ,jc 为 数据 指针 。 数 组 jc 为 一 个 整 型 数 
组 ,其 长 度 为 mn 十 1, 其 中 m 为 稀 玖 矩阵 的 列 数 ,数组 内 元 素 的 含义 可 以 描述 
如 下 ， 
。ijc[j 为 第 j 列 中 包含 的 第 一 个 非 零 元 素 在 数组 ir 中 的 引 值 ; 
。ic[j 十 芋 -1 为 第 j 列 中 包含 的 最 后 一 个 非 堆 元 素 在 数组 ir 中 的 索引 
值 ; 
。jc[n 十 1 为 稀 玻 矩阵 中 非 零 元 素 的 个 数 ， 
举 例 :参见 3.2.7 节 内 容 。 


86. mxSetLogical 


功 ” 能 :设置 阵列 的 逻辑 标志 。 

语 法 ,#inelude ”matrix.h” 
void mxSetLogical(mxArray #array _Ptr)4 

说 “ 明 , 授 过 函数 mxSetLogical, 用户 可 以 设置 阵列 的 逻辑 标志 。 当 对 某 个 阵列 设置 
逻辑 标志 后 ,阵列 中 所 有 的 非 零 元 素 将 被 认为 是 还 辑 真 ,而 零 元 素 将 被 认为 
是 逻辑 假 。 

举例: 参见 函数 mxlsLogical 的 范例 程序 。 


87. mxSetM 


功 能 :设置 阵列 的 行 数 。 
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语 法 :#include ”matrix, hyw 
void tmxSetM (mxAtray #array _ptry， int my)i 

说 了 明 ,通过 函数 mxSetM, 用 户 可 以 设置 由 输入 参数 array _ptr 指定 的 阵列 的 行 
数 , 行 数 由 输入 参数 an 确定 。 这 里 必须 注意 的 一 点 是 , 当 使 用 冰 数 对 阵列 的 
行 数 进行 改变 后 , 枉 数 并 不 对 阵列 的 数据 部 分 包括 pr 和 pi 进行 内 存 的 重新 
分 配 ,所 以 用 户 在 使 用 完 函 数 mxSetM 后 ,必须 使 用 函数 mxMalloc 对 数据 
内 存 进 行 重新 分 配 ， 

举例 :参见 3. 2.7 节 范 例 程序 。 


88. mxSetN 


功 能 :设置 阵列 的 列 数 。 

语 法, 共 include "matrix. hn 
void mxSetN (mxArray * array _ptr，intn)i 

说 明 : 通 过 函数 mxSetN, 用 户 可 以 设置 由 输入 参数 array _ptr 指定 的 阵列 的 列 
数 , 行 数 由 输入 人 参数 n 确定 。 这 里 必须 注意 的 一 点 是 , 当 使 用 函数 对 阵列 的 
列 数 进行 政变 后 ,函数 并 不 对 阵列 的 数据 部 分 包括 pr 和 pi 进行 内 存 的 重新 
分 配 , 所 以 用 户 在 使 用 完 函 数 mxSetN 后 ,必须 使 用 函数 mmxMalloc 对 数据 
内 存 进 行 重新 分 配 。 

举 例 ,参见 3. 2.7 节 范 例 程序 。 


89. mxSetNarme 


功 能 :设置 阵列 的 名 字 ， 

语 法 ,##include "matrix.h” 
void mxSetName(mxArray 关 Brray _ptr，const char # narme)》5 

说 ” 明 : 通 过 函数 mxSetName, 用 户 可 以 设置 由 输 人 参数 array _ptr 指定 阵列 的 名 
字 , 名 字 由 输入 参数 name 确定 。 


举例 ,参见 3.2.7 节 范 例 程 序 。 


90. mxSetNzmaxX 


功 ”能 :设置 稀 琉 矩阵 所 能 存放 的 阵列 的 非 零 元 素 的 最 大 个 数 。 
语 法 :#include "matrix. hy 
void mxSetNzmax(tmxAtrray x array _ptr，int 9ztmax)3 
说 ” 明 , 通 过 函数 mxSetNzmax, 用户 可 以 设置 由 输 人 参数 array _ptr 指定 的 稀 朴 乍 
阵 所 能 存放 的 阵列 的 非 零 元 素 的 最 大 个 数 ,数量 值 由 参数 nzmax 确定 。 
举例 :程序 mxsetallocfcns,e 为 MATLAB 提供 的 一 个 范例 程序 ,存放 在 目录 
MATLAB 根 目录 NEXTERNNEXAMPLESNMXN 


中 , 它 演示 了 范 数 mxSetNzmax 的 使 用 ,其 源 代 码 如 下 : 
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/* 头 文 件 包含 > / 


划 ineiude ?tnex. By 


/# 大昌 点 函数 * 7 
void 
mexFunction (int nlhs ，mxArtray # plhs[]，int nrhs ，const mmXAtray * prhsL]》 


{ 


int actual _numhber _of _hon _ zetcos; 


/* 检查 输入 和 输出 变量 的 个 数 * 7/ 


这 《nths ! 一 1) 
《 

TexErrMsgTxt"()ne input argument required.”D)7 
} 
Cnlhs >> 1) 
{ 

rnexErrMsgTxtCrToo many output arguments.m75 
} 


/# 检查 输入 参数 的 类 型 * / 
这 [1 mmxIsSparse(prhs[0])) 
{ 


mexRErrMsgTxtf"Inaput argument Imust be sbarseNn")5 


pihsL0] 王 mxDuplicateArray(Kprhs[0]》; 
actual _number _of _non _zeros 一 tmxGetJcfplhs[0])[mxGetN 人 plhs[L0])7] 


这 (mxGetNzmaxkplhsF0]) 一 一 actual _number of _non _zeros) 
{ 
mex 妈 arnMsgTxt("The actual nutmhbet of non-zeros is already 


equal to the non-zero maxitmmum for this sparse matrix, Nm 7; 


else 


double #Ptri 
void #+ newptrs 
int xiri 


int nbytes; 


nbytes 一 actual _numpber _of _non _ zeros # SizecfK 兴 Ptr》; 
ptr 一 mxGetPrCplhs[0]j)# 

newptt 一 InxRealloc(ptr，mabytes7; 
mxSetPrtplhs[0]，newptr)3 
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ptt 一 mxGetPiCplhs[0])4 


ii(pPtr ! 一 NULIL》 

{ 
hewptt 一 tnxRealloc(ptr ，hbyrtes)} 
ImnxSetPiCplhs[t0] ，newptr》; 

} 


nbytes 一 actual _nurmber _of _ non zetes # Sizeof(#ir)f 
ir 三 mxGetfr(plhsL0]); 

newptr 一 mmXRealloc(itr ，nbytes); 
ImxSetIr(plhs[0]，newptr》; 


mxSetNzmax(Kplhs[0],actual _number _of _non _zeros)+ 


} 


91. mxSetPi 


功 能 :设置 阵列 的 虚 部 数据 。 

谱 法 ,#include "matrix. hy 
void mxSetPi(mxArray #array _ptt，double xpi); 

说 ” 明 : 通 过 函数 mxSetPr, 用 户 可 以 设置 输入 参数 array _ptr 所 指向 阵列 的 虚数 部 
分 的 数据 ,数据 由 输 和 参数 pi 所 指向 的 双 精 庶 类 型 的 内 存 区 域 决 定 。 

举例 :参见 数 mxSetNzmax 的 范例 程序 。 


32. mxSetPr 


功 能 ,设置 阵列 的 实 部 数据 。 
语 法 ,#include "matrix. h” 
void mxSetPr(mxArray # array _ptt，dothble xpr)i 
说 ” 明 : 通 过 函数 mxSetPr, 用 户 可 以 设置 输 和 人 参数 array _ptr 所 指向 阵列 的 实数 部 
分 的 数据 ,数据 由 输入 参数 pr 所 指向 的 双 精 度 类 型 的 内 存 区 域 决定 。 
举例 ,参见 函数 mxSetNzmax 的 范例 程序 ， 


93. mxGetClassName 


功 能 ,获得 某 个 阵列 的 类 型 。 

语 法 ;#include ”tmatrix. hy” 
const char x* mxGetClassName(const mxArray #atrray _btr); 

说 ” 明 ; 通 过 函数 mxGetClassName, 用 户 可 以 获得 输 人 参数 array _ ptt 所 指向 的 阵 
列 的 类 型 。 

举例 ,参见 函数 mxIsClass 的 范例 程序 。 
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FORTRAN 语言 MEX 文件 ， 顾 名 思 义 就 是 基于 PORTRAN 语言 编写 的 MEX 文 
件 ， 是 MATLAB 应 用 程序 接口 的 另 一 个 重要 组 成 部 分 。 通 过 它 不 但 可 以 将 现 有 的 使 用 
FORTRAN 语言 编写 的 函数 轻松 地 引 人 MATLAB 环境 人 使用， 避免 了 重复 的 程序 设计 ， 
而 且 可 以 使 用 FORTRAN 语言 为 MATILAB 定制 用 于 特定 目的 的 函数 , 以 完成 在 MAT- 
LAB 中 不 易 实 现 的 任务 ， 此 外 还 可 以 使 用 FORTRAN 语言 提高 MATLARB 环境 中 数据 
处 理 的 效率 。 

与 忆 语言 的 MEX 文件 相 比 ， 它 们 在 功能 上 相差 不 大 ， 但 是 各 有 长 处 。 使 用 C 语言 
编写 MEX 文件 的 特点 是 灵活 随意 ， 但 是 必须 非常 注意 C 语言 和 MATLAB 语言 中 数据 
存储 方式 的 差别 ， 在 MATLABH 中 阵列 元 素 为 按 列 存 情 ， 而 在 C 语言 中 数组 元 素 为 按 行 
存储 ; 但 是 如 果 使 用 FORTRAN 语言 编写 MEX 文件 就 没有 这 个 差别 , 在 FORTRAN 语 
言 中 ， 数 组 的 元 素 的 存储 方式 同样 为 按 列 存储 ， 这 主要 是 因为 最 初 的 MATLAB 是 采用 
FORTRAN 语言 编写 的 , 除 此 之 外 , FORTRAN 语言 的 数值 计算 功能 也 非常 强大 , 不 足 
之 处 是 FORTRAN 与 语言 中 指针 的 操作 较为 麻烦 ， 有 的 编译 器 甚至 不 支持 指针 的 操作 ， 
这 样 在 使 用 FORTRAN 语言 同 MATILAB 环境 进行 数据 交换 时 就 显得 麻烦 一 些 , 必须 进 
行 一 些 额外 的 操作 ,而且 FORTRAN 语言 有 着 严格 的 书写 规定 .总 之 ,C 语言 的 MEX 与 
FORTRAN 语言 MEX 文件 各 有 长 处 ， 读 者 可 以 按照 自己 的 习惯 和 爱好 选择 合适 的 语 


二 


巧 


在 上 一 章 中 , 我 们 对 C 语言 MEX 文件 进行 了 全 面 的 讲解 , 在 本 章 中 我 们 将 对 FOR- 
TRAN 语言 MEX 文件 进行 讲解 。 首先 对 FORTRAN 语言 MEX 文件 的 构成 及 其 执行 流 
程 进行 说 明 ,然后 对 FORTRAN 语言 MEX 文件 的 编写 进行 讲述 , 并 给 出 具体 的 例子 , 最 
后 介绍 相关 的 FORTRAN 语言 MEX 文件 的 库 枉 数 。 


4.1 FORTRAN 语言 MEX 文件 


4.1.f 一 个 简单 的 例子 


在 开始 讲述 FORTRAN 语言 MEX 文件 之 前 , 先 请 大 家 看 一 个 非常 简单 的 样 例 程序 
myplus.f， 它 定义 了 两 个 DOUBLE PRECISION 〈 双 精度 类 型 ， 在 一 些 编译 器 上 也 可 以 
使 用 REAL x 8 来 进行 定义 ) 类 型 数量 间 的 加 法 运算 。 该 程序 的 结构 非常 清晰 , 极 具 代表 
性 ， 请 读者 仔细 摘 读 ， 相 关内 容 将 在 随后 的 章节 中 进行 介绍 。 

CC myPlus. 
C ”第 一 部 分 ， 
C ”人 口子 馈 行 程序 


subroutine tnexFunction 《nlhs ，plhs ，hrhs，prtbhs》 
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参数 声明 ， 

plhs (* 》 和 prhs 〈(* ) 分 别 为 输出 和 输入 参数 的 指针 数组 ， 其 中 * 表示 数组 
的 长 度 不 定 ， 根 据 输出 和 输入 参数 的 个 数 而 定 ; nlhs 和 nrhs 分 别 代表 输出 和 
输入 参数 的 个 数 

integer plhs 《+# )，Prhs (#) 

integer nlhs ，nrhs 

调用 API 库 函 数 的 声明 

integer mxGetPr ，mxCreateFull 

integer mxGetM ，mxGetN ，mxlsNutneric 


程序 内 部 使 用 变量 声明 
integer X__ptyy_Ppr，z _PT 
integer Im ny，5ize 


Teal * 8 x，y， 了 


检查 输入 和 输出 参数 的 个 数 ， 输 入 参数 必须 为 2 个 ， 输 出 参数 必须 为 1 个 ， 
否则 程序 将 多 止 执行 。 
放 《nrhs .ne，2) then 
call mexErrMsgTxt (CTywro inputs reqguited1 》 
elseif (nlhs . ne，1》 then 
call mexErrMsgTxt (〈'Tooc tmaay outputs 1 ) 
endifi 


获取 第 一 个 输 和 人 参数 的 维 数 
tm 一 mxGetM 《prhs 〈1)》) 
n 一 ImnxGetN (pfhs 〈17)》 
slze 一 mn 关 卫 
判断 第 一 个 输 和 人 参数 是 否 为 一 个 数量 
让 (mxJIsNumeric (prhs 《1)) ,eq、0)》 then 
call mexErrMasgTxt 〔'TIaput one Inust be a nutmber，) 
endq 计 


获取 第 二 个 输入 参数 的 维 数 
m 一 ImxGetM (prhs 〈27)) 
n 一 mxGetN 《prhs 〈2)》 
sjze 一 TI <# 羽 
判 斯 第 二 个 输 和 人 参数 是 否 为 一 个 数量 
主 《mxIsNumeric prhs 〈2))》 ,eq， 0) then 
call mexErrMsgTxt 《Input two must be a nutmber。 号 
endi 
创建 输出 参数 阵列 
plhs 《1》 一 mxfCreateFull (m，n，0) 


获取 输 和 人 和 输出 参数 的 数据 指针 
x_pr 一 mxGetPr (prbs 《172) 
y_Br 一 mxCGetPr 《prhs (2)》 
z_pr 一 mxGetPr 《plhs 〈1)》 


“180。 MATLAEB 应 用 程序 接口 用 户 指南 








C ”将 效 据 指针 转换 为 双 精 度 类 型 数据 
call PRxCopyPtrToRealg 《x _pr、x 5lze) 
call mxCobpyPtrToReal8 人 4y _ pr，y，size》 
C ”调用 加 法 计算 子 例 行 程 序 


call myblus (x，y，z) 


C 将 计算 所 得 数据 送信 到 输出 数据 指针 
call mxCopyReal8ToPtr (z，z _ PT，size) 


C ， 返 阿 

Ttttn 

end 
人 
C ”第 二 部 分 ， 


C ”加 法 计算 子 例 行 程序 


subroutine titmestyro 《KK，yh Z)》 


C ”变量 声明 
real 共 由 xy yy， Z 
C ”加法 计算 
zz 一 X 十 y 
C ”返回 
TetUTB 
enf 
C---- 一 -一 --- 


对 该 程序 编译 后 ， 可 以 在 MATLAB 下 键 人 以 下 命令 运行 ， 
?2 一 tmyplus〈5，4》 
回 车 后 可 以 得 到 以 下 计算 结果 : 


号 
4.1.2 FORTRAN 语言 MEX 文件 源 程 序 的 构成 


仔细 阅读 过 以 上 例子 程序 的 读者 可 能 已 经 发 现 ， FORTRAN 语言 MEX 文件 的 源 程 
序 与 C 语 言 MEX 文件 源 程 序 的 内 容 大 致 相同 , 主要 由 两 个 裁 然 不 同 的 部 分 组 成 , 它们 分 
工 明 确 ， 分 别 用 于 完成 不 同 的 任务 ， 

第 一 部 分 称 为 人 口子 例 行 程序 (gateway routine), 它 是 计算 子 例 行程 序 同 MATLAB 
环境 之 间 的 接口 ， 用 来 完成 两 者 之 间 的 通信 任务 ， 

第 二 部 分 计算 子 例 行 程序 (computational routine), 它 包 含 了 所 有 实际 完成 计算 功能 
的 源 代码 ， 用 来 完成 实际 的 计算 工作 。 


1. 入 口子 例 行 程序 


大 口子 例 行 程序 的 和 名字 为 mexFunction, 拥有 四 个 串 拟 参数 , 分 别 为 prhs nrhs、plhs 
和 nlhs, 其 中 prhs 为 一 个 用 来 存放 输 和 参数 地 址 的 整数 数组 ,该 数组 的 数组 元 素 按 顺序 
包含 了 所 有 的 输入 参数 的 地 址 ，nrhs 为 整数 类 型 ， 它 标明 了 输入 参数 的 个 数 ; Plhs 为 一 
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个 用 来 存放 输出 参数 地 址 的 整数 数组 ， 该 数组 的 数组 元 素 按 顺 序 包含 了 所 有 的 输出 参数 
的 地 址 ，nlhs 则 标明 了 输出 参数 的 个 数 ， 为 整数 类 型 
人 口子 例 行 程序 的 具体 的 使 用 格式 如 下 ， 


subroutine ImexFunction (hlhs ，plhs ，nrhs ，prhs》 
C ”虚拟 参数 声明 : 
C “plhs (*) 和 prhs (*) 分 别 为 输出 和 输入 参数 的 指针 数组 ， 其 中 * 表示 数组 的 长 度 不 
CS ，，” 定 ， 根 据 输入 和 输出 参数 的 个 数 而 定 ，nlhs 和 nrhs 分 别 代表 输出 和 输 和 人 参数 的 个 数 
integer Plhg 〔* )，prhs 《+* ) 
integer hlhs ，nrhs 
C， ”调用 API 库 函 数 的 声明 〈 因 函数 使 用 不 同 而 不 同 ) 


integer mxCGetPr ，ImxCreateFull 


C ”一些 必要 的 C 语言 代码 ， 用 来 完成 MATLAB 与 
C 计算 子 例 行 程序 之 间 的 通信 任务 


end subroutine 


在 人 口子 例 行 程序 中 ， 用 户主 要 可 以 完成 两 个 方面 的 任务 ;一 方面 ， 是 从 输入 的 参 
数 获得 计算 所 需 的 数据 , 然后 在 用 户 的 计算 子 例 行程 序 中 加 以 使 用 , 例如 在 样 例 程序 my- 
plus.f 中 ， 通 过 语句 x _pr = mxGetPr (prhs (1)) 和 语句 了 _pr 一 mxGetPr 《prhs 
(1))， 分 别 从 输入 的 MATLAB 阵列 中 得 到 计算 所 需 的 数据 指针 x _pr 和 y _pri 另 一 方 
面 是 将 计算 完毕 的 结果 返回 给 一 个 用 于 输出 的 数据 指针 ， 这 样 MATLAB 系统 就 能 够 认 
识 从 用 户 计算 子 例 行程 序 返 回 的 结果 。 


2. 计算 子 例 行 程序 


计算 子 例 行 程序 主要 用 于 完成 实际 的 计算 任务 , 是 完全 的 FORTRAN 语言 编程 , 不 
涉及 到 任何 的 接口 内 容 。 一般 来 说 , 这 个 部 分 单独 编写 一 个 子 例 行 程序 或 程序 子 函 数 , 与 
和 口子 例 行 程序 分 开 ， 在 人 口子 例 行 程序 中 调用 ， 但 是 在 计算 任务 极为 简单 时 ， 也 可 以 
去 掉 这 部 分 内 容 将 计算 代码 直接 嵌 人 到 人 口子 例 行 程序 ， 但 是 建议 最 好 不 要 这 样 ， 这 主 
要 是 出 于 程序 的 可 读 性 和 结构 化 设计 方面 考虑 。 

计算 子 例 行 程序 既 可 以 象 程序 myplus.f 那样 存放 在 一 个 文件 中 , 也 可 以 单独 存放 在 
另外 一 个 文件 中 ， 这 无 关 紧要 ， 只 不 过 在 编译 时 略 有 不 同 。 


3,FEORTRAN 语言 和 C 话 言 MEX 文件 的 区 别 


由 于 FORTRAN 语言 和 C 语言 语法 上 存在 较 大 的 差异 , 所 以 二 者 在 MEX 文件 的 编 
写 上 也 存在 较 大 的 差异 ， 这 里 有 两 点 值得 特别 注意 : 首先 ， 在 C 语言 中 ， 字 符 的 大 小 写 
是 敏感 的 , 所 有 的 函数 必须 严格 按说 明 使 用 , 不 能 有 任何 差别 , 否则 将 导致 系统 报错 ,而 
在 FORTRAN 语言 中 ， 大 小 写 是 不 敏感 的 ， 名 字 mexFunetion 与 名 字 MexFunction、 
MEXEUNCTION 或 mexfunction 代表 的 是 同一 个 子 例 行 程 序 , 在 样 例 程 序 中 , 我 们 采用 
了 mexFunetion 这 种 写法 ， 主 要 是 为 了 和 语言 中 的 函数 保持 一 致 ， 让 读者 易于 阅读 和 
记忆 , 在 下 面 的 讲解 中 , 我 们 将 采用 同样 的 书写 方法 ; 其 次 , 在 C 语言 MEX 文件 中 , 有 
头 文件 包 食 语 句 ， 用 于 对 头 文件 进行 包含 ， 而 头 文件 对 程序 中 使 用 的 AFI 库 函 数 进行 了 


*。 182 . MATLAB 应 用 程序 接口 用 户 指南 


声明 , 在 FORTRAN 语言 中 则 没有 ,但 是 在 程序 的 开始 ， 即 程序 的 变量 声明 部 分 ， 必 须 
对 程序 中 所 使 用 的 函数 子 程序 进行 声明 ， 和 否则 在 程序 中 间 无 法 使 用 ， 而 程序 中 使 用 的 子 
例 行 程 序 无 需 声明 〈 有 关 亚 数 子 程序 和 子 例 行程 序 间 的 区 别 请 读者 自行 参见 有 关 FOR- 
TRAN 语言 语法 的 书籍 ) 。 此 外 还 有 一 点 必须 注意 ， 即 在 FORTRAN 语言 MEX 文件 中 
只 支持 丙种 类 型 的 数据 , 即 双 精 度 类 型 和 字符 串 类 型 ,而 C 语言 MEX 文件 则 几乎 支持 所 
有 的 数据 类 型 。 

有 关 FORTRAN 语言 语法 方面 的 知识 , 不 在 本 书 的 介绍 范围 之 内 ,请 读者 参阅 相关 
书籍 。 


4.1.3 指针 的 概念 


由 于 MATLAB 应 用 程序 接口 仅仅 能 够 处 理 一 种 类 型 的 数据 即 mxArray 结构 体 , 而 

在 FORTRAN 语言 中 又 没有 办 法 创建 一 种 新 的 数据 类 型 来 与 之 进行 匹配 ， 那 么 FOR- 
TRAN 语言 MEX 文件 是 如 何 与 MATLAB 环境 进行 交互 的 呢 ? 答案 是 指针 .。 热 悉 FOR- 
TRAN77 的 读者 可 能 会 产生 这 样 的 疑问 , FORTRAN 语言 中 并 没有 指针 的 概念 , 那 又 是 
如 何 实现 指针 的 传递 的 呢 ? 基本 原理 如 下 : 首先 ，MATLAB 将 需要 传递 的 mxArray 结 
构 体 的 内 存 地 秆 作为 一 个 整 型 数值 传递 给 FORTRAN 程序 ;然后 在 FORTRAN 程序 中 ， 
用 户 通 过 MATLAB 应 用 程序 接口 函数 库 提供 的 访问 函数 (access routines) 使 用 此 整数 
值 来 访问 mxArray 结构 体 的 内 容 ， 这些 访 问 函 数 会 自动 将 此 整数 值 作为 内 存 地 址 ， 读 取 
相应 的 内 容 ， 如 程序 mypius.f 中 的 语句 

X _hbr 一 tnxGetPr (prhs 《17) 

ctll mxCopyPtrToReal8 (x _pry X，5jze》 

完成 的 功能 就 是 从 相应 的 输入 指针 中 获取 了 相应 的 数据 ， 其 中 prhs (1) 为 第 一 个 输 

人 阵列 的 地 址 ,在 4.1.1 节 的 运行 命令 中 , 即 存储 数量 5 的 MATLAB 阵列 在 内 存 中 的 地 
址 ， 范 数 mxGetPr 的 功能 是 从 地 址 prhs 〈1)》 中 获取 第 一 个 输入 阵列 的 实 部 数据 地 址 并 
存放 于 整 型 变量 x _pr 之 中 ， 子 例 行 程序 mxCopyPtrToReal8 的 功能 为 从 地 址 x_pr 之 
中 取出 数据 存放 于 双 精 度 型 变量 x 之 中 ， 这 时 变量 x 代表 的 才 是 真正 的 数据 ;最 后 在 计 
算 过 程 完毕 之 后 ， 用 户 同样 可 以 使 用 相应 的 访问 函数 将 计算 结果 输出 到 一 定 的 内 存 地 址 
之 中 ， 如 程序 myplus.f 中 的 以 下 三 条 语句 

plhs 〈1)》 一 mxCreateFull 《mn，0) 

2 _pr 一 mxXGetPt (Plhs (1)》 

call tpxCopyReal8ToPtr (z，z _PT，Size) 


完成 的 就 是 数据 的 输出 功能 , 其 中 第 一 条 语句 的 功能 是 使 用 库 函 数 mxCreateFull 构 
造 了 一 个 a 征 Xn 的 满 实数 矩阵 ， 并 将 其 地 址 存放 于 整 型 的 数组 元 素 Plhs (1) 之 中 ， 第 二 
条 语句 的 功能 为 使 用 函数 mxGetPr 获得 地 址 plhs (1) 中 乍 阵 的 实数 部 分 数据 的 地 址 指 
针 , 存放 于 整 型 变量 z_pr 之 中 , 第 三 条 语句 功能 为 使 用 子 例 行 程序 mxCopyReal8ToPtr 
将 计算 所 得 结果 z 输出 地 址 z__pr 之 中 ,这样 就 可 以 使 MATLAB 认识 FORTRAN 程序 
的 输出 .在 整个 操作 过 程 之 中 , 用 户 无 需 关心 存放 mxArray 结构 体 地 址 的 整 型 变量 的 内 
容 , 所 有 的 工作 全 部 交 由 MATLAS 提供 的 接口 函 教 来 完成 , 不 过 必须 注意 一 点 , 用 户 不 
要 随意 改变 这 些 整 型 变量 的 值 ， 否 则 会 引发 意 想不到 的 情况 ， 有 可 能 导致 系统 的 崩溃 。 

在 FORTRAN90 中 ， 情 况 发 生 了 一 些 变化 ， 最 为 重要 的 是 在 FORTRAN90 中 ， 提 
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供 了 对 数据 指针 的 支持 ， 用 户 可 以 在 程序 中 将 一 个 变量 声明 为 指针 类 型 ， 这 时 对 数据 的 
访问 就 可 以 简单 一 些 了 。 当 用 户 使 用 库 函 数 mxGetPr 获得 mxArray 结构 体 的 数据 指针 
之 后 ,就 可 以 通过 %val 直接 使 用 数据 而 无 须 调 用 子 例 行 程序 mxCopyPtrToReal8 和 子 例 
行程 序 mxCopyReal8ToPtr 了 ， 例 如 在 程序 myplus.f 中 可 以 将 语句 

call rayplus 《x，y，z) 
改 为 语句 

cail Imyplue 《%W%val (x _pry，%W%val (_pt)， 凶 val (z__Pr)》 
并 且 可 以 略 去 以 下 三 条 语句 

call mxCopyPtrToReal8 (x _pr，x，size》 

call mxCopyPtrToReal8 (x _Pr，Xx，size) 

call raxCopyReal8ToPtr (z，z _pbr，5size) 
以 及 对 变量 x, y 和 z 的 声明 , 而 程序 完成 的 功能 不 变 。 不 过 在 使 用 %%val 之 前 必须 确认 自 
已 的 FORTRAN 编译 器 支持 该 函数 。 

在 本 章 的 讲述 和 举例 中 ， 将 采用 第 一 种 方式 ， 而 不 是 使 用 %val， 为 的 是 适合 更 多 的 


FORTRAN 雍 言 编译 器 。 
jnteger x 
x=pfrhs[ 1 


integery 
y=pPrhs[ 2] 


MATLAB 


源 用 
MEX 文件 myblus: 
z=inyplus(xy) 











告诉 MATLAB 
将 阵列 x 和 y 传 送 给 
MEX 文 件 , 变量 z 未 
赋值 





myplos.f 


subtoutine mexFunection fnlhs,plhs,nrhs.prhs) 
integer plhs(*),prhs(# ),nihsnrhbs 


在 人 口子 例 行 程序 中 需要 完成 以 下 三 个 任务 : 


1) 司 用 rmmxCrest 函数 为 输出 参数 创建 
MATLAB 阵列 ,并 将 它们 的 地 址 存 
放 于 plhs(1),plhs(2)… 中 ， 

2) 使 用 mxGet 函 数 从 prhs(1) ,Pthst2).… 


中 提取 数据 ; 
3) 调用 计算 子 例 行程 序 。 















MATLAB 
从 MEX 文 件 myplus 
返回 : 


zeimybplus(x.y) 


inteef Z 


z=bihs(O) 












将 plhs{1) 所 包含 
地 址 中 的 内 容 赋 给 


图 4.1 MEX 文件 的 执行 流程 图 
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4.1.4 FORTRAN 语言 MEX 文件 的 执行 流程 


当 对 一 个 FORTRAN 语言 MEX 文件 的 源 程 序 进行 编译 后 ， 如 果 成 功 即 可 以 得 到 
与 源 程 序 名 相同 的 DLL 文件 ,建议 将 源 程 序 的 取 和 名 与 程序 中 计算 子 例 行 程序 的 名 字 保 持 
相同 ， 这 样 比较 直观 而 且 易 于 使 用 和 记忆 。 
在 MATLAB 的 工作 环境 中 ， 按 照 MATLAB 语言 的 语法 
[a, by cy， 履 ] = Inexfile _name 《xy，y，z，…) 
正确 地 键 人 MEX 文件 名 和 MEX 文件 所 需 的 参数 ， 就 可 以 运行 MEX 文件 了 。 这 时 ， 参 
数 plhs 和 参数 prhs 分 别 为 包含 所 有 输出 和 输入 参数 地 址 的 整 型 数组 ， 参 数 nlhs 和 nrhs 
则 分 别 包 含 了 输出 和 输入 参数 的 个 数 。 以 程序 myplus.f 为 例 ， 当 对 其 进行 编译 后 ， 可 以 
得 到 文件 名 为 myplus. dll 的 动态 链接 程序 ， 在 MATLAB 命令 提示 符 下 键 人 命令 
z 一 myplus (x，y7) 
之 后 ，MATLAB 解释 器 将 首先 对 各 参数 进行 赋值 ， 如 下 ， 
nlhs 一 1; nrhs 一 24 
plhs (1》 的 内 容 为 空 ! prhs (1) 和 包含 MATI.AB 阵列 x 的 地 址 ; 
prhs (2) 包含 MATILAB 阵列 y 的 地 址 


然后 调用 和 口子 例 行 程序 mexFunction， 来 完成 计算 任务 和 MATLASB 与 计算 子 例 
行程 序 间 的 通信 。 图 4. 1 为 MEX 文件 的 执行 流程 图 。 


4.2 FORTRAN 语言 MEX 文件 的 编程 


在 第 一 节 中 , 我 们 给 出 了 一 个 用 于 处 理 简 单数 量 的 FORTRAN 语言 MEX 程序 , 本 
节 中 我 们 将 基于 若干 个 例子 程序 , 具体 讲述 如 何在 FORTRAN 语言 MEX 文件 中 对 各 种 
类 型 的 MATLAEB 阵列 进行 处 理 , 使 读者 对 FORTRAN 语言 MEX 文件 的 编程 有 一 个 全 
面 的 了 解 。 


4.2.1 FORTRAN 语言 MEX 文件 对 字符 惠 的 操作 


除了 双 精 度 类 型 的 数据 之 外 , 字符 中 是 FORTRAN 语言 MEX 支持 的 另外 一 种 数据 
类 型 ， 在 本 小 节 中 ， 我 们 将 对 字符 串 的 操作 进行 讲解 。 


1, 范例 和 构 序 


mystringplus.f 

C 程序 段 〈1) 
subroutine rmexFunection (nlhs ，Plhs ，hrhs ，prhsy) 
integer nihs ，nrhs 


integer blhs 〔# )，prhs 〔:# 》 
C ”程序 段 〈2) 


integer ImXCreateString ，mxGetString 
integer mxGetM ，mxGetN ，mxjlsString 


C ”程序 段 (3) 


( 
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integer status，8trlen1，gsttten2 
characteT yx 100 inpput _bufl，input _buf2 
character < 200 output _buf 


程序 段 〈4》 
检查 输入 和 输出 参数 的 个 数 
让 《nths . ne，2) then 
call ImexErrMsgTxt 人 《Two inpPuts requtired，》 
elseif 《nlhs .ne， 1) then 
call ImexErrMsgTxt 〔〈“One inpur reqduired. 》 


输 人 参数 必须 为 字符 中 
elseif (InxJaSttring 〔prhs 《1)) ,ne，1) then 

call mexErrMsgTxt (〈'Input must be a string,') 
elseif 《mxJsString 《prhs 〔2))》 ,ne，1) then 

cajl mexErrMsgTxt 《'"Input must be a string，》 


输 人 参数 必 须 为 行 向 量 
elseif (mxCGetM (brhs (1)) .ne，、1) then 

eall mexEIrMsgTxt 〈'Input must he a Tow vector.》 
elseii 【mxGetM 《prhs 〔2)) .ne。，1》then 

cail maexErrMsgTxt 《'Input must be a row Yectot。) 
endif 


程序 段 〈5) 
strlenl 一 mxGetM (prhs (1)》 * mxGetN 《prbhs 〈17)) 
strlen2 一 InxGetM 《prhs (2》》 *#* mxGetN 《Prhs 《277 


程序 段 〈6) 
status 一 InxGetString (〈prhs (1)，input _buf1，100) 
这 〔〈status，ne，0) then 
cail mexErrMsgTxt 《〈'String iength must be less than 100，) 
endi 这 
程序 段 〈7) 
status 一 mxGetString 《prhs 〈2》，input _ buf2，100》 
芋 (statusg .ne。 0) then 
catl ImmexErrMsgTxt 〈'String length muast be less than 100…) 
endif 


程序 眉 〈8) 


output _buf 一 


程序 侦 〈9) 
call mystringplus (input _bufl ，astrlen1， 训 put _buf2， 
& strlen2，output _buf 


程序 雏 〈10) 
blhs (1》 一 mxCreateString (output _buf) 


TetULtt 


“185“。 
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end 


C ”程序 段 〈11》 
subroutine mystringplus 〈input _bufl ，strlen1，input _ buf2， 
&. strlen2，output _puf》 


integer strjen1，strlen2 

chatactet # 《sttleni) input _bufl 

character #t 《sttlen2》input _buf2 

characteT #* 《sttlen1 十 strlen2 》output _、buf 


C ”程序 段 (12) 
output _buf 一 input _buil 《1t sgtrlenl) 7 input _buf2 (1，strlen2》 
tetuTn 
end 


2， 程 序 注 疼 


程序 mystringplus.f 是 一 个 典型 的 FORTRAN 语言 MEX 涉 文 件 , 其 计算 子 例 行程 
序 和 人 口子 例 行 程序 存放 在 一 个 文件 之 中 。 它 的 功能 非常 简单 ， 用 来 将 两 个 字符 串 合 二 
为 一 。 下 面 按 源 程序 中 的 编号 对 程序 代码 进行 解释 ， 

程序 段 〈1) 为 人 口 点 子 例 行 程 序 及 其 形式 参数 类 再 的 定义 ， 它 是 MATLAB 调用 
FORTRAN 语言 MEX 文件 时 的 人 口 点 , 是 所 有 FORTRAN 语言 MEX 文件 所 必须 具备 
的 内 容 ; 

程序 段 (2) 为 一 办 列 的 声明 语句 ， 对 程序 中 所 使 用 到 的 MATLAB 应 用 程序 接口 函 
数 库 中 的 项 数 子 程序 进行 了 类 型 声明 ; 

程序 段 〈3》 则 对 程序 中 所 使 用 到 的 一 些 临 时 变量 进行 了 声明 ; 

程序 段 (4) 的 主要 功能 是 对 用 户 输入 和 输出 参数 的 个 数 和 类 型 检查 ， 这 是 通过 函数 
子 程序 mxjJsString 以 及 参数 nlhs 和 nrhs 来 完成 的 ， 当 输入 参数 的 个 数 不 为 2 或 者 不 为 
字符 串 类 型 以 及 输出 参数 的 个 数 不 为 1 时 , 程序 调用 API 子 例 行 程 序 mexErrMsgTxt 输 
出 错误 信息 ， 并 且 终 止 当前 程序 的 执行 

程序 段 (5) 的 作用 为 通过 使 用 API 画 数 子 程序 mxGetM 和 mxGetN 获取 输入 字符 
串 的 长 度 ， 用 于 后 续 的 处 理 ; 

程序 段 (6) 的 功能 为 通过 API 函数 子 程序 mxGetString 获取 第 一 个 输 人 字符 串 阵列 
的 内 容 ， 即 实际 包含 的 字符 串 ， 并 且 进 行 判断 ， 用 以 确定 函数 子 程序 mxGetString 执行 


” 得 成 功 与 否 ; 


程序 段 (7) 功能 同 程序 段 〈6)， 只 不 过 为 对 第 一 个 输入 字符 曲 阵 列 进行 操作 ， 

程序 段 《8) 的 作用 为 初始 化 输出 字符 串 ， 将 其 置 为 空 

程序 段 〈9) 为 对 计算 子 例 行程 序 的 调用 ， 用 于 完成 两 个 字符 纺 的 连接 功能 ; 

程序 段 〈10) 调用 了 API 的 函数 子 程序 mxCreateString， 将 计算 完成 的 结果 输出 到 
MATLAB 环境 之 中 ; 

程序 段 (11) 为 计算 子 例 行程 序 及 其 形式 参数 的 定义 ; 

程序 段 (12) 为 字符 串 的 连接 操作 。 

程序 中 使 用 了 大 量 的 API 函数 子 程序 和 子 例 行程 序 ， 在 本 章 的 最 后 ， 我 们 将 对 它们 
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进行 详细 的 说 明 。 
3. 运行 站 果 


对 mystringplus.f 程序 进行 编译 后 ， 可 以 得 到 各 为 mystringplus. dll 的 动态 链接 库 
程序 ， 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 : 
?a 一 '1234 yb 一 75678'; 
?7e 一 mystringplus (ay，by》 


回 车 后 ， 可 以 得 到 结果 


尼 [一 
12345678 


4.2.2 FORTRAN 语 商 MEX 文件 对 矩阵 的 操作 


矩阵 是 MATLAB 系统 最 基本 的 处 理 对 象 ， 在 FORTRAN 语言 的 MEX 文件 中 , 我 
们 不 但 可 以 从 MATLAB 环境 中 接收 矩阵 对 象 ， 而 且 可 以 在 处 理 后 向 MATLAB 传 回 抢 
阵 对 象 。 在 本 小 节 中 ， 我 们 将 对 FORTRAN 语言 MEX 文件 中 上 矩阵 的 操作 进行 讲解 。 


1. 范例 程序 


rmatTix.f 
C ”程序 段 〈1) 

subroutine mexFunction 《nlhs 、plhs ，nrhs ，prhs) 
让 
C 形式 参数 声明 

integet piths 《# )，pbrhs 〔*# 》 

inateger nlhs ，nrhs 
人 
C 程序 师 (2) 


integer mxtCreateFull ，mmxGetPr 
integer InxGetM ，mxGetN ，mxIsNumeric 


C ”程序 段 〈3》 
integer ItmL， nl，m2，n2，size 
real kx 8 x(1000)，yY(10007，2(C1000) 


integer X_Pry,y_pPr，z_ br 


C ”程序 委 〈4) 
让 〔nrhs . ne。 2) then 
eall InexErrMsgTxt 〔“One input required，) 
elseif (nlhs . ne。1》then 
cali mexETrrMsgTxt (〈('One output required，》 
endqif 


C ”程序 女 (5) 
ml 一 mxGetM (Prhs (1)) 
nl 一 mxGetN (prhs (IJ)) 
m2 一 mxGetM 《prhs 〈2)》 
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n2 一 ImxGetN (prhs 《27) 


让 (mi ne， m2 .or， ni .ne，h2)》 then 
call mexErrMsgTxt (Row * colurmnn must be 必 一 1000. 7 
end 
C ”程序 颂 〈6) 


size 一 II # 了 1 
这 〔〈size. gt. 1000》 then 

call mexErrMsgTxt 《Row x column must be 扫 = 1000，) 
end 让 


C ”程序 段 〈7) 
让 《mxIsNumeric 《prhs (1)) ,eq， 0) then 
call mexErrMsgTxt (〈'Input must be a nutmeric array.) 
endif 
计 〈《mxlsNumeric 〈brhs 《2)) .eq，0) then 
call mexErrMsgTxt (〈!Input must be a numeric atTay./) 


endif 
C ”程序 段 (8) 

plhs (1) 一 mxCreateFull (mi，nl，0) 
程序 段 (9》 


x_pr 一 mxGetPr (Prhs 《17) 
y __pt 一 ImxGetPr 《prhs 〈27)》 
z_pr 一 mxGetPr 《plhs (17)) 
call mxCopyPtrTOReal8 《Fr _pPr，x，size) 
call mxtCopyPtrToReal8 (y _PT，y，size) 


C ”程序 段 (10》 


call matrixblus 《xy，y* zy， in1， nl) 


C ”程序 段 (11) 
call mxCopyReai8ToPtr {z，z _Pr，size》 


Tetulft 


end 


C ”程序 段 〈12) 
subroutine tmatrixplus 《x，yy zr tm n) 
integer ta，D 


real yx 8 xftmn)，y(mn)，zKtay) 


C 程序 段 〈13)》 
de 20 1 王 1，imn 
do 10 j 王 1， 也 


zi 一 xij) 十 y(i) 
20 continue 
20 continue 
retuTDn 


end 
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2.， 程序 注 赤 


程序 matrixplus.f 为 一 个 典型 的 FORTRAN 语言 MEX 源 文 件 , 其 计算 子 例 行 程序 
和 人 口子 例 行 程 序 存放 在 一 个 文件 之 中 。 它 的 功能 非常 简单 ， 用 于 完成 两 个 矩阵 之 间 的 
相 加 操作 ， 其 中 ， 

程序 段 (1》 为 人 口 点 子 例 行 程 序 及 其 形式 参数 类 型 的 定义 ， 它 是 MATLAB 调用 
FORTRAN 语言 MEX 文件 时 的 和 人口 点 , 是 所 有 FORTRAN 语言 MEX 文件 所 必须 具备 
的 内 容 ; 

程序 段 (2) 包含 了 一 系列 的 声明 语句 ， 对 程序 中 所 使 用 到 的 MATLAB 应 用 程序 接 
口 函数 库 中 的 函数 子 程序 进行 了 类 型 声明 ; 

程序 段 (3 对 程序 中 使 用 到 的 临时 变量 进行 了 声明 , 其 中 x, y 和 =z 都 声明 为 大 小 为 
1000 的 双 精 度 类 型 的 数组 ， 用 于 存储 输入 和 输出 的 矩阵 数据 ; 

程序 段 (4) 的 功能 为 对 输入 和 输出 参数 的 个 数 进行 检查 ， 程 序 matrixplus.f 要 求 输 
入 的 变量 数 必 须 为 2， 输出 的 变量 数 为 1， 否则 程序 将 使 用 API 子 例 行程 序 mexErr- 
MsgTxt 输 出 一 条 错误 信息 ， 并 终止 程序 的 运行 ; 

程序 段 (5) 使 用 API 函数 子 程序 mexGetM 和 mexGetN 分 别 获取 了 两 个 输入 上 矩 阵 
的 行 数 和 列 数 , 并 且 进 行 比较 , 如 果 两 个 输入 矩阵 的 行 数 和 列 数 不 相等 ,程序 将 报错 , 因 
为 矩阵 的 加 法 要 求 两 个 输入 抑 阵 必须 行列 相等 ; 

程序 段 〈6) 对 输入 先 阵 的 大 小 进行 计算 ， 并 且 给 出 大 小 限制 ， 如 果 输 入 失 阵 过 大 ， 
将 报 氏 ! 

程序 段 (7) 用 于 对 输 和 人 矩阵 的 类 型 进行 判断 ， 要 求 必 须 为 数值 类 型 ， 这 是 通过 API 
函数 子 程序 mexIsNumeric 来 完成 的 ; 

程序 段 (8) 调用 了 API 函数 子 程序 mexCreateFull 构造 了 一 个 大 小 为 ml1Xnl 的 实 
数 和 矩阵 ， 并 将 该 矩阵 的 内 存 地 址 存放 于 plhs 〈1》 之 中 ! 

程序 段 (9) 的 主要 功能 为 获取 输入 矩阵 和 输出 矩阵 的 数据 指针 ， 并 利用 这 些 指针 获 
取 实 际 的 数据 , 这 主要 是 通过 函数 子 程序 mxGetPr 和 子 例 行 程序 mxCopyPtrToReal8 来 
完成 ; 

程序 段 〈10) 为 对 计算 子 例 行 程序 的 调用 ; 

程序 段 (11) 的 功能 为 将 计算 的 结果 输送 到 输出 矩阵 中 ， 由 子 例 行 程序 mxCopyRe- 
al8ToPtr 来 完成 ; 

程序 段 (12) 为 计算 子 例 行 程序 及 其 形式 参数 的 定义 ， 变 量 x, y 和 z 毕 为 双 精 庶 类 
型 的 可 调 数组 ; 

程序 段 (13) 为 输 和 大 矩 阵 的 加 法 井 作 的 源 代 码 。 

程序 中 使 用 到 的 API 子 例 行 程序 以 及 函数 子 程序 将 在 本 章 的 最 后 进行 说 明 。 


3. 运行 结果 


对 matrixplus,f 程序 进行 编译 后 ， 可 以 得 到 和 名 为 matrixplus. dj 的 动态 链接 库 积 序 ， 
在 MATLAB 命令 提示 符 下 键 人 以 下 命令 : 
?8 一 [12 34]; 
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?9b= [56;， 78]; 
? C 一 Imatrixplus 《a，by) 


回 车 后 ， 可 以 得 到 结果 
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4.2.3 FORTRAN 语言 MEX 文件 中 对 MATLAB 函数 的 调用 


在 FORTRAN 语言 MEX 文件 中 , 用 户 不 但 可 以 调用 FORTRAN 语言 的 内 建 郴 数 ， 
而 且 还 可 以 调用 MATLAB 的 内 建 函数 .运算 符 .M 文件 , 甚至 可 以 为 其 他 的 MEX 文件 ， 
这 是 通过 API 提供 的 子 例 行 程 序 mexCallMATLAB 来 完成 的 。 在 本 小 节 中 ， 我 们 将 对 
FORTRAN 语言 MEX 文件 中 MATLAB 函数 的 调用 进行 讲解 。 


1， 范 例 程 序 


califunc ,了 


C ”程序 航 《1) 
subroutine mexFunction 《hlhs，plhs ，nrhs ，Pprhs) 
integer nihs ，nths 
integer plhs〔〈x )，prhs 《+ ) 


C ”程序 段 〈2) 
integer ths 《1》 
integer maxJIsString，mexCallMATLAB 
integet 8tatus 


C ”程序 蜂 (3) 
让 《nrhs . ne，1) then 
call mexErrMsgTxt (〈'One Input required.) 
eliseif (nilhs . ne。0) then 
call mexErrMasgTxt 〈'No Output required. ) 
endi 
C ”程序 段 (4) 
让 (mxJsString 《prhs 《1)》 ,ne、 1) then 
call mexErrMsgTxt 〈'Input must be a string，) 
endi 
C ”程序 段 〈5) 
statusg 一 mexCallMATLAB (1,lhs，1，prhs imread ) 
放 〔status ,ne。 0) then 
call mexErrMagTxt 〈'Something is wrong，) 
endif 
C ”程序 段 〈6) 
status 一 mexCalliMATLAB (0，NULL，1，lhs， imsbhow ) 
让 (etatus .ne，0) then 
call tnexErrMsgTxt ('Something ig wrong…) 
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endif 
C ”程序 委 (7) 
catl mxFreeMatrix {lhs 《17) 


return 
end 


2. 程序 注 炎 


程序 callfunc,f 不 是 一 个 典型 的 FORTRAN 语言 MEX 文件 。 它 没有 包含 计算 子 例 
行程 序 部 分 ， 所 有 的 操作 均 在 人 口 点 子 例 行程 序 中 完成 。 该 程序 的 功能 极为 简单 ， 它 通 
过 API 函数 子 程序 mexCallMATLAB 对 MATLAB 图 像 工 具 箱 中 的 M 文件 imread 和 
imshow 进行 了 调用 ， 完 成 了 一 己 图 像 的 显示 工作 ， 其 中 涉 码 各 个 程序 段 的 功能 如 下 ， 

程序 段 〈1) 为 人 口 点 子 例 行 程序 及 其 形式 参数 类 型 的 定义 ， 它 是 MATLAB 调用 
FORTRAN 语言 MEX 文件 时 的 入口 点 , 是 所 有 FORTRAN 语言 MEX 文件 所 必须 具备 
的 内 容 ; 

程序 段 〈2)》 为 程序 中 使 用 到 的 变量 以 及 API 函数 库 中 的 函数 子 程序 的 声明 ， 

程序 段 (3) 为 对 输入 和 输出 参数 个 数 的 检查 ,程序 要 求 仅 有 一 个 输入 参数 ,不 需要 
输出 参数 ; 

程序 段 (4) 为 输 和 人 参数 类 型 的 检查 ， 要 求 输 和 人 参数 必须 为 字符 串 类 型 ; 

程序 段 (5) 使 用 API 的 函数 子 程序 mexCallMATLAB 对 MATLAB 的 M 文件 im- 
read 进行 了 调用 ， 读 人 了 一 旺 图 像 ， 同 时 对 函数 子 程序 调用 得 成 功 与 否 进行 监控 ; 

程序 段 (6) 使 用 API 的 函数 子 程序 mexCallMATLAB 对 MATLAB 的 M 文件 
imshow 进行 了 调用 ， 用 于 显示 程序 段 (6) 中 读 人 的 图 像 ， 同 时 对 函数 子 程序 调用 得 成 
功 与 否 进行 监控 

程序 段 〈7》 赤 放 了 在 程序 中 动态 分 配 的 阵列 ， 以 防 内 存 泄漏 。 


3. 运行 结果 


对 callfunc.f 程序 进行 编译 后 ， 可 以 得 到 名 为 callfune. dll 的 动态 链接 库 程 序 ， 在 
MATLAE 命令 提示 符 下 键入 以 下 命令 ; 





图 4,2 FORTRAN 语言 MEX 文件 callfune 的 执行 结果 
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? eallfunc 《ngc4024l.tif ) 
回 车 后 MATLAB 将 显示 图 4. 2 中 的 图 形 。 


4.2.4 FORTRAN 语 衣 MEX 文件 对 字符 串 数组 的 操作 


在 FORTRAN 语言 MEX 文件 中 , 对 字符 串 数 组 的 操作 与 前 面 所 讲述 的 对 字符 串 的 
操作 相 比 存在 着 较 大 的 差异 。 

在 MATLAB 环境 中 ， 任 何 数据 均 以 阵列 的 形式 存在 ， 即 使 是 一 个 数量 ， 在 MAT- 
LAB 中 也 表示 为 一 个 1X1 的 阵列 ,而 且 在 MATLAB 环境 中 并 没有 类 似 FORTRAN 语 
言 中 字符 串 数 据 类 型 的 概念 ， 与 之 相对 应 的 是 字符 阵列 ， 在 对 单独 的 字符 串 进行 处 理 时 
二 者 差别 不 大 ， 但 是 当 对 象 为 字符 帅 数 组 时 ， 二 者 在 存储 方式 上 就 存在 重大 差异 了 。 例 
、 如 在 FORTRAN 语言 中 我 们 定义 一 个 字符 串 数组 


character + 5 fatrings 《5) 


并 皇 赋 值 如 下 ， 
fatrings 《1》 一 “abcde” 
fstrings 〔2) 一 “fghjj” 
fstrings (3)》 一 “klmno” 
fgtrings 《4)》 一 “pqrst” 
fstrings 《5)》 一 “uvwxy” 
它们 在 内 存 中 的 存放 顺序 为 


abcde 区 hij klmno pqrst uvVwxy 
接 下 来 我 们 在 MATLAB 环境 中 定义 一 个 与 字符 串 数组 fstrings 等 价 的 字符 阵列 如 下 : 
matrings 一 [iabede' ; "fghij; "kklmno'y "pqrst' uvwxy']; 
而 它 在 内 存 中 的 存放 顺序 却 为 
afkpu bglqvy chmrw dirnsx ejoty 
显然 两 者 大 不 相同 ， 这 主要 是 因为 ， 

第 一 ,在 MATLAB 中 不 存在 字符 串 的 概念 ， 字 符 阵 列 mstrings 在 MATLAB 环境 

中 被 表示 为 一 个 5X5 的 字符 阵列 ， 它 的 每 一 个 元 素 是 一 个 字符 ， 例 如 
msttings 《1。，2)》 一 ” 世 

第 二 ，MATLAE 中 的 所 有 阵列 数据 的 存储 方式 为 按 列 存 储 ; 

第 三 , FORTRAN 语言 中 , 数组 元 素 的 存储 方式 虽然 也 为 按 列 存储 ， 但 是 由 于 FOR- 
TRAN 语言 支持 字符 曲 类 型 的 数据 ， 所 以 在 数组 fstrings 元 素 中 包含 的 字符 被 视 为 一 个 
整体 ， 作 为 一 个 元 素来 存放 。 

因此 在 将 字符 让 数 组 进行 输出 到 MATLASB 环境 中 或 者 从 MATLAB 环境 中 获取 字 
符 阵 列 以 填充 FORTRAN 字符 引 数 组 时 必须 进行 一 些 额外 的 操作 .下 面 我 们 以 一 个 具体 
的 例子 来 对 FORTRAN 语言 MEX 文件 中 字符 串 孝 组 的 操作 进行 讲解 。 


1， 范例 程序 


Strings. 了 


C ”程序 用 〈 旨 


subrenutine taexFunction 《nlhs，Pplhs ，nrhs， Brhs》 
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integer bnjhs ，hths 
integer plhs〔:# )，prhs (:*》 


C ”第 一 部 分 ， 从 MATLAB 中 读 取 字符 第 阵 ， 并 存 人 FORTRAN 字符 串 数组 


程序 段 〈2》 

integer mxGetString ，mxCreateString 
integet 1，j， tm Ba，size，8tatus，P _ Str 
charaeter x 150 thestrTing 

Character # 15 String 《5) ，stT 


程序 段 (3) 
靶 (nrhbs ,ne，17 then 
call mexErrMsgTxt (One input required. 7) 
elseif 《nlhs , ne， 1) thea 
call mexErrMsggTxt 〔('Dne output required。) 
end 让 
程序 仆 〈4) 
mm 一 mxGetM (ptrhs (1)) 
mn 一 mxGetN (〈prhs 《1)) 
计 《mxJsString 〈prhs 〈1)》. ne，1)》 then 
call mexErrMsgTxt 《'Input must be a cehar array.…) 
elseif (tm . gt，107 then 
call mexErrMsgTxt (The nutmber of ROWs must be less than 10. ) 
elseif (na .gt，15) then 
cali mexErrMsgTxt 〔:The number of COILs must be less than 10.) 
endif 


程序 段 〈5) 
size 一 各 闪 卫 
statug 一 TIxGetString 〔prhs 〔1)7，thestring，size) 
诺 (status , ae，07) then 

call mexErrMsgTxt 〔〈'buffer is too short，》 
endif 
C ”程序 段 〈6) 

str 一 久 

Quo 101i 一 1，mm 

do 20 j 一 1， tm 
atr (〔j， 分 王 thestting 《i 十 〈j 一 1》#*n: i 十 人 一 1)》 #m) 

20 continue 

gtfing 〈i) 一 Str 

call rnexPrintf (string 《i>) 


10 continue 
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七 程序 段 〈?7》 
atring (1》 一 'MATLAB 
stting 〈《2)》 一 “The Scientific : 
string 〈3)》 一 “Compnuting 
string 《4) 一 “Environtment 
stTing (5) 一 “ by TM 有 机，Inc.… 
C ”程序 眉 〈8) 
theatring 一 String 〔1) 
do 30 i=2，6 
thestring 一 thestting 〈: (《i 一 1》 <15》)》7A string 《〈i》 
30 。” continue 
C ”程序 段 (9) 


P _astr = miXcreatestting 《thestring) 
cail mxSetM (P _str，15) 
caltl mxSetN (《pP _str，5) 


C ”程序 掺 〈10) 
call mexCallMATLAB (1，plhs，1，P _str，'transpose' ) 


TetuYDn 


end 
2 程序 解释 


这 个 程序 和 我 们 前 面 介绍 的 典型 的 FORTRAN 语言 MEX 文件 略 有 不 同 , 它 没有 计 
算 子 例 行 程序 部 分 ， 全 部 的 功能 均 在 人 口 点 子 例 行 程序 内 完成 。 该 程序 从 总 体 上 可 以 分 
为 两 个 部 分 ;第 一 部 分 用 来 从 MATLAB 环境 中 获取 字符 阵列 ,并 将 该 阵列 的 每 一 行 作为 
一 个 字符 串 赋 给 一 个 FORTRAN 语言 的 字符 串 数组 ! 第 二 部 分 将 一 个 FORTRAN 语言 
的 字符 串 数 组 输出 到 MATLAB 环境 成 为 一 个 字符 阵列 。 源 程序 中 各 程序 段 的 作用 如 下 : 

程序 段 〈1) 为 人 口 点 子 例 行程 序 及 其 形式 参数 类 型 的 定义 ， 它 是 MATLAB 调用 
FORTRAN 语言 MEX 文件 时 的 人 口 点 , 是 所 有 FORTRAN 语言 MEX 文件 所 必须 具备 
的 内 容 ; 

程序 段 〈2) 对 程序 中 使 用 的 变量 和 API 的 函数 子 程序 进行 了 声明 ，FORTRAN 语 
言 规定 所 有 的 说 明 语句 必须 出 现在 执行 语句 之 前 ; 

程序 段 (3) 对 程序 的 输入 参数 和 输出 参数 的 个 数 进行 了 检查 ,程序 要 求 输入 和 输出 
参数 的 个 数 必须 为 1， 否则 将 报错 退出 ! 

程序 段 (4) 对 输入 参数 的 维 数 和 类 型 进行 检查 ， 要 求 输入 必须 为 字符 阵列 ， 而 且 大 
小 必须 小 于 10X15; 

程序 段 (5) 通过 API 的 函数 子 程序 mxGetString 获得 了 输 人 字符 阵列 的 内 容 ， 存放 
于 字符 串 变量 thestring 之 中 ， 同 时 还 对 通 数 子 程序 mxGetString 是 否 成 功 执行 进行 判 
断 ， 并 且 艇 出 相应 的 反应 ; 

程序 段 6) 的 主要 功能 为 对 从 MATILAB 获得 的 字符 让 进 行 重新 排列 ， 恢复 为 行 存 
人 鱼 的 顺序 , 将 结果 赋 给 FORTRAN 的 字符 串 数 组 strings， 并 使 用 API 子 例 行 程序 mex- 
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Printf 将 数组 内 容 输出 到 MATLAB 和 窗口; 

程序 段 7) 对 字符 绅 数组 进行 了 重新 赋值 ， 用 于 向 MATLAB 环境 输出 ， 从 本 程序 
断 开始 为 程序 的 第 二 部 分 ; 

程序 段 (8) 将 字符 串 数 组 string 的 全 部 内 容 合并 存放 在 字符 串 变量 thestring 中 , 用 
于 后 续 的 输出 ; 

程序 段 (9》 创建 了 输出 的 字符 阵列 ， 并 且 设 定 了 阵列 的 行 数 和 列 数 ; 

程序 段 (10) 使 用 了 API 子 例 行 程序 mexCallMATLAB 调用 了 MATLASB 的 矩阵 转 
置 函 数 transhose* 用 于 将 字符 阵列 转 置 ， 以 符合 按 列 存 储 的 要 求 ， 而 又 不 改变 字符 串 的 
内 容 。 


3. 执行 站 果 


对 strings.f 程序 进行 编译 后 ， 可 以 得 到 名 为 strings.dll 的 动态 链接 库 程 序 ， 在 

MATLAB 命令 提示 符 下 键 人 以 下 命令 : 

? masttings 一 [abcde' ;fghij 下 lmno' pqrst'y uvwxy']， 

? 3 一 Strings 〔mstrings》 
回 车 后 ， 可 以 得 到 结果 

abcdeftghikl]mnopqrstuvwXy 

a 一 

MATL 雪 了 

The Scientific 

Cormputing 

卫 nvironrment 

by TMW ，Inc. 


4.2.5 包含 多 个 输出 的 FORTRAN 语言 MEX 文件 


对 于 包含 多 个 输出 的 FORTRAN 语言 MEX 文件 的 编写 ， 基 本 上 同 前 面 单 输出 的 
FORTRAN 语言 MEX 文件 的 编写 方法 相同 ， 惟 一 需要 注意 的 是 参数 间 的 对 应 关系 ， 例 
如 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 

? [ab …] 一 fmex _hname (c，d，…) 

调用 FORTRAN 语言 MEX 文件 ,这 时 输出 参数 a 的 地 址 包含 在 plhs 〈1) 中 ， 输 出 
参数 b 的 地 址 包含 在 plhs 〈2》 中 ， 后 续 内 容 以 此 类 推 。 下面 我 们 给 出 一 个 具体 的 例子 程 
序 dblout.f, 其 功能 为 将 两 个 输入 数量 的 值 进行 交换 , 其 源 代码 如 下 .。 由 于 在 前 面 我 们 已 
经 对 FORTRAN 语言 MEX 文件 的 编写 进行 了 足够 的 说 明 , 因此 在 下 面 ， 我 们 不 再 对 程 
序 进行 详细 的 讲解 ， 而 只 在 程序 中 加 以 注释 。 

C ”人口 点 子 例 行程 序 的 定义 
subtoutine mexfunction (nlhs ，plhs，nrhs，prhs) 
integer plhs (* 》，Pprhs 〈《=) 
integet nlhs ，nrhs 
C ”程序 中 所 使 用 的 API 本 数 子 程序 的 声明 
integer InxGetPr，mxCreateFull 
integer tnxGetM，mxGetN ，mxIsNumeric 
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C ”程序 中 所 使 用 变量 的 声明 
integer pf _in1，pPr _in2，pr _out1，pr _out2 
integer rm 芭 ，Size 


Teaji 共 8 入，y 


C ”对 输入 和 输出 变 重 的 个 数 进行 检查 
庄 《nrhs .he，2) thep 
call rnexErrMsgTxt 〈'Two inputs required. 7》 
endif 
让 《nlhs .ne。2) then 
call mexErrMsgTxt 〔' Two outputs required，) 
ermdif 


C “对 第 一 个 输入 参数 的 类 型 和 维 数 进行 检查 
m 一 InpxGetM 《Prhs (1)》 
na 一 mxGetN (pths 《17) 
让 (mxlsNurmetric 《prhs (1)》.ne，1) thben 
call mexErrMsgTxt (Inputs tnust be numeric- ') 
elseif (im .re，]1 .Of， 自 .ne、1)》 tben 
catl mexErrMsgTxt 《Inputs must be scalar. /”) 
endif 


C ”对 第 一 个 输入 参数 的 类 型 和 维 数 进行 检查 
蕊 一 InXGetM 《prhs 〈2)》 
mn 一 tnxGetN 《prhs 【2)》 
让 (mxlsNumeric 【prhs 〈27》) ,ne，、1)》 then 
cali mexErrMsgTxt ('TJnputs tmust be numeric，) 
elseif (m . ne、1 . or hn .ne，1)》then 
call mexErrMsgTxt 〔'“Inputs muat be scafar，) 
ed 于 


C ”构造 输出 阵列 
plhs (1) 一 mxCreateFull (1，1，0) 
pihs (2) = mxCreateFuill (1，1，0) 


C ”获取 输出 阵列 的 数据 指针 
pr _inl 一 axGetPr 《prhs 〈1)) 
pr _in2 一 mxGetPr 〈Prhs 〈2)) 
pr _outl 一 mxGetPr 《plhs (1727 
Pr _out2 一 mmxGetPr (pths 《27) 


C ，，” 获 下 实际 的 输入 救 据 内 容 
Size 一 PR 并 妃 
call mxCopyPtrToReal8 《pr _in1，x，size) 
call mxCopyPtrTeReal8 (pr _in2，y，size) 
C 调用 计算 子 例 行 程序 
call dblout 《x，y) 


C ”将 计 算 结 果 送 到 输出 阵列 中 
call mxCopyReal8ToPtr (x，Pr _out1，size》 
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call mxCopyReal8ToPtr (7，Ppt _out2，size) 
tetuxn 


end 


中 癌 


计算 子 例 行程 序 的 定义 
subroutine dblout (x，y) 
real < 信和 7， Z 
C ”数据 交换 
2 一 XX 
其 一 了 
y 一 8 
tettrn 
end 
对 该 程序 进行 编译 后 ， 在 MATLAB 命令 提示 符 下 键 人 命令 
?8 一 3b 一 4 
? fc, d] = dblout (3，4) 
回 车 后 可 以 得 到 如 下 结果 


蕊 着 
才 

4 王 
3 


4.2.6 FORTRAN 语言 MEX 文件 对 复数 阵列 的 操作 


在 FORTRAN 语言 MEX 文件 中 , 对 MATLAB 复数 阵列 的 操作 共有 两 种 方法 : 第 
一 种 为 类 似 C 语言 MEX 文件 中 处 理 复数 阵列 的 方法 ， 使 用 API 提供 的 函数 子 程序 
mxGetPr 和 mxGetPi 分 别 获得 阵列 的 实 部 和 虚 部 ,进行 处 理 后， 再 分 别 使 用 函数 子 程序 
mxputPr 和 mxPutPi 将 阵列 的 实 部 和 虑 部 输出 ; 第 二 种 方法 则 充分 利用 了 FORTRAN 
语言 的 优势 ， 即 在 FORTRAN 语言 存在 复数 类 型 的 数据 ， 在 程序 中 可 以 直接 使 用 ， API 
提供 了 相应 的 函数 子 程序 和 子 例 行 程序 ， 如 mxCopyPtrToComplex16 等 直接 将 MAT- 
LAB 复数 阵列 的 数据 复制 到 FORTRAN 语言 的 复数 类 型 的 数组 之 中 , 然后 进行 处 理 。 下 
面 我 们 给 出 一 个 范例 程序 ， 同 时 使 用 两 种 方法 对 复数 数据 进行 处 理 ， 程 序 的 功能 为 完成 
复数 阵列 的 加 法 运算 ， 其 源 代 码 如 下 ， 

C “人口 点 子 例 行 程 序 的 定义 
subroeutine tnaexFunction (nihs，Pplhs，nrhs ，Prhs) 
integer nlhs ，nrhs 
integer Plhg (* )，Pprhs 〈:#+ 7) 
C 程序 中 所 使 用 的 API 函数 子 程序 的 声明 
integer mxGetPr，mxGetPi，mxCreateFull 
记 teger mxGetM ，mxGetN ，mxIsComplex 


C ”程序 中 所 使 用 变量 的 声明 
integer mx，nx，rmy7，ny，size 


integer xpr，xpi，ypr，ypi，zpr，zpi 
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ee 








cotmplex# 1l6x(li00)， 7 (100)，2【〔〈100》 
real kx 8 xr《100)，xi 《100)， 池 《100)，yi《l1007，zr 〈i00)，zi 〔〈100) 


C ”检查 输入 和 输出 僵 数 的 个 数 
让 〔〈nrhs, ne. 2) then 
call mexErrMsgTxt 《Two inputs required，》 
elseif (nlhs . gt，2) thenm 


call mexErrMsgTxt 〈'Too Imnany output argutnents。) 
emnodif 


C ”获取 输入 阵列 的 维 数 
mx 一 InxGetM 《prhs 〈17) 
nx 一 mxGetN (ptrhs 《17) 
tmy 一 mmxGetM (〈prhs 〈2)》 
ny 一 mxGetN (prhs 《2)) 


C ”限定 输入 参数 的 最 大 行 煞 
让 (mx .gt，11 .or， my ,gt， 11 ) thena 
call mexErrMsgTxt 《〈'Inputg rows Imust be less than 11，) 
C 限定 输入 参数 的 最 大 列 获 
elgeif (nx .gt，11 .or，ny . gt， 11) then 
cajl mexErrMsgTxt 《'Jnputs cols must be less than 11，》 
C ”检查 输入 参数 是 否 为 复数 类 型 
elgeii〔〈《mxIsCormplex 《prhs 〈《1)7》 .ne， 1) ,or- 
人 (mxlsComplex (prhs 《2》) .me、17》then 
call mexErtMsgTxt 〈'Inputs tnust be complex.) 
endiE 


C 限定 两 个 输入 参数 的 维 数 必 须 相 等 
诺 《tax . ne，tny .Or。 nx ,ne， ny) then 
call mexErrMesgTxt 〔〈'Inputs must be same size。) 
endif 


C 第 一 种 处 理 方法 
C ”创建 输出 复数 类 型 的 阵列 
plhs 〈1) 一 mxCreateFull (mx，nx，1》 


Size 一 TnXK 关 TDX 


C ”获取 输入 和 输出 队列 的 部 和 翰 部 的 数据 指针 
xpr 一 mxGetPr 《prhs 《17) 
xpi 一 mxGetPi 〈prhs 《17) 
ypt 一 tmxGetPr 〈prths 〔2)) 
ypi 一 mxGetPi 《prhs 《27》 
zpr 一 inxCetPr (plhs 《17) 
zpi = mxGetPi (plhs 〈1))》 

C ”获取 实际 的 输入 阵列 的 数据 〈 实 部 和 韶 部 ) 
call mmxCopyPtrToReal8g 《xpr，xr， size》 
call mxCopyPtrToReal8 〈xpi，xi，size) 
cali mxCopyPtrToReal8 (ypr，yr，size》 
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call mxCopyPtrToReal8 (〈ypi，yi，size) 
C ”调用 计算 子 例 行 程 序 1 


call plus1 (xr，xi，yr，yiy，2z2r，Zzi，size》 


C ”输出 阵列 
call mnxCopyReal8TaPtr 《zr，zpt，5ize) 
call tmxCobyReal8ToPtr 〈zi，2pi，size》 


第 二 种 处 理 方法 
C ”创建 输出 复数 类 型 的 阵列 
blhs 〈2) 一 mxCreateFull (mx nx，1》 
C ”获取 输入 阵列 数据 ， 存 放 人 FORTRAN 复数 数组 之 中 
call tmxCopyPtrToComplex16 (ImxGetPt (Prhs 《17)， 


全 


及 ImXGetPi 《prhs 〔1)》，X，size) 
call mxCopyPtrIToComplexl16 〔mxCetPr (Prhs 《277， 
&& mxGetPi 〔prhs 27)，y，， size) 


C ”调用 计算 子 例 行 程 序 2 
cafll pIus2 《〈X，y，z， Size) 


C ”输出 阵列 
call tnxCopyComplex16ToPtr (z，mxGetPr 《plhs (2)》， 
久 mxGetPi (pths 《2》)》，size) 
TetULt 拉 
end 


C ”计算 子 例 行 程序 1 
subroutine plusl 《xt，xi，yr，yi，zr，2zi，Size) 
Teat 关 8xr Kx) xi (x+》7T(x》【〔(#H》 2 【sx》， ZiC+y) 


integeI sjze 


C 加 法 操作 
do 11 1 一 1，size 
zi》 一 xr to 十 yYr fi 
zi kiy 一 xi (十 而 (0 
11 ”eceontinue 
TeturIt 


end 


C ”调用 计算 子 例 行 程 序 2 
subtroutine blus2 (x，y7，z，size) 
eomplexxl6xrxr)y(#H)7 2Z 忒 #)》 
integet size 
C ”加 法 操作 
do 12 1 一 1，size 
z 人 ki》 一 x(i) 十 yY(〈iD) 


12 ”continue 


ITEtUYT 
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end 
对 该 程序 进行 编译 后 ， 在 MATLAEB 命令 提示 符 下 键 人 命令 

? x 一 [3 一 1i，4 十 2i，7 一 3i]》 

? y 一 [8 一 和 ,12 十 16i，40 一 42i] 

? [ec, d] 王 fcotmbplex (x，y) 

回 车 后 可 以 得 到 如 下 结果 

NS 过 
11. 0000 一 ?. 0006i 16, 0000 十 18. 0000i 47, 0000 一 45.0000i 

dQ 一 
11.0000 一 7.0000i 16.0000 十 18.0000i 47.0000 一 45. 0000T 


结果 完全 一 样 ， 但 从 程序 可 以 看 出 ， 使 用 第 二 种 方法 明显 简单 许多 。 
4.2.7 FORTRAN 话 填 MEX 文件 对 稀 玻 虐 阵 的 操作 


稀 现 矩阵 是 MATLAB 中 一 种 非常 特殊 的 矩阵 类 型 ， 它 的 存储 方式 与 普通 的 矩阵 存 
在 着 相当 大 的 差异 ， 六 此 在 操作 上 也 截然 不 同 ， 下 面 我 们 给 出 一 个 范例 程序 ， 演 示 如 何 
在 FORTRAN 语言 MEX 文件 中 对 稀 玻 矩阵 进行 操作 , 其 功能 为 将 一 个 普通 的 矩阵 转换 
为 稀 琉 矩阵 。 有 关 稀 疏 矩 阵 的 存储 方式 ， 请 读者 参见 第 一 章 的 内 容 。 程 序 的 源 代 码 如 下 : 

C ”上 气 阵 转换 函数 子 程序 定义 

function loadspatrse 《a，b，ir，j，m ny) 
C ”形式 参数 类 型 声明 

jnteger tn， 世 

integer 让 《xx)yjc(#) 

frealx8a (xx)，b(+) 


C 变量 声明 


integer i，j，K 


C ”矩阵 转换 ， 用 于 填充 存储 稀 琉 和 矩阵 的 三 个 阵列 的 内 容 
C ”这 里 必须 非常 注意 一 点 ， 即 在 对 稀 朴 矩阵 所 包含 的 三 个 阵列 进行 索引 时 ， 索 
C “” 引 的 基 值 为 0， 而 不 是 1。 

k = 1 

do 100 j 王 1，n 


C 初次 执行 时 将 je 的 索引 基 值 设置 为 0 
jp 《一 一 1 
do 200 1 一 1， 刀 
证 Ca《 (〈j 一 1) *tmm 十 iD》 ,ae。、0.0) thben 
b (k) 一 a( (一 1) + 如 十 


C 初次 执行 时 将 站 的 索引 基 值 设置 为 0 
it (k) 三 i 一 1 
k 一 攻 十 1 
end 这 
200 continue 


100 ”continue 
je ka 十 1) 一 长 一 1 
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C ，” 设 定 函 数 子 程序 的 输出 值 为 0 
loadqspatse 一 0 

300 ”ITeturh 
ettd 


C ”和 人口 点 子 例 行 程序 的 定义 


subroutine mexFunction (nhlhs ，Plhs ，hrhs ，prhs》 


C 子 例 行程 序 的 形式 参数 的 类 型 定义 
integer nihs ，hrhs 
integer piha 《# 7)，brhas 〔(#》) 


C ”对 子 例 行 程序 中 所 使 用 到 的 API 函数 子 程序 的 说 明 
integer ImxGetPr，mxCreateSparse，tImnxXCetIT ，mxGetJc 
integer mmXCetM ，mxGetN ，mxIsCompiex，mxIsDoubie 


C ”变量 声明 
integer Pr，sT，irg，jcs，lhs 《1) 
integer my， PR，nzmax， size ，Iihz 


integer IJoaqsparsge 


C ”定义 了 四 个 元 素 个 数 可 变 的 数组 ， 用 于 存储 输入 和 输出 的 数据 
C 该 项 功能 为 FORTRAN90 提供 

Teal#8in(:)，out《:》 

integetr 让 《:)， 天 《3)》 

ALLOCATABLE ti，outy ir，jc 


C ”检查 输入 和 输出 参数 的 个 数 
让 (nrhs . ne 1》then 
call ImexExrrMesgTxt 《Ohbe input argument required，) 
end 让 
H 《nlhge ,gt， 1) then 
call mexErrMsgTxt 〈'Tooc many output arguments。) 
end 计 
C ”检查 输入 估 数 的 类 型 
放 (mxIsDouble 《prhs 〈17) .eqg，0) then 
call mexErrMasgTxt 《Taput argutnent must be of type double,) 
etmdif 
让 (mxJsComplex (prhs 《1)) .eq，1) then 
call mexErrMsgTxt (〈'TInput argument must be real only') 
endif 
C ”获取 输入 矩阵 的 维 救 
tm 一 mxGetM (Prhs (1)》 
n 一 ImxGetN (prhs 《1)) 
C ”使 用 ALLOCATE 为 大 小 可 变 的 数组 in 声明 大 小 ， 并 将 输入 矩阵 的 数据 通过 
C ”API 提供 的 函数 子 程序 mxGetPr 和 子 例 行 程序 mxCopyPtrToReal8 存放 入 数组 
C 〇 in 中 


si2e 盖 记 关 也 
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和 LLOCATE (in (Cm * n)) 
pr 一 txGetPr (prhas 〈17)) 
call mxCopyPtrToeReal8g 《pr in，size) 


限定 构造 的 稀 琉 拖 阵 的 非 零 元 索 的 最 大 个 数 
C ，” 设 定 为 总 元 素数 的 20%% 
nzmaxg 一 dhble (mxrmnyxw,20 十 ,5 
C “调用 MATLAE 函数 find 以 及 API 函数 子 程序 mxGetM 获取 输 人 矩阵 中 
C 非 零 元 素 的 个 数 
call mexCall]MATLAB (1，lhs，1，prhsy find'》 
nnz 一 mxCetM 〈lhs 《1)》 


C ”判断 输 人 矩阵 中 非 零 元 素 的 个 数 是 否 趣 过 设 定 的 最 大 非 零 元 素 的 个 数 ， 若 超 
C ”过 ,程序 将 报错 并 退出 


让 《nnz ,gt，nzrmaXx)》 then 


站 


call mexErrMasgTxt 〔〈'Input has too imany non-zeTO elements。) 
endi 放 


避 维 数组 out 、ir 和 jc 设 定 大 小 
ALLOCATE (out (nnzjy ir (nnz)，jc 〈n 十 1)》 


C ”构造 输出 的 血 朴 矩阵 ， 获 了 到 该 矩阵 的 数据 指针 ， 并 通过 该 指针 将 数据 复制 到 
C ”数组 out 中 

plihs 《1)》 一 mxCreateSpatse 《mm，n，nzmax，0) 

sT 一 mxGetPr (plhs 《1?>) 

call mxCopyPtrTeReal8 (sr，out ，nnz) 


C ”获取 稀 琉 矩阵 所 包含 阵列 ir 的 内 容 
irs 一 mxtGetIr (plhs 《17) 
call mxCopyPtrToReal8 (irs，iT，nmz) 


C ”获取 稀 琉 矩阵 所 包含 阵列 jc 的 内 容 
jesg 一 mxGetJc (plhs 〈1)》 
call mxCopyPtrToReal8 〈jcs， 认 ，n) 


C ”调用 转换 函数 子 程序 
证 (loadsparse (in ，out，ir，jc，m，n) ,eq 0) then 
cal[l mexPrintf 《Conyersiom succeed，)》 
emdif 
C ”输出 稀 琉 矩 阵 
call mxCopyRealgToPtr 《out ，s8T，nnzg) 
ca[l mxCopyReal8ToPtr 《ir，irs，nnz) 
call mxCopyReal8ToPtr 〈jc，js，ny) 


C 。 释放 可 变数 组 使 用 的 内 存 
DEALLOCATE (in) 
DEALLOCATE (out，ir，jc) 


Ttu 了 Dn 
egnd 
对 该 程序 进行 编译 后 ， 在 MATLAB 命令 提示 符 下 键 人 命令 
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?8 一 [5.9，0，0，0，0; 0，5. 9，0，0，04 6.2,， 0，0,， 0,，0; 0，6.2,，0,， 0， 0; 0，5.9,，0,，0，0]; 
?9 一 起 parse 〈ay》 
回 车 后 可 以 得 到 如 下 结果 
Conversion gsUcceed 
b 一 
(1，12) 5. 9000 
(3，1) 6. 2000 
(2，2) 5. 9000 
〔〈#，2) 6. 2000 
《5，27) 5. 9000 


4.3 FORTRAN 语言 MEX 文件 的 建立 


在 4.1 和 4.2 节 中 ,我们 详细 讲述 了 基于 FORTRAN 语言 的 MEX 文件 的 编写 。 在 
本 节 中 ， 我 们 将 对 FORTRAN 语言 MEX 文件 的 建立 进行 讲述 、 使 读者 全 面 掌握 FOR- 
TRAN 语言 MEX 文件 的 使 用 。 


4.3.1 FORTRAN 语言 MEX 文件 的 建立 


在 第 二 章 第 一 节 对 MEX 文件 的 简单 介绍 中 ,我 们 提供 了 一 种 极为 简单 的 MEX 文件 
的 建立 方法 ， 即 直接 使 用 mex 命令 , 并 在 其 后 加 上 所 希望 编译 的 MEX 文件 的 源 文件 名 ， 
具体 格式 如 下 : 
mex <MEX 文件 名 > 
其 使 用 条 件 是 已 经 使 用 命令 
TImeX -Setup 
对 默认 的 选项 文件 进行 了 正确 的 配置 。 对 于 一 般 的 应 用 来 说 ， 这 已 经 足够 了 ， 但 是 
如 果 用 户 希 望 进 行 一 些 高 级 的 操作 ， 例 如 创建 一 个 新 的 选项 文件 用 于 支持 MATLAB 系 
统 没有 直接 予以 提供 支持 的 编译 器 ， 或 者 对 编译 过 程 施加 更 多 的 控制 ， 这 时 使 用 以 上 格 
式 就 无 能 为 力 了 。 
然而 ，mex 命令 是 一 个 功能 非常 强大 的 工具 ， 以 上 命令 格式 仅仅 是 其 最 简单 的 一 种 
应 用 方式 ， 它 拥有 大 量 的 命令 控制 参数 ， 通 过 设置 这 些 参数 ， 人 允许 用 户 使 用 不 同 的 手段 
来 完成 不 同 的 任务 , 例如 通过 使 用 参数 -f, 用 户 可 以 选择 指定 的 选项 文件 对 源 程 序 进行 编 
译 , 通过 使 用 参数 -g 可 以 让 生成 的 MEX 文件 包含 调试 信息 , 以 便 进 行 调试 , 详细 的 参数 
列表 以 及 各 人 参数 功能 见 第 三 章 表 3. 1， 在 MATLAB 命令 提示 符 下 也 可 以 通过 键 人 命令 
mex ~h 


来 获取 帮助 。 
4.3.2 基于 Windews 操作 系统 的 FORTRAN 语言 MEX 文件 的 建立 流程 


在 上 一 小 节 中 , 我 们 对 FORTRAN 语言 MEX 文件 的 建立 进行 了 总 体 上 的 描述 , 在 
本 小 节 中 ， 我 们 将 对 基于 Windows 操作 系统 的 FORTRAN 语言 MEX 文件 的 建立 进行 
详细 的 讲述 。 
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总 的 说 来 ， 基 于 Windows 操作 系统 的 FORTRAN 语言 MEX 文件 的 建立 流程 与 C 
语言 MEX 文件 的 建立 流程 大 致 相同 ， 同 样 可 以 分 为 三 个 步 双 ， 即 编译 (compiling)、 预 
链接 (prelinking) 和 链接 (linking)， 下 面 我 们 分 别 讲述 。 


1. 编译 〈compiling) 


在 Windows 操作 系统 中 ， 整 个 编译 过 程 必须 包含 以 下 步 驮 ， 
首先 ， 必 须 对 编译 MEX 文件 所 使 用 到 的 一 些 环 境 变量 进行 设置 ， 包 括 路 径 变量 
PATH， 头 文件 包含 变量 INCLUDE 和 库 文 件 变量 LIB， 假 设 用 户 使 用 的 为 Microsoft 
Fortran PowerStation 系统 ， 则 此 时 环境 变量 PATH、INCLUDE 和 LIB 应 分 别 为 Mi- 
crosoft Fortran PowerStation 的 安装 路 径 及 其 所 包含 的 头 文件 和 库 文件 所 在 的 路 径 。 当 
用 户 在 自己 的 操作 系统 或 编译 器 中 已 经 对 这 些 环境 变量 进行 了 注册 ,例如 在 驳 indows 9x 
操作 系统 中 ,用 户 已 经 在 autoexec. bat 中 写 人 这 些 变量 ， 或 者 在 Windows NT 操作 系统 
中 ， 在 控制 面板 中 的 系统 选项 中 的 环境 变量 属性 页 中 定义 了 这 些 变 量 ， 那 么 这 时 用 户 就 
可 以 将 选项 文件 中 的 这 部 分 内 容 注释 掉 , 而 不 会 发 生 问题 . 如 果 这 些 变量 设置 不 正确 , 在 
编译 MEX 文件 时 ， 系 统 将 报错 ， 说 某 些 文件 找 不 到 ， 导 致 编译 过 程 的 失败 退出 
其 次 ,必须 定义 所 使 用 的 编译 器 的 名 字 COMPILER ,在 使 用 Microsoft Fortran Pow- 
erStation 系统 时 ,COMPILER 应 设置 为 由 32( 广 :fl32 为 Microsoft Fortran PowerStation 
的 编译 执行 文件 ); 
再 次 ， 必 须 对 编译 器 的 编译 标志 COMPFLAGS 进行 如 下 设置 
。 建 议 使 用 参数 -<c， 以 告诉 编译 器 ， 只 对 源 文件 进行 编译 而 不 用 链接 ; 
。 必须 使 用 参数 -D 定义 预 处 理 程序 宏 MATILAB _MAX _EFILE; 
。 设置 编译 器 优化 参数 ; 
。 设 置 调试 信息 参数 ; 
。 自由 设置 其 他 一 些 编译 器 参数 。 


2. 预 链接 (Prelinking) 


预 链 接 过 程 主要 用 来 动态 创建 输 人 函数 库 ， 这 些 函 数 库 包 含 了 MATLAB 应 用 程序 
接口 的 库 函 数 , 以便 在 MEX 文件 中 使 用 .所 有 的 MEX 文件 仅仅 与 MATLAEB 发 生 链 接 ， 


与 之 相关 的 .DEF 文件 放置 于 目录 
<MATLAB 根 目 录 >NEXTERNNNCLUDE 
中 .对 于 MATLAB, MAT 文件 和 引擎 文件 不 太 相同 ， 在 后 面 章 节 中 将 分 别 讲述 。 


3、 链 接 〈linking) 


整个 MEX 文件 的 建立 过 程 的 最 后 一 个 步 邓 为 链接 过 程 ， 整个 过 程 中 必须 完成 以 下 
操作 : 
首先 ， 必 须 定 义 环 境 变 量 LINKER ， 用 于 指明 所 使 用 的 链接 器 ， 在 使 用 Microseotft 


Fortran PowerStation 系统 时 ， 其 定义 为 ， 
LINKER = link 
其 次 ， 必 须 对 链接 器 进行 参数 设置 ， 即 定义 环境 变量 LINKFLAGS， 
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。 使 用 参数 dl ， 表 明 用 于 创建 动态 链接 库 文件 ; 
*。 将 输出 点 指向 函数 mexFunctioni 
。 链接 在 预 链接 过 程 产生 的 输入 函数 库 ; 
。 自由 设置 其 他 一 些 相 关 链 接 回 参数 。 
再 次 ， 定 义 链 接 优化 参数 LINKEROPTIMFLAGS; 
第 四 ， 定 义 链接 调试 信息 参数 LINKERDEBUGEFLAGS; 
第 五 ， 在 需要 的 情况 下 ， 在 环境 变量 LINK _FILE 和 LINK _ 工 卫 中 对 链接 文件 
《Link-fle》 标示 符 和 链接 库 〈link-library) 进行 定义 ; 
第 六 , 在 环境 变量 NAME _OUTPUT 中 使 用 参数 output 建立 一 个 输出 标示 符 和 名 
字 ， 如 下 ， : 
NAME _OUTPUT= /out:7o%ODUTDIR 听 %%MEX NAME 铝 ,dll 
其 中 环境 变量 MEX _NAME 包含 了 命令 行 中 第 一 个 程序 的 名 字 , 该 环境 变量 在 使 用 时 ， 
参数 output 必须 被 设置 ,以 使 output 正常 工作 。 如 果 该 环境 变量 没有 被 设置 , 编译 器 默 
认 地 使 用 命令 行 中 的 第 一 个 程序 名 。 


4。 对 歌 认 选项 文件 mexopts. bat 的 分 析 
选项 文件 mexopts. bat 是 使 用 命令 


Inex -Setub 
对 系统 进行 配置 时 生成 的 默认 的 选项 文件 ， 其 源 文 件 如 十， 请 读者 先 详细 阅读 该 程 
序 , 在 后 面 将 对 该 选项 文件 进行 全 面 的 分 析 ， 以 加 深 读 者 对 FORTRAN 语言 MEX 文件 
编译 过 程 的 理解 。 
他 echo o 圭 


rem《1l) 著 通 参数 设置 


Tem 其 和 养 并 其 关 六 凑 凑 关 关 其 夭 二 其 其 次 美洲 其 基 其 沪 关 必 其 其 洲 计 基 其次 凑 细 关 其 视 商 折 特 攻 


set MATLAB 一 %MATLARB 折 

set DF _ROOT=d，Nmadev 

set VCDir 一 %DF _ROOT%NVC 

set MSDevDir 一 DEF _ROOTi sharedTDE 

set DFDir 一 %DF _ROOT%NDF 

set PATH= W%MSDevDir%Nbiny%DFDir% NBIN; 站 VCDir%%NBIN; 关 PATH 拆 
set IJNCLUDE = %DFDir%%NINCLUDE;%INCLUDRE%% 

set LIB=- %DRDir%NLIB%VCDir 外 NLIB;%%LIB 匆 


yet 头头 关 拉 入 项 并 并 并 关 入 攻关 江 入 放 训 其 关 外 诗 其 凑 詹 关 二 次 闪闪 其 闪闪 六 关 夫 其 次 其 痢 放 


rem《〈2)》 缩 译 器 参数 设置 


et 关 关 并 关 增补 凑 关 其 其 共和 六 关 其 凑 次 六 夫 训 入 名 夫 头 关 凑 填 关 六 关 其 其 直 霜 其 其 闪闪 闪闪 其 


set COMPIILER 一 所 32 

set COMPFLAGS 一 一 c 一 G5 一 nologo 一 DMATLAB _MEX _FILE 
set OPTIMRFLAGS=- 一 〇 x 

set DEBUGRLAGS 一 一 五 

set NAME _OBJECT 一 /Fo 
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ITEITT 并 并 多 其 六 济 关 其 其 凑 坟 名 共 其 其 入 六 攻关 主讲 闫 攻关 江 闪闪 其 芝 洲 条 兴 关 衬 其 玉生 美 闸 


rem《3) 库 创 建 命令 〈 预 编译 过 程 》 

TeIDT 关 从 其 其 就 其 其 游 沪 其 其 凑 关 其 居 和 关 基准 关 其 其 涂 其 其 黄涛 其 闫 其 其 并 基站 其 其 其 其 匠 天 
set PRELINK _CMDS=lihb /def:%MATLAB 好 NexternNncludevf50mex. def /machine: ix86 
ANOLOGO /OUT:%LIB _LNAME%l.lib 
set PRELINK _DLLS=[ib /def:%MATILAEB% NexternNincludeNW%DLL _NAME 欠 -def 

Amachine: ix86 /OUT:%DLL_NAME%.lib /NOLOGO 


ITETIT 关 并 次 认识 六 泊 美 凑 半 共和 闪 业 六 洲 尖 泊 汉 沪 兴 水 凑 凑 六 基 其 入 关於 凑 英 外 外 关 攻 并 闫 


rem (4) 链接 器 参数 设置 
YeDa 关 基 其 其 其 关 其 产 铸 关 关 美和 六 基 其 关 状 居 凑 入 并 放 其 关 尖 并 并 其 条 六 凑 基 次 其 寺 关 居 其 其 
set LINKER 一 link 
aet LINKFLAGS 一 /DLL /EXPORT，_MEXFUNCTION@16 
%L 防 _NAME%1l.lib /implib,%LIB_NAME%llib /NOLOGO 
set LINKOPTIMRLAGS 一 
set LINKDEBUGEFLAGS 一 /debug 
sef LINK _FILE 一 
set LINK _L 了 一 
set NAME _OUTPUT 一 ”out:M%OUTDIR% MWMMEX _NAME 上 .dl 
set RSP FILE _INDICATOR 一 @ 


te 涛 关头 站 其 凑 关 舌 半 其 其 并 基 攻关 戏 关 状 关 并 其 攻关 入 其 以 其 凑 关 攻关 其 寺 其 革 关 次 关 半 


rem (5) 资源 编译 髓 参数 设置 
set RC _COMPILER==rc /fo *%ODOUTDIR%mexversion. res” 
set RC _LINKER 一 

由 上 面 的 源 代 码 可 以 看 出 , 选项 文件 mexopts. hat 的 结构 非常 清晰 ,总 共 可 以 分 为 五 
个 部 分 ， 

第 一 部 分 为 普通 参数 设置 , 定义 了 一 些 关 于 MATLAB 以 及 FORTRAN 语言 编译 器 
的 路 径 信息 ， 其 中 %MATLAB% 和 %DF _ROOT% 分 别 代表 了 MATLAB 和 Microsoft 
Fortran PowerStation 所 在 的 安装 路 径 , 其 余 的 一 些 相关 定义 , 都 是 建立 在 它们 的 基础 之 
上 

第 二 部 分 为 编译 器 参数 设置 , 在 该 选项 文件 中 , 通过 环境 变量 COMPILER 设置 了 编 
译 器 为 了 32， 并 且 通 过 环境 变量 COMPFLAGS、 OPTIMFLAGS、 和 DEREBUGFLAGS 对 
编译 器 进行 了 全 面 的 设置 ， 其 中 一 些 参数 在 本 小 节 的 第 一 部 分 已 经 进行 了 介绍 ， 其 余 的 
一 些 含义 如 下 ， 

-G5 ”代表 针对 奔腾 处 理 器 进行 优化 处 理 

-Zi ”代表 使 能 调试 信息 

-Ox 代表 对 源 代 码 进行 全 面 优化 

-mologo 代表 禁止 版 权 信息 

第 三 部 分 为 库 创 建 命令 ， 即 预 编译 过 程 ， 用 于 创建 输入 函数 库 ; 

第 四 部 分 为 链接 参数 设置 , 在 这 部 分 内 容 中 , 首先 通过 环境 变量 LINKER 设置 了 链 
接 器 的 名 字 , 为 ink, 然后 通过 环境 变量 LINKFLAGS 设置 了 链接 器 的 一 些 参 数 选项 , 如 
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设置 了 链接 为 动态 链接 库 文 件 ， 使 出 口 点 为 mexFunction， 同 时 对 于 环境 变量 LINK _ 
FILE 和 LINK _LIB 进行 设置 , 在 使 用 Microsoft Fortran PowerStation 编译 器 时 可 以 不 
用 设置 ;设置 环境 变量 LINKDEBUGFLAGS 为 /debug ， 表 示 包 含 调试 信息 ; 

第 五 部 分 为 资源 编译 器 参数 设置 ， 这 部 分 内 容 将 在 后 面 介 绍 。 


4.3.3 将 FORTRAN 语言 MEX 文件 与 动态 链接 库 DLLs 链接 


将 一 个 动态 链接 库 文 件 链接 到 MEX 文件 中 , 必须 完成 两 方面 的 工作 , 首先 , 必须 在 
命令 行 中 列 出 动态 链接 固 的 文件 名 ; 其 次 , 必须 正确 地 设置 选项 文件 中 的 环境 变量 PRE- 
LINK _DLLS, 其 功能 主要 是 用 来 动态 地 从 用 户 输入 的 动态 链接 库 创建 一 个 输入 函数 库 ， 
以 便 动 态 链接 库 可 以 被 链接 到 MEX 文件 上 。 该 环境 变量 包含 了 产生 输 和 人 函数 库 的 命令 
和 参数 选项 ， 同 时 使 用 变量 DLL _NAME 包含 了 命令 行 中 提供 的 动态 链接 库 的 文件 名 ， 
在 选项 文件 mexopts. bat 中 定义 如 于 ， 

set PRELINK _DLLS 一 tb /def: 外 MATEIL AR 名 NextermNincludeN%DLL _NAME,def 
pmachine: ir86 /OUT DLL NAME%.l]ib /NOLOGO 


4,.3.4 语 育 MEX 文件 的 版 本 信息 


mex 命令 可 以 在 建立 用 户 的 MEX 文件 时 骨 入 一 个 资源 文件 ， 该 资源 文件 包含 了 版 
本 和 其 他 一 些 基 本 信息 . 在 Windows 平台 上 , 该 资源 文件 名 为 mexversion. tfc, 存放 在 目 
孙 

<MATLAB 根 目 录 >>NEXTERNNNCLUDE 
中 。 为 了 在 建立 MEX 文件 时 嵌 人 这 些 信息 ,必须 对 选项 文件 进行 一 定 的 设置 , 即 上 文中 
选项 文件 mexopts. bat 中 的 第 五 部 分 ， 它 包括 了 对 环境 变量 RC _COMPILER 和 环境 变 
量 RC _LINKER 的 设置 工作 , 提供 了 资源 编译 器 和 链接 器 命令 . 当 对 编译 器 命令 进行 了 
设置 之 后 , 编译 后 的 资源 文件 将 使 用 标准 的 链接 命令 链接 到 MEX 文件 中 ; 如 果 同 时 在 选 
项 文件 中 设置 了 链接 命令 , 那么 资源 文件 将 使 用 这 个 命令 链接 到 MEX 文件 中 . 在 选项 文 
件 mexopts- bat 中 ， 只 设置 了 RC _COMPILER 。 


4,.3.5 链接 多 个 文件 


在 建立 FORTRAN 语言 MEX 文件 时 , 不 但 可 以 将 若 于 个 目标 文件 结合 在 一 起 构成 
MEX 文件 ,， 而且 可 以 同时 包含 目标 库 文 件 , 例如 在 Windows 操作 系统 中 , 在 MATLAB 
命令 提示 符 下 键 人 如 下 命令 

? mex ftitle.f text,.o natmne.f thesis.o 
将 产生 一 个 名 为 title. dll 的 动态 链接 库 文 件 , 可 在 MATLAB 工作 环境 中 直接 执行 . 这 里 
必须 注意 ， 第 一 ，mex 命令 可 以 操作 若干 种 文件 格式 ， 包 括 .f，. o 等 ; 第 二 ， 在 链接 多 
个 文件 时 , 生成 的 MEX 文件 的 名 字 为 文件 列表 中 的 第 一 个 文件 的 名 字 ; 第 三 , 在 将 文件 
列表 时 ， 必 须 写 出 文件 的 扩展 名 ， 并 且 用 空格 分 隔 。 

mex 命令 提供 的 这 项 功能 对 于 软件 开发 者 来 说 是 非常 有 用 的 ， 它 允许 用 户 使 用 像 
MAKE 那样 的 开发 工具 来 管理 包含 多 程序 源 文件 的 MEX 文件 项 目 ， 仅 仅 只 需要 用 户 编 
写 一 个 简单 的 MAKERFILE 文件 ， 在 这 个 文件 中 包含 了 将 用 户 MEX 文件 项 目 中 各 狐 文 
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件 编译 为 目标 文件 的 规则 ， 然 后 就 可 以 激活 mex 命令 ， 将 各 目标 文件 结合 在 一 起 ， 从 而 
生成 可 执行 的 MEX 文件 .通过 这 种 方法 ,用户 在 建立 MEX 文件 时 ,不 用 每 次 都 对 源 文 
件 进 行 编译 ， 而 只 需 链 接 即 可 


4.4 FORTRAN 语言 MEX 文件 的 调试 


对 于 使 用 过 FORTRAN 语言 等 高 级 计算 机 语言 进行 过 程序 设计 的 读者 来 说 ,可 能 已 
经 深切 地 体会 到 ， 程 序 的 调试 对 于 一 个 应 用 程序 的 建立 来 说 ， 具 有 何等 重要 的 意义 。 因 
为 对 于 任何 一 个 程序 员 来 说 ， 一 次 性 地 将 程序 设计 完成 ， 并 且 不 发 生 任何 错误 ， 几 乎 是 
不 可 能 的 事情 ， 往 往 可 能 发 生 一 些 意 想不到 的 问题 ， 并 且 这 些 问题 发 生 在 程序 的 运行 过 
程 中 ， 非 编译 过 程 和 链接 过 程 所 能 够 检测 到 。 而 程序 的 调试 却 能 够 帮助 程序 员 在 程序 的 
运行 过 程 中 找到 这 些 隐 含 的 逻辑 错误 ， 并 加 以 改进 ， 是 程序 编制 过 程 中 一 个 非常 重要 的 
步骤 。 正 因为 如 此 ，MATLAB 也 对 MEX 文件 提供 了 全 面 的 调试 功能 ， 包 括 设置 断 点 、 
单 步 运行 、 变 量 检 查 等 ,而 且 几 乎 适用 于 所 有 的 操作 系统 。 下 面 我 们 将 对 观 indows 操作 
系统 下 ，FORTRAN 语言 MEX 文件 的 调试 进行 说 明 ， 整 个 过 程 与 Windows 下 C 语言 
MEX 文件 的 调试 极为 相似 , 这 里 必须 注 明 一 点 , 我 们 所 使 用 的 编译 器 为 Microsoft FOR- 
TRAN PowerStation 。 

如 果 用 户 需 要 对 一 个 MEX 文件 进行 调试 ， 首 先 需要 做 的 就 是 在 使 用 mex 命令 对 源 
程序 进行 编译 时 必须 使 用 -g 命令 参数 ， 以 使 生成 的 MEX 文件 包含 调试 信息 :然后 进 人 
Micerosoft FORTRAN PowerStation 集成 调试 环境 ,选取 所 需要 调试 的 MEX 文件 调和 集 
成 环境 , 同时 打开 MEX 文件 的 源 程 序 ; 接 下 来 需要 做 的 就 是 对 环境 进行 设置 , 只 需 一 步 
即 可 完成 ， 选 取 下 拉 式 菜单 Build 中 的 菜单 项 Settings， 选 择 其 中 的 Debug 属性 页 ， 在 
Category 下 拉 框 中 选取 “General”， 并 在 编辑 杠 Executable for debug session 中 输 人 
MATLAB 的 可 执行 文件 的 文件 名 ,必须 包含 全 路 径 名 , 点 击 OK 按钮 ， 全 部 的 设置 工作 
就 宣告 完成 .下面 用 户 就 可 以 对 MEX 文件 进行 调试 了 。 至 于 调试 器 的 使 用 , 请 读者 自行 
参见 相关 帮助 。 


4,5 Microsoft FORTRAN PowerStation 集成 环境 中 
FORTRAN 语言 MEX 文件 的 建立 


如 果 读 者 按照 前 面 讲述 的 内 容 对 一 些 例子 文件 进行 了 编译 和 调试 ， 将 会 发 现 这 种 开 
发 的 方法 非常 地 不 方便 ， 尤其 是 习惯 了 使 用 各 种 集成 开发 环境 ， 如 Microsoft Fortran 
PowerStation 等 软件 的 读者 , 更 会 觉得 极 不 适应 。 建立 一 个 MEX 文件 , 首先 必须 在 某 个 
编辑 器 中 进行 源 代 码 的 编写 , 然后 存盘 后 回 到 MATLAB 的 工作 环境 中 , 对 其 进行 编译 ， 
若 发 现 错误 , 则 必须 回 到 原来 的 文件 编辑 器 , 按照 MATLAS 的 错误 提示 , 逐 行 地 对 源 代 
码 进行 查 错 修改 , 之 后 再 回 到 MATLAB 的 工作 环境 中 进行 编译 , 如 此 往复 , 直至 程序 没 
有 错误 为 止 ， 一 个 MEX 文件 才 宣告 完成 。 整个 过 程 需要 来 回 地 在 文件 编辑 器 各 MAT- 
LAB 工作 环境 之 间 切 换 ， 非 常 不 方便 ， 而 且 过 程 中 还 没有 加 人 调试 步 又 ， 否 则 将 更 加 麻 
频 。 下 面 的 讲述 中 ， 我 们 将 以 Microsoft Fortran PowerStation 的 集成 环境 为 对 象 ， 介 绍 
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一 种 在 该 环境 中 建立 和 调试 FORTRAN 语言 MEX 文件 的 方法 。 
4.5.1 集成 环境 中 FORTRAN 语言 MEX 文件 的 建立 步骤 


在 Microsoft FORTRAN PowerStaticn 集成 环境 中 建立 FORTRAN 语言 MEX 文 
件 ， 可 以 分 为 如 下 一 些 步 双 ， 

第 一 步 ， 进 入 Microsoft FORTRAN PowerStation 集成 环境 ， 选 择 File 菜单 中 的 
New 菜单 项 ， 将 弹出 一 个 New 选项 框 ， 如 图 4.3 所 示 ， 选 择 其 中 的 “Broject 
亚 orkspace” 项 ， 并 点 击 OK 按钮 





区 ER Browse.、 | 


4.4 New Projeet Workspace 选项 杠 
第 二 步 ， 这 时 系统 将 弹出 New Project 玛 orkspace 选项 框 ,如 图 4. 4 所 示 , 在 其 中 的 
Type《〈 类 型 ) 选项 框 中 将 Project 的 类 型 设置 为 Dynamic-Link Library， 在 Name 编辑 框 
中 输 和 人 相应 的 工程 名 后 ， 点 击 Create 按钮 ， 创 建 工程 ; 
第 三 步 ， 在 项 目 工程 创建 完毕 之 后 ,选择 下 拉 式 菜单 Tools 中 的 菜单 项 Dptions， 将 
弹出 Options 对 话 框 ,选择 其 中 的 Direetories 属性 页 , 如 图 4. 5 所 示 , 在 其 中 的 Show 由 - 
rectaoxies for 下 拉 式 选项 框 中 分 别 选 择 Include Files 和 Library Files, 在 下 部 的 编辑 框 中 
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PE 
Ed 则 tor | Tabs | Debug | Compatlbilty “Directories | Workspace | K 


同 atform' Show directoric5 和 
|win32 理 ] [br 利 es 史 | 


aas | 








sm | 
图 4.5 Options 对 话 杠 
输入 以 下 路 径 ， 
MATLAB 根 目 录 \EXTERNNINCLUDE 
MATLAB 松 日 录 NEXTERNNLIDB 
然后 选择 OK 按钮 ; 1 

第 四 步 ， 在 DOS 命令 框 状 态 下 ， 进 入 用 户 安装 Microsoft FORTRAN PowerStation 
的 目录 , 如 d:, Nmsdev, 并 且 进 人 该 目录 于 的 子 目 录 \bin， 按 下 面 的 格式 运行 该 目录 下 的 
命令 lib ， 

lib /DEF :M%MATLAB%NexternNincludeNdf50mex,def 7MACHIN 下 ， 信 86 OUT ，formex， lib 
以 产生 一 个 名 为 formex.lib 的 静态 链接 库 文 件 ,其 中 %MATLAB 色 表示 用 户 安装 MAT- 
LAB 的 根 目录 ,如 d:, Nmatlab， 一 旦 库 文 件 iormex. iib 成 功 生 成 后 ， 可 以 应 用 在 所 有 的 
MEX 文件 的 工程 之 中 ， 而 无 须 重 复生 成 ， 

第 五 步 , 选择 下 拉 式 菜单 Insert 的 菜单 项 Files into Project， 选择 库 文 件 formex, lib 
将 其 撒 人 到 当前 的 工程 中 ; 同时 选择 用 户 的 MEX 文件 的 源 程 序 , 将 其 也 嵌 人 到 当前 的 工 
程 中 ; 

第 六 步 ， 在 MEX 波 程 序 的 子 例 行 程 序 mexFunction 的 声明 语句 后 加 上 如 下 语 
名 

， MSS$ATTRIBUTES DLLEXPORT :: MEXFUNCTION 
用 以 声明 子 例 行 程 序 mexFuncetion 为 MEX 文件 的 人 口 点 郴 数 ， 如 果 不 加 此 语句 ， 
源 程序 也 能 编译 通过 ， 但 是 在 MATLAB 环境 中 执行 时 ，MATLAB 将 显示 如 下 错误 信 
息 

?332? Invaliqd MEX-file 
报告 程序 为 一 个 非法 的 MEX 文件 ; 
第 七 步 , 点 取 下 拉 式 菜单 Build 选择 其 中 的 Settings 荣 单 项 ， 将 弹出 一 个 对 话 框 , 选 
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取 其 中 的 General 属性 页 (如 图 4. 6), 在 Output files 编辑 框 中 输入 一 个 目录 名 , 编译 生 
成 的 MEX 文件 将 存放 在 该 目录 中 , 建议 用 户 设置 为 当前 工程 所 在 的 目录 , 这 样 可 以 为 以 
后 的 MEX 文件 调试 提供 方便 ; 








General Debeg | cusem Buid | Ferren | Unk ! 


xcecdtshie fof 由 taug 2e6319h 
dsbibintthratiab .ex 


Wozridag 由 rectoryY: 


和 rograrmn argluimtnts: 


Remg 杰 已 ciab 愉 jh ad 用 F HT 





图 4.7 Debug 属性 页 
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第 八 步 ， 同 样 在 Settings 菜单 项 弹出 的 对 话 框 中 ， 选 择 其 中 的 Debug 属性 页 〈 如 图 
4.7)， 在 Category 下 拉 框 中 选取 “General”, 然后 在 编辑 框 Executabie for debug session 
中 输入 MATLAB 的 可 执行 文件 的 文件 和 名， 必须 包含 全 路 径 名 ; 

第 九 步 ， 选 择 Project Settings 对 话 框 中 的 Fortran 属性 页 (如 图 4. 8)， 在 Category 
下 拉 杠 中 选取 “Preprocessor2”， 然 后 在 Predefineqd Preprocessor Variablies 编辑 框 中 输 人 
宏和 名 MATLAB MEX _ FILE 

当 完 成 以 上 九 步 工作 之 后 ， 就 可 以 对 MEX 涉 程序 进行 编译 和 链接 ， 生 成 可 执行 的 
MEX 文件 了 。 


General | Debug | custom Build Forran | unk ! 
430 wd LIPbo 

0 na Catcger breibrescor 是 Beset | 
放 edefined FeproceeSor arhahbies: 


PeariAa MEK_PLE 


onditienai Compjtaton Charactcrs: 


良 CLUDE and USE Peths: 





<ominen Cptions: 
ATEAB MEX_FILE" 所 jnoiado RAT 科 





Lo% | cencel | Hep 


图 4.8 Fertran 必 性 页 
4. 5. 2 ”集成 环境 中 MEX 文件 的 调试 


通过 上 一 小 节 的 设置 工作 ， 在 Microsoft Fortran PowerStation 集成 环境 中 对 MEX 
文件 的 调试 变 得 相当 简单 ， 基 本 上 没有 需要 对 编译 器 进行 设置 的 内 容 ， 可 以 像 调试 一 般 
的 应 用 程序 那样 进行 断 点 设置 、 内 存 读 取 、 单 步 运行 ， 上 只 体 的 操作 方法 请 读者 参见 编译 
器 的 相关 帮助 。 

当 对 MEX 文件 进行 调试 时 , 编译 器 会 自动 调用 MATLAB, 这 是 在 上 一 小 节 的 第 八 
步 中 设置 ,并 且 MATLAB 会 将 当前 的 工作 目录 设置 为 当前 工程 的 路 径 , 这 就 是 在 上 一 小 
节 的 第 七 步 中 我 们 建议 用 户 将 输出 的 MEX 文件 路 径 设 置 为 当前 工程 目录 的 原因 ， 这 样 
用 户 就 可 以 直接 在 MATLAB 命令 提示 符 下 键 人 文件 名 进行 运行 调试 了 ， 否 则 还 需要 对 
MATLARB 的 工作 路 径 进行 设置 。 
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4.6 FORTRAN 语言 mex- 国 数 


4.6.1 FORTRAN 语言 mex- 郴 数 的 声明 


在 MATLAEB 应 用 程序 接口 函数 库 中 , 总 共 提 供 了 19 个 FORTRAN 语言 的 mex- 函 
数 ， 它 们 的 声明 分 别 如 下 ， 
integer #+ 4 function mexXAftExlt 〈ExitFcn) 
integer kx 4 funetion exCalMATIAB (Cnlhs，pblhs，nrhe，Pprhs ，name) 
subroutine 加 eXErrMIsgTxt 《error _ msg) 
integet # 4 function mieXEvalString 〈comrmand》 
subroutine mexFunction 《nlhs，plhs，ntrhs，Prphs) 
real x 8 function mexGet 开 pa 〈) 
integer # 4 function miexGetEtl (name， my I，Pr，Ppi) 
integer # 4 function ImexGetGlobal (name) 
Tea] x 8 function mexGetInf 《》 
integer * 4 function mexGetMatrix (name) 
integer # 4 function mhexGetMatrizPtr (name) 
Teal x 8 function mexGetNaN (〈) 
integer <* 4 function mexIsFinite (value》 
integer + 4 function mexIsInf 《valuey》 
integer <* 4 function mexIsNaN 《value》 
subroutine miexPriatF (message) 
integer x* 《 function mexzPutFull name, m，n，Ppr，Pi)》 
integer * 4 function mmexPutMatrix 《mpy) 
subroutine mexSctJTrapFlag (trap _flagy) 
其 中 ， 以 funetion 关键 字 声 明 的 函数 称 为 函数 子 程序 ， 而 以 关键 字 subroutine 声明 
的 函数 称 为 子 例 行 程序 ， 在 使 用 时 ， 两 者 方式 略 用 不 同 。 对 于 函数 子 程序 来 说 ， 它 们 不 
但 可 以 通过 形 实 结合 来 传递 返回 值 ， 而 且 可 以 通过 函数 名 来 传递 一 个 返回 值 ， 如 果 在 
MEX 文件 中 希望 使 用 函数 子 程序 函数 名 的 返回 值 ， 就 必须 在 mexFunction 和信 口 点 子 例 
行程 序 中 对 函数 子 程序 加 以 声明 ， 而 且 必须 保持 名 字 以 及 类 型 完全 一 致 ， 例 如 
integer #* 4 mexAtExit，ImexCiretMatrix 
对 于 子 例 行 程序 来 说 ， 则 简单 得 多 ， 它 们 仅仅 使 用 形 实 结合 的 方式 传递 返回 值 ， 在 
MEX 文件 中 可 以 直接 使 用 关键 字 call 进行 调用 ， 而 无 须 任何 形式 的 声明 ， 例 如 


call mexPrintf 《You are a Student。) 

4.6.2 FORTRAN 诺言 mex- 函 数 的 使 用 说 明 
下 面 我 们 将 逐一 地 讲述 FORTRAN 语言 mex- 函 数 的 使 用 ， 
1、mexAtExit 


功能 , 用 于 登记 一 个 子 例 行 程序 , 该 函数 在 MEX 文件 被 清除 或 者 MATLAEB 终止 
执行 时 被 调用 ， 用 来 完成 一 定 的 善后 工作 ， 如 内 存 释 放 等 。 
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语 法 ， integer x 4 function mexAtExit (ExitFeny》 
stbroutine 下 xitFen 〔) 

说 ”了 明 :, 函数 mexAtExit 为 一 个 本 数 子 程序 ， 其 输入 参数 ExitFcn 代表 了 一 个 子 例 
行程 序 名 ， 其 返回 值 永远 为 零 。 使 用 函数 mexAtExit 允许 用 户 登 记 注册 一 
个 自 定义 FORTRAN 语言 的 子 例 行 程序 作为 退出 函数 ,该 郴 数 在 MEX 文 
件 被 清除 或 者 MATLAB 终止 执行 时 被 调用 , 用 来 完成 一 定 的 善后 工作 , 例 
如 释放 内 存 或 者 关闭 文件 等 等 . 对 于 任意 一 个 MEX 文件 来 说 , 只 能 登记 注 
册 一 个 处 于 活动 状态 的 退出 函数 ， 当 一 个 函数 中 使 用 了 多 次 mexAtExit 画 
数 时 , 那么 只 有 其 中 最 后 使 用 的 一 次 为 有 效 。 此 外 当 一 个 MEX 文件 处 于 锁 
死 状 态 时 ,所 有 的 试图 清除 MEX 文件 的 操作 都 将 失败 , 相应 的 ， 当 一 个 用 
户 试 图 清除 一 个 上 锁 的 MEX 文件 时 ，MATLAB 将 不 会 自动 调用 退出 函 
数 ， 即 使 是 在 一 切换 作 无 误 的 前 所 下 。 

举例 ， 程 序 mexatexit.f 为 一 个 使 用 郴 数 mexAtExit 的 范例 程序 ， 其 功能 极为 简 
单 ， 用 于 打开 一 个 文件 ， 并 写 人 一 定 的 信息 ， 文 件 的 关闭 交 由 退出 冰 数 完 
成 ， 其 源 代 码 如 下 ， 


C Imexatexit. 
C ”人口 点 子 例 行 程序 


suUbroutine mexFunction 《nths，plhs ，nrhs，Ppths) 


C ”在 Microsoft Fortran PowerStation 集成 环境 中 编译 MEX 文件 时 
C 下面 的 语句 用 来 声明 子 例 行程 序 mexFunetion 为 人 口 点 函数 
MS$ATTRIBUTES DLLEXPORT :: MEXFUNCTION 


C “ 子 例 行程 序 mexFuncticn 的 形式 参数 声明 
integeT nlhs，nrhs 
integet Plhs 〔* 》，Pprhs 《<#) 

己 声明 退出 函数 closeup 为 外 部 函数 
EXTERNAL closeup 


C “对 MEX 文件 中 使 用 的 API 函数 进行 声明 
integer mxlsStting，tmxGetString，mxGetM ，mxGetN ，mexAtExit 
integer mxCalloc 


C 程序 中 使 用 的 变量 声明 
integer sta，m，n，astrlen 
character # 20 志 ename 

C ”声明 num 为 一 个 静态 变量 
integer ，STATIC: hum 


C ”检查 输 人 和 输出 变量 的 个 数 
让 (nrhs . ne。1》 then 
call mexErrMsgTxt 〈'One input argument required。 ' 
endif 
让 (nlhs . ne、0) then 
call mexErrMsgTxt (No output argument reguired，) 
endif 
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C ”对 输入 参数 的 类 型 进行 检查 
sta 一 InxJsString 《prhs (1)》 
让 《sta . ne，1) thee 


call mexErTMsgTxt ('Input argument must be a string.'》 
endif 


C ”对 输出 变量 的 维 数 进 行 检查 
m 一 mxCetM 《pbrhs (1)》》 
Rn 一 mxGetN (prhs 《17)) 
让 《m , ne，1)》 then 
call mexErrMsgTxt (IJoput argument must be a TOW Vector. ') 
elseif (nm ,gt、20) then 
eall mexErrMasgTxt (Input argument must be less 
&& than 20 eleinents，》 
endi 计 


C ”获取 输入 变量 的 内 容 
strlen 一 In # 国 
ata 一 tmxGetString 《prhs 《1》,，fiiename，strlen) 
证 〈sta , ne。0)》 then 
call mexErrMsgTxt 〔《'String length mtuast be less than 100.") 
endi 放 
C ”使 用 API 函数 子 程序 mexAtExit 将 子 例 行程 序 closeup 声明 为 
C ”退出 函 孝 


sta 一 meXAtExit 《closeup) 
C ”将 静态 变 重 如 值 为 3， 用 作文 件 打 开 编号 
num 一 3 
C 以 UNKNOWN 方式 打开 文件 filename 
OPEN (num，FILE= filename，STATUS 王 'UNKNONT) 
C “在 MATLAB 环境 中 显示 文件 打开 信息 
call mexPrintf 《Fiie is opened 1 ) 
C ”向 文件 写 人 数据 


可 RITE (num,，” (Al10)) RECORD 
罗 RITE (num，' (TI5)) 30303 


ITetuTn 


end 


C ”退出 函 雪 的 声明 
saubroutine closeup 《) 

C ”在 MATLAB 环境 中 显示 文件 关闭 信息 
call mexPrintf (〈'File is closed1) 


C ”关闭 文件 
CLOSE (numy》 
end 
对 该 程序 编译 后 在 MATLAB 命令 提示 符 下 键 人 如 下 命令 
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? mexatexit 〔〈'ccc. txtr》 
回 车 后 MATLAB 将 显示 

File is opened:! 
再 键 人 命令 


?了 clear mexatexit 
回 车 后 MATLAB 将 显示 
File is closed 


退出 函数 调用 成 功 。 


2. mexCallMATLAB 


功 ” 能 , 用 于 调用 MATALB 的 内 建 函 数 、 用 户 自 定义 的 MATLAB M 文件 以 及 


语 法 ; 


说 


了 明 ， 


MEX 文件 。 
integer x* 4 funetion mexCallMATLAB (nlhs，plhs ，prha ，prhs ，name) 
integerf x 4 nlhs ，hths，plhs 〔〈《# )，prhs 〈 关 ) 
character kk 【《# ) natmne 
函数 mexCallMATLAB 为 一 个 函数 子 程序 ， 通过 它 ， 用户 可 以 调用 MAT- 
LAB 环境 中 的 各 种 可 执行 程序 , 包括 MATLAB 的 各 种 内 建 函 数 、 运算 符 ， 
用 户 自 定义 的 MATLAB M 文件 以 及 MEX 文件 ， 它 的 四 个 形式 参数 的 含 
义 分 别 如 下 : 
。name 为 用 户 希 望 执 行 的 MATLAB 内 建 函 数 或 其 他 一 些 文件 和 命 
令 的 名 字 ， 为 字符 串 类 型 ; 
。nlhs 为 用 户 执行 name 所 包含 的 命令 时 期 望 输出 的 参数 的 个 数 ， 为 
整数 类 型 ， 系 统 规 定 nihs 必须 小 于 等 于 50 
。Pplhs (* ) 为 包含 命令 name 输出 参数 内 存 地 址 的 整数 类 型 的 数组 ， 
其 中 数组 元 素 plhs (1) 包含 了 name 第 一 个 输出 参数 的 内 存 地址 ， 
数组 元 素 plhs〈2) 包含 了 name 第 二 个 输出 参数 的 内 存 地 址 ， 下 面 
依次 类 推 ， 数 组 元 素 plhs (nlhs) 包含 了 name 第 nihs 个 输出 参数 
的 内 存 地 址 ; 
。nrhs 为 用 户 期 望 执 行 的 命令 name 的 输入 元 素 的 个 数 ， 为 整数 类 
型 ， 系 统 规定 nrhs 必须 小 于 等 于 50; 
。prhs (* ) 为 包含 命令 name 输 和 人 参数 内 存 地 址 的 整数 类 型 的 数组 ， 
其 中 数组 元 素 brhs (〈1) 包含 了 name 第 一 个 输入 参数 的 内 存 地 址 ， 
数组 元 素 prhs (2) 包含 了 name 第 二 个 输入 参数 的 内 存 地 址 , 下 面 
依次 类 推 ,数组 元 素 Prhs (Cnrhs) 包含 了 name 第 nrhs 个 输入 参数 
的 内 存 地 址 ; 
如 果 函 数 子 程序 mexCallMATLAB 调用 的 命令 正确 执行 ， 返回 值 为 零 ; 若 运 
行 发 生 错误 ,返回 值 为 非 堆 在 默认 情况 下 ， 调用 命令 发 生 错误 时 ,MATLAB 
系统 将 终止 当前 MEX 文件 的 运行 ， 并 返回 到 MATLAB 命令 提示 符 下 ， 如 
果 用 户 希 望 在 发 生 错 误 时 进行 自 定义 的 氏 误 处 理 ， 可 以 使 用 子 例 行 程序 
mexSetTrapFlag ， 该 子 例 行 程序 将 在 后 面 介绍 。 
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举 例 :程序 mexcallmatlab.f 为 一 个 使 用 臣 数 mexCallMATLAB 的 范例 程序 , 其 功 
能 为 调用 MATLAB 的 内 建 函 数 sig 计算 一 个 输 人 矩阵 的 特征 向 量 和 特征 
值 ， 并 且 调 用 内 建 函 数 disp 显示 结果 ， 程 序 源 代码 如 下 ， 
C Imexcallmatlab,f 
C_ 人口 点 子 例 行 程序 声明 及 形 参 类 型 说 明 
slibroutine rmexFunction 《coths ，plhs，nrhs ，brhs) 
: MS$ATTRIBUTES DLLEXPORT !， MEXFUNCTION 
integer nlhs ，hths 
integer plhs 〈( 关 )》，prhs 《+* ) 


C “对 MEX 文件 中 使 用 的 API 函数 进行 声明 
integet mxXJIsDouble ，mxCGetM ，mxCetN 
integet ITnxCreateFull ，imxGetPr 


C ”程序 中 使 用 变量 的 声明 
integer sta， mi aa，lhsg 〔2) 
integer ptrl ，ptr2 ，Ptr3 ，size 
real # 8 realdata (1000) 


C ”检查 输入 和 输出 参数 的 个 数 
让 (nrhsg ,ne，1》 then 
call tmexErtMsgTxt (One input arguiment required、》 
end 这 
这 《nlhs .ne，2) then 
call mexErrMsgTxt 〔'Tywwo output argutmients tequired. ) 
end 江 
C ”检查 输 人 参数 的 类 型 
sta 一 miXIsDouble (Prhs (17)) 
计 〔sta . ne，1) then 
eall mexErrMsgTxt 〔〈'Input argument Imust be double. ) 
endif 
C ”检查 输 人 矩阵 的 大 小 
im 一 mmX 人 etM 《ptrhs 〈《17) 
n 一 maxGetN (〈Pihsg (17))》 
size 一 了 避 共 普 
计 《size . gt，1000》 then 
call mexErrMsgTxt (〈'Input matrix is too big，》 
endif 


C ”创建 输出 矩阵 
blhs (1) 一 mxCreateFull (m，n，0) 
blhs 〈2)》 王 ImnxCreateFull (mny 0) 
C 获取 两 个 输 册 和 矩阵 的 实 部 数据 指针 
Ptrl 一 mxGetPr (Plhs (1)》 
ptr2 一 mxGetPr (plhs (27》 


C ”调用 MATLAB 内 建 函 数 sig 和 disp 计算 和 显示 输入 矩阵 的 特征 
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向 量 和 特征 值 

call mexCallMATLAB 《2，lhs，1，Prhs ，"eig”)5 

cail mexCallMATLAB (0，NULL，1l, lihs 《〈1)，*disp 7)# 
call mexCallMATLAB (0，NULL，1，1lhs (2) ，"disp); 


输出 特征 向 量 竺 阵 

btr3 一 mxGetpPr (lhs (1)) 

call rmxCopyPtrToReal8 〔ptr3，realdata ，size》 
eall mxCopPpyReal8ToPtr (realdata，Ptrl1，size) 


输出 特征 值 矩阵 

ptr3 一 mxCGetPr 〈lhs 〈2)) 

call mxCopyPtrToReal8 (〈ptr3，tealdata ，size) 
call mxCopyReal8ToPtr 《realdata，Ptr2，Bize》 


莉 放 内 存 
call mxFreeMatrix 〔lhs 〔〈1)) 
call tmxFreeMatrix 《1lhg 〈27?》 


TetDbtt 


end 


对 该 程序 编译 后 ， 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 
? 8 一 [123;4568 789]; 
? [b, ec] =mexcallmatlab 人 ay) 


回 车 后 MATLAB 将 显示 如 下 结果 
0. 2320 0.7858 0. 4082 
0, 5253 0.0868 一 0. 8165 
0. 8187 一 0. 6123 0 4082 
16. 1168 0 0 
0 一 1,.1168 不 
8 0 一 0.0000 
hb= 
0. 2320 0,.7858 0. 4082 
0.5253 0.0868 一 0,8165 
0.8187 一 0.6123 0. 4082 
E 
16. 1168 0 姓 
0 一 1.1168 0 


一 0.0000 


0 0 
其 中 第 一 和 第 二 个 矩阵 为 命令 disp 显示 ,b 和 * 为 计算 结果 输出 , 可 以 通过 
在 命令 后 使 用 分 号 加 以 屏蔽 。 


3、mexErrMsgTxt 
功能 ， 用 于 输出 错误 信息 ， 并 返回 到 MATLAB 命令 提示 符 下 。 


语 “ 法 ，subroutine mexErrMsgTxt (error _ msg)》 


character 区 《# ) eftor _ Imsg 


说 明 ， 


举例: 
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郴 数 mexErrMasg Txt 为 一 个 子 例 行 程序 ,在 MEX 文件 中 可 以 直接 使 用 call 
关键 字 调用 ， 其 输入 参数 为 一 个 字符 串 。 该 函数 一 般 用 于 当 检 查 到 MEX 文 
件 的 某 一 执行 条 件 没 有 得 到 满足 时 ， 输 出 一 个 错误 信息 ， 并 且 终 止 当 前 
MEX 文件 的 执行 ， 返 回 到 MATLAB 命令 提示 符 下 。 
让 《nrhs .ne- 1) then 
call mexErrMsgTxt (〈'One input argument required- !) 
end 这 
if (nlhs ,ne、0) then 
call mexErrMsgTxt 《No output argument required.') 
end 计 
该 段 程序 在 前 面 的 范例 程序 中 经 常 出 更 ， 用 于 判断 输入 和 输出 参数 的 个 数 
是 否 正 确 , 若 不 正确 , 则 调用 子 例 行程 序 输出 错误 信息 ,并 终止 MEX 文件 
的 执行 。 


4。 tmexEvalStrin 克 


功能: 
语 法 : 


说 明 : 


用 于 输入 一 个 表达 式 命令 到 MATLAB 工作 环境 中 执行 。 

integer * 4 function mex 环 valString 《command) 

character kx 【《 关 ) comrmand 

机 数 mexEvalString 为 一 个 函数 子 程序 , 其 输 人 参数 为 一 个 字符 串 , 该 字符 
串 代表 了 一 个 可 以 在 MATLAB 工作 环境 中 执行 的 MATLAB 命令 ， 如 果 
该 命令 执行 成 功 ， 其 返回 值 为 0， 若 不 成 功 ， 则 返回 一 个 非 零 的 整数 值 。 
该 函数 与 前 面 讲述 的 函数 mexCallMATLAB 的 功能 大 致 相同 ， 惟 一 不 同 的 
是 函数 mexCallMATLAB 不 但 可 以 用 来 执行 MATLAB 命令 ,而 且 可 以 通 
过 参数 nlhs 和 参数 plhs 从 MATLAB 环境 中 得 到 计算 的 结果 ， 用 于 MEX 
文件 中 的 后 续 计 算 ;， 而 函数 mexEvalString 则 没有 此 项 功能 ， 只 能 用 于 向 
MATLAB 发 送 计算 指令 , 无 法 取得 计算 结果 , 并 且 出 现 于 命令 右 侧 的 参数 
必须 在 当前 的 MEX 文件 的 工作 空间 中 已 经 存在 。 


， 程序 mexevalstring.f 为 一 个 使 用 函数 mexEvalString 的 范例 程序 ， 它 没有 


任何 的 输入 人 参数， 其 功能 为 使 用 函数 mexEvalString 关闭 MATLAB 的 报 
车 功能 , 然后 对 表达 式 0/0 进行 计算 , 在 没有 关闭 MATLADB 报警 功能 的 情 
况 下 , MATLAB 将 显示 一 个 被 零 除 的 敬告， 而 关闭 后 , MATLAB 将 不 显 
示 该 敬告。 程序 的 源 代 码 如 下 ， 

CC IDexevalstring, 帮 


C 人口 点 子 例 行 程序 声明 及 形 参 类 型 说 明 
subroutine mexFunetion (nlhs，plhs ，nrhs，prhs) 
1 MS$4ATTRIBUTES DLLEXPORT :MEXFUNCTION 
integer nlhs ，nrhs 
integer plhs 〔(* ?，Pprhs 《+#) 
尼 检查 输入 和 输出 参数 个 数 


让 (nrhs .ne. 0) then 
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call rmexErrMsgTxt 〔(“No input argument required.7) 
end 计 
让 《njhs .ne， 0) then 
cail mnexEryMsgTxt (No output argument required. 7) 
endii 
CC 重用 函数 mexEvalString 传送 命令 a=070， 此 时 MATLAB 执行 
C 该 命令 将 报 区 


call mexEyalString (〈'a 一 07AD ) 


C ”关闭 报 车 功能 


call miexFEvalString 〔:warning o 直 ) 


C ”在 此 执行 命令 a 一 0/0， 此 时 MATLAB 将 不 报警 
call mexEvyalString 《hb 一 070') 


C ”开启 报警 功能 


eali mex 忆 valString 《waraing on' ) 


retHz 
end 
对 该 程序 编译 后 ， 在 MATLAEB 命令 提示 符 下 键 人 以 下 命令 
? mexeyalstring 
回 车 后 MATLAB 将 显示 如 下 内 容 
Warning : Divide by zero， 
a 一 
NaN 
b 一 
INaN 
其 中 NaN 的 含义 为 not-a-nutmnber 。 


5，bexFunction 


功 能 : 
语 法 ， 


说 有 明 ， 


FORTRAN 语言 MEX 文件 的 和 人口 点 函数 
subroutine mexgunction (nlhs ，plhs ，nrhs ，prhs) 
integerx 4 nlhs，nrhs，bplhs 《#)》，prhs 〔#) 
函数 mexFunction 为 一 个 子 例 行程 序 ， 其 四 个 形 式 参 数 的 含义 分 别 如 下 : 
。nihs 为 MEX 文件 的 输出 参数 个 数 
。 plhs 〈(* ) 为 包含 输出 参数 内 存 地 址 的 整数 数组 
。nrhs 为 MEX 文件 的 输 人 参数 的 个 数 
。prhs 〈(# ) 为 包含 输入 参数 内 存 地址 的 整数 数组 
函数 mexFunction 并 不 是 一 个 由 用 户 来 调用 的 子 例 行程 序 ， 它 是 所 有 
FORTRAN 语言 MEX 文件 的 不 可 或 缺 的 组 成 部 分 ， 是 所 有 MEX 文件 的 
和信 口 点 函数 , 通过 MATLAB 系统 来 调用 。 当 在 MATLAH 环境 中 执行 一 个 
MEX 文件 时 ，MATLAB 首先 将 寻找 并 载 人 同名 的 MEX 文件 ， 然 后 在 该 
文件 中 寻找 名 为 mexFunction 的 符号 名 ， 如 果 找 到 ， 那 么 MATILAB 将 以 
该 符号 的 地 址 作为 调用 MEX 文件 的 人 口 地 址 ， 并 且 将 函数 mexFunction 
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的 各 参数 自动 赋值 ， 如 果 在 整个 文件 中 没有 找到 名 为 mexFunction 的 符 
号 ， 那 么 MATLAB 将 否认 这 是 一 个 MEX 文件 并 给 出 相应 的 错误 信息 。 
举 例 :, 函数 mexFuncetion 是 FORTRAN 语言 MEX 文件 的 编程 基础 深入 理解 该 
函数 对 以 后 MEX 文件 的 编程 极为 重要 。 程序 mexfunction.f 是 一 个 范例 程 
序 , 它 完 成 的 功能 相当 简单 , 仅仅 是 读 取 输 人 参数 的 内 容 , 并 原封 不 动 地 赋 
值 给 输出 参数 ， 其 源 代码 如 下 : 
C mexfunction. 
C “人口 点 子 例 行 程 序 声明 及 形 参 类 型 说 明 
subroutine rmexFiinction (nlhs ，plhs ，mnrhs ，Ppths》) 
! MS$ATTRIBUTES DLLEXPORT :: MEXEUNCTION 
integer nlhs ，nrths 
integer Plhs 【xx )，prhs (《#) 


C “对 MEX 文件 中 使 用 的 API 函数 进行 声明 
integer mxJsDouble，tmxIsString，mxJIsComplex 
integer mxCGetM ，mxGCetN ，mxGetPr，ImxGetPi 
integer mxGetString ，tmxCreateString 


C ”程序 中 使 用 变量 的 声明 
integer typenutm 《100)，i, j 
integer ptT _inx。，ptr _outx，Ptr _iny，Ptr _outy，m，n，Size 
real kx 8Xx (1000)，y 【1000) 
character 100 stting 


C ”检查 输入 和 输出 参数 的 个 数 
下 《arhs . eq，0) then 
call mexErrMsgTxt 《'Iinput argutnents required，) 
end 计 
计 (nlhs .eq、0)》 then 
cail tnexErrMsgTxt 〈'Output arguments required. ) 
endi 
证 (plhs . he， nrhs) then 
call mexErrMsgTxt 《Number of output arguments tnust 
以 equal humhber of input arguments,') 
end 计 


C ”检查 所 有 输 人 参数 的 类 型 ， 并 记录 
do 10i 一 1，nrhs 

证 《mxIsDouble 《prhs 〈i)) .eq，1) then 
typetmum 《i) 一 1 

end 计 

主 (mxIsCormplex 《prhs (〈i)) .eq。 1)》 then 

typenum (1 一 2 

end 这 

让 【mxIsString 《ptrhs 《i)》.eq，1) then 
typenum 《i) 一 3 

endif 
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人 


C 


避 





对 输出 参数 进行 与 输入 参数 相应 的 类 型 设置 并 赋值 
do 20 j = 1，nrhs 
gelect Case 人 typenum 《j)7) 


当 输 入 参数 为 双 精 度 类 型 的 实数 时 : 


case(〔1) 


了 一 mxGetM 《prhs 〈j)) 
hn 一 mmxGetN (prhs 《j)》 
size 一 mm * 也 
让 《size , gt，1000》then 
eall mexErrMsgTxt 〈'Input argutment is too big，》 
end 革 f 
plhs 〈j) = 王 mxCreateFull (my ny， 0) 
ptr _inx 一 mxGetPr (prhs 0 人)) 
ptr _outx 一 mxGetPr (plhs 〈j)》 
catl mxCopyPtrToReal8g 《ptr _inx，Xx， Size) 
call mxCopyReal8ToPtr (x，Ptr _outx，3ize) 


当 输 和 人 参数 为 双 精 度 类 型 的 复数 时 ， 
case《2) 


tm 一 mxGetM (Prhs (j)) 
n 一 InxGetN (〈prhs 《)》 
size 一 mm 关 也 
这 (size , gt，1000) then 
call mexErrMsgTxt ('Input argument is too big) 
emdif 
plhs 〈(j) 王 mxCreateFull (my ny，1) 
ptr _inx 一 mxGetPr 《ptrhs 〈j)) 
ptr _outx 一 mxGetPr (plhs 《〈j)) 
ptt _iny 一 mxGetPi (Prhs 《〈j)) 
btr _outy 一 mxGetPi 《plhs 〈j)) 
call mxCopyPtrToReal8 (ptr _inx，X，size) 
call mxCopyReal8ToPtr 《xz，Pptr _outx，size) 
cajll mxCoepyPtrToReal8 (ptr _iny，y，size) 
call mxCopyReal8ToPtr (yy，ptr _OUty，size) 


当 输 入 参数 为 字符 串 类 型 时 ， 
ease《3》 


名 王 mxGetM (prhs 《()) 
n 一 mxGetN (prhs 《〈j)》 
size 一 I 基 也 
让 《m , ne， 17》 then 
calt tmexErrMsgTxt ('String must be a row vector 》 
elseif (Cn . gt，1000)》 then 
call mexErrMsgTxt ('String is too long，…) 
end 计 
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计 《mxGetString 《prhs 〈j) ，string，size》 . ne。0) then 
cail raexErTMsgTxt (〈ferrot' 7) 
end 放 


plhs G) 一 PnxCreateString 《sgtring) 
END SELECT 
20 ”continue 
ITetuUTI 
end 
对 该 程序 编译 后 ， 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 
? a 一 rand (3，3)3 
? b 一 ' 凤 elcome 上 
?7 c 一 1254 
? { 切 ，e，f 于 一 mexfunetion 《a，b，r)》 
回 车 后 MATLAB 将 显示 如 下 结果 
qd 一 
0D, 9501 0. 4860 0。 4565 
0. 2311 0. 8913 0. 0185 
0, 6068 0. 7621 0. 8214 
e 一 
Welcomel 
f 一 
125 


6。tmexGetEps 


功能, 获得 eps 的 值 

语 法，real * 8 function mexGetEps 〈) 

说 “ 明 : 函数 mexGetEps 是 一 个 函数 子 程序 ， 它 没有 任何 的 输入 参数 ， 其 返回 值 为 
MATLAB 环境 中 变量 eps 的 值 , 该 值 为 1 除 以 MATLAB 环境 中 最 大 的 浮 
点 数 的 结果 ， 在 MATLAEB 命令 提示 符 下 键入 以 下 命令 

9 epSs 
回 车 后 可 以 得 到 如 下 的 结果 

ansS 一 

2. 2204e 一 016 
eps 作为 一 种 精度 的 衡量 标准 , 在 许多 MATLAB 的 内 建 函数 中 得 到 广泛 的 
应 用 , 例如 在 求 矩阵 的 广义 道 函 数 pinv 中 , 默认 的 误差 限 就 为 eps, 当 求 出 
的 值 小 于 eps 时 , 就 认为 该 值 为 0; 在 求 矩阵 秩 的 函数 rank 中 , 也 以 eps 为 
默认 的 判 0 误差 限 。 

举例, 函数 子 程序 mexGetEps 的 使 用 方法 极为 简单 ， 不 过 在 使 用 前 必须 首先 在 程 
序 的 说 明 语句 段 进 行 声 明 ， 如 下 : 

real x 8 eps 
real x+ 8 ImnexGetEhps 
直面 就 可 以 直接 在 程序 执行 语句 中 使 用 了 ， 格 式 如 下 ， 
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eps 一 mexGetEpbs () 


7，mexCGetFuljl 


功 能 :用 于 从 MATLAB 工作 空间 中 获得 一 个 双 精 度 类 型 阵列 的 全 部 数据 ,包括 实 
部 和 虚 部 。 
语 法 ，integer x* 4 function mexGetFull (name，m，n，pry， pi) 
integerx 4 my PR，pr，BPi 
character 闪 【:# ) Pame 
说 ”了 明 ， 画 数 mexGetEFull 为 一 个 函数 子 程序 ， 其 五 个 形式 参数 的 含义 分 别 如 下 ， 
*。 形式 人 参数 name 为 希望 获取 阵列 的 名 字 ， 是 一 个 字符 串 变 量 ; 
。， 形式 参数 m 为 name 代表 的 阵列 的 行 向 基数 ， 为 整 型 变量 ; 
。 形式 参数 n 为 name 代表 的 阵列 的 列 向 量 数 ， 为 整 型 变量 ; 
。 形式 参数 pr 为 name 代表 阵列 的 实 部 数据 的 指针 ， 为 整 型 变量 ; 
。 形式 参数 pi 为 name 代表 阵列 的 虚 部 数据 的 指针 ， 为 整 型 变量 。 
该 函数 子 程序 为 用 户 提供 了 一 种 直接 从 MATLAB 工作 空间 获得 双 精 度 类 
型 阵列 的 方法 ， 它 通过 mxArray 结构 体 ,， 将 阵列 的 维 数 和 数据 指针 存放 人 
变量 m、n、pr 和 pi 中 , 接 下 来 用 户 通过 使 用 API 函数 mxCopyPtrToReal8 
就 可 以 获得 变量 pr 和 pi 所 存储 内 存 地 址 的 数据 了 .。 在 阵列 为 实数 类 型 时 ， 
变量 pi 中 旭 部 数据 的 指针 为 0。 如 果 函 数 子 程序 mexGetFull 成 功 执行 , 其 
返回 值 为 0， 否 则 为 1。 
举例 ,程序 mexGetFull.f 是 一 个 使 用 函数 mexGetFull 的 范例 程序 , 它 完成 的 功能 
相当 简单 ,仅仅 是 读 取 输 人 参数 的 内 容 , 并 原封 不 动 地 赋值 给 输出 参数 ,其 
源 代码 如 下 : 
CC mexCGetFull,f 
C 人口 点 子 例 行程 序 声明 及 形 参 类 型 说 明 


subroeutine tmexFunction (nlhs ，plhs ，nrhs ，prhs 》 

1 MS$ATTRIBUTES DLLEXPORT :: MEXFUNCTION 
integet nths ，nrhs 

integer plhs (* 》。，brhs 〔〈=#) 


C ”对 MEX 文件 中 使 用 的 API 函 敦 进行 声明 
integer mxIsDouble ，mxisComplex，mexCGetFuli 
integer mxGetPr，mxGetPi，mxCreateFuli 
character # 32 mx(GetNarme 


C ”程序 中 使 用 变量 的 声明 
integer 1 j 
integet Size 
integet Pt，piy my na， pt _in，Ppi_ 各 
TealySx (1000)，7y(〈1000》 


character * 32 haTne 


和 ”检查 输 人 和 输出 变量 的 个 数 
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-让 《nrhs. eq，0) then 
call tnexErTMesgTxt (〈Tnput arguments required, 7) 
endif 
让 (nlhs .eq. 0) then 
cell mexErrMsgTxt (〈'Output arguments required. ) 
end 放 
让 (nlhs ,pe，nrhs) then 
call tmexErrMasgTxt (Number of output argutmnents 
取 must equal nutnbetr of inPut arguiments. ')》 
end 让 
C ”检查 所 有 输入 变量 的 类 型 
do 101 一 1， nrhs 
证 (tnxIsDouble (prhbs (iD)) .ne，1)》 then 
call mexErrMegTxt 〔'JInput argtmetnts 
&& must be double type.') 
endif 
10 “cohtinue 
C ”将 输入 参数 分 为 复数 和 实数 类 型 进行 分 别处 理 
do 20j 一 1，nrhs 
诺 (mxJsComplex 〈pths 〈j)) .eq，1) then 


CC 复数 类 型 处 理 ， 
name 一 mxGetName (prhs 〈]j)>) 
atatusg 一 mexGetFull (natme，zin，ny， br _in，Ppi _in》 
plhs 〈j) 一 mxCreateFull (my，n，17) 
size 一 TD 外 佣 
BIT 一 tmxGetPr 《pihs 《3)) 
hi 一 mxGetPi (plhs (0)) 
call mxCopyPtrToReal8 (pr _in，x，size) 
call rnxCopyRealgToPtr (x，Pr，size) 
call mxCopyPtrToReal8 (Pi _in，y，size) 
catl mxCopyReal8ToPtr (y，pij，size) 

else 


C ”实数 类 型 处 理 ， 
patmne 一 ImxGetName 《prhs 〈j)7) 
status 一 mexGetFuil (name，m，n，pr_i，Fi_ 识 ) 
plhs (j) 王 mxCreateFull (m，n，0) 
Size 一 TI 共 卫 
Pr 一 mmzGetPr (plhs 《〈j)) 
ealt mxCopyPtrToReal8 (pr _ 记 ，x，size) 
call mxCopyReal8ToPtr (x，Pr，size) 
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8，mexGetGiobai 








对 该 程序 编译 后 ， 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 
? 8a 一 rand 《5)3 
? b 一 1 一 ij; 
? [ec，d] 一 mexgetiull (a，b) 

回 车 后 MATLAB 将 显示 如 下 结果 


人 一 


则 一 


0. 9501 0. 7621 0. 6154 0. 4057 0. 0579 
0. 2311 0, 4565 98, 7919 0,. 9355 0. 3529 
0. 6068 0.0185 0. 9218 0. 9169 0.8132 
0. 4860 0D. 8214 0. 7382 0. 4103 0. 0099 
0. 8913 0 4447 0. 1763 0. 8936 0. 1389 


1.0000 一 1. 0000i 


功 能 ,从 MATLAB 的 全 局 变量 空间 中 获取 一 个 mxArray 结构 体 的 指针 。 


语 ”法 ，integet * 4 function mexGetGlobal (name》) 


说 ” 明 ， 


character xx 《< ) natme 

函数 为 一 个 函数 子 程序 ， 通 过 该 函数 子 程序 ，MEX 文件 可 以 根据 名 字 从 
MATLAB 的 全 局 变量 空间 中 获取 一 个 mxArray 结构 体 的 指针 。 其 输 人 参 
数 为 一 个 字符 申 类 型 的 变量 或 常量 , 代表 一 个 mxArray 结构 体 的 名 字 , 若 
该 梢 数 子 程序 执行 成 功 , 将 返回 一 个 指向 一 个 mxArtray 结构 体 的 指针 , 存 
放 在 一 个 整 型 变量 中 ， 否 则 将 返回 0。 


: 程序 mexgetglobal.f 是 一 个 使 用 函数 mexGetGlobal 的 范例 程序 , 它 完成 的 


功能 相当 简单 ， 仅 仅 是 读 和 人 MATLAB 全 局 变革 空间 中 的 某 个 变量 的 内 容 ， 
并 原封 不 动 地 赋值 给 输出 参数 ， 程 序 中 我 们 假设 存在 一 个 名 为 a 的 全 局 变 
量 ， 其 源 代 码 如 下 ， 


C 


人 入口 点 子 例 行 程序 声明 及 形 参 类 型 说 明 
subroutine mexFunction 《nlhs ，plhs ，nrhs，prhs》 
: MS$ATTRIBUTES DLLEXPORT :: MEXFUNCTION 
integer nths ，nrhs 

integet plhs 《# )，Prhs 《+ ) 

对 MEX 文件 中 使 用 的 API 函数 进行 声明 

integer mxIjsDoubie ，mxIsComplex，mexGetClobal 
integer InxGetPr，mxCreateFull 
integer mxGetM ，mxGetN 

变量 声明 

integer sjze，PtT 

integer Pt， ty 口 ，PT _ 误 

xeal x8x (1000) 


检查 输入 和 输出 参数 的 个 教 
主 Cnrhs .ne，0) then 
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call mexErtrMsgTxt 〈'No input argurments tequited.'》 
enqd 计 
让 (nlhs, ne，1) then 
call mexErrMsgTxt (〈'One output argutmnents required.) 
end 正 
C ”获取 MATLAB 全 局 变量 a 的 内 存 指针 
ptt 一 InexGetGlobal 〔'a') 
主 《ptr .eq，0) then 
call mexErrMegTxt (No such a var./)》 
endif 
C ” 获 了 东 变量 a 的 维 数 
mm 一 tnxGetM 《ptr) 
n 一 mxGetN 《ptr) 


size 一 珀 # 了 


C 检查 变量 a 是 否 为 双 精 度 类 型 
下 (mxIsDouble 〈ptr) . ne，1) then 
call mexErrMsgTxt 〈'Var must be Double type,") 
end 计 
C 四 制 变量 a 的 大 小 
让 《size , gt，1000》 then 
call ImmexErrMsgTxt (Var is too big…) 
end 寺 


C ”检查 变量 a 是 否 实数 类 型 
寺 《mxIsCormplex 《ptr》 .eq，1)》 then 
call mexErrMsgTxt (Var imnust be real.') 
em 于 


C “为 输出 参数 赋值 
p_iDP 一 mxGetPr (Ptr) 
blhs (1) 一 mxCreateFull (m，n，0) 
Pr 一 mxGetPr (plhs 〈177) 
call mxCopyPtrToReal8 (Pr _in,， X，3size) 
call inxCopyReal8ToPtr 〈《x，br，3ize7 


TetUTIZ 
end 
对 该 程序 编译 后 ， 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 
? 8a 一 rand 《523 
?global a 
? b 一 mexgetglobal 
回 车 后 MATELABS 将 显示 如 下 结果 
bb 一 
0. 9501 0. 7621 0. 5154 0,. 4057 0.0579 
0. 2311 0. 4565 0.79319 0. 9355 0 3529 
0, 6068 0.0185 0. 9218 0.9169 0 8132 
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0. 4860 0. 8214 0.7382 0. 4103 0. 0099 
0.8913 0. 4447 0. 1763 0. 8936 0. 1389 


93，bmexGetInf 


莹 旅 总 


10. 


冰 寺 


能 : 
法 ， 
明 ; 


获取 无 穷 大 的 值 。 
real x 8 function mexGetInf () 
函数 mexGetInf 为 一 个 函数 子 程序 ， 通 过 该 函数 子 程序 、 用 户 可 以 从 返回 
值 中 获得 自己 系统 上 无 穷 大 的 值 . Inf 为 JEEE 所 规定 的 一 个 用 来 表示 无 穷 
大 的 符 导 ， 在 下 列 情况 下 运算 将 返回 Inf 作为 计算 结果 ， 

”被 零 除 ,如 10 70 

*。 数值 溢出 ， 如 exp 《100000) 


: 函数 子 程序 mexGetInf 的 使 用 方法 极为 简单 ， 不 过 在 使 用 前 必须 首先 在 程 


序 的 说 明 语 句 段 进行 声明 ， 如 下 ， 
real x 8 inf 
real x 8 mexCGetJnf 
下 面 就 可 以 直接 在 程序 执行 语句 中 使 用 了 ， 格 式 如 下 : 


inf 一 mexGetInf () 


mex(GetMatTrix 


能 ， 
法 ， 


从 调用 者 的 工作 空间 复制 一 个 mxArray 结构 体 。 

integer x 4 function mexGetMatrix 《namey》 

character x# 《# ) name 

函数 mexGetMatrix 为 一 个 函数 子 程序 ， 通 过 该 画 数 子 程序 ，MEX 文件 可 
以 根据 名 字 从 调用 者 的 工作 空间 中 复制 一 个 mxArray 结构 体 。 其 输 人 参数 
为 一 个 字符 串 类 型 的 变量 或 常量 ,代表 一 个 mxArray 结构 体 的 名 字 ,， 若 该 
画 数 子 程序 执行 成 功 , 将 返回 一 个 指向 一 个 新 分 配 的 mxArray 结构 体 的 指 
针 ， 存 放 在 一 个 整 型 变量 中 ， 否 则 将 返回 0。 


， 程 序 mexgetmatrix.f 是 一 个 使 用 函数 mexGetMatrix 的 范例 程序 ， 它 完成 


的 功能 相当 简单 ,仅仅 是 读 人 调用 老 工 作 空间 中 的 某 个 变量 的 内 容 ,并 原封 
不 动 地 赋 信 给 输出 参数 , 程序 中 我 们 假设 存在 一 个 名 为 a 的 变量 , 其 源 代 码 
如 下 : 
忆 meXEgetrInatrix. 
C ”人口 点 子 例 行 程序 声明 及 形 参 类 型 说 明 
stbroutine tmexFunction 《nihs ，plhs ，nrhs ，prhes》 
1 MS$ATTRIBUTES DLLEXPORT :: MEXFUNCTION 
integer nihs ，nrhs 
integer pijhs 《*# 》，Prhs 〈《*# ) 
C “对 MEX 文件 中 使 用 的 API 画 数 进行 声明 
integer tmxIsDouble，mxIsCompiex，mexGetMatrix 
integer mxGetPr，tmnxGetPi，mxCreateFull 
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integer mxGetString ，mxCreateString 
integer rnXxGetM ，raxGetN ，mxIsStting 


程序 中 使 用 变量 的 声明 

integer size ，btT 

integer pr，piy mn pr _in，pi _in 
real +*8x《【10007，7y《〔《1000) 
charactet # 1000 String 


检查 输入 和 输出 参数 的 个 数 
下 《orhs ,ne，0》 then 

eall InexErrMsgTxt 《No input arguments required. ”) 
endif 
让 《nlhs , ne，1)》 then 

call mexErrMsgTxt 《'One output argument3s required. 》 
end 计 


假设 MATLAB 工作 环境 中 存在 一 个 名 为 a 的 变量 
ptr 一 tmexGetMatrix ('a") 
计 (ptr .eq 0) then 
call mexErrMsgTxt (No such a var) 
endqij 
获取 变量 a 的 维 数 
m 一 mxGetM (PtT) 
匀 一 mnxGetN 《ptr) 


Size 一 tm # 国 


检查 变量 a 的 类 型 
让 《mxlsDouble 《Pttr) .eq，1) then 
如 果 a 为 双 精 族 类 型 


对 a 的 大 小 进行 限制 
证 (size .多 t，1000) then 
call mexErrMsgTxt (〈'Var is too big.》 
endif 
让 (tmmxJsComplex 〈Pptr) .eq 1) then 


变量 a 为 复数 类 型 

Pr _in 一 InxGetPr (ptr》 

pi _in 一 mxGetPi (ptr》 

Blhs 《1) 一 mxCreateFull (m，n，1) 

Pr 王 mxGetPr (plhs (1)) 

Pi 一 mxGCetPi 《plhs (1)》 

call mxCopyPtrToReal8g 《Pr _in，x，size) 
call mxCopyReal8ToPtr (x，pr，size) 
call mxCopyPtrToReal8 〈Pi _in，y7，size) 
call mxCopyReal8ToPtr 《y，pi，size) 


else 


变量 a 为 实数 类 型 
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Pr _in 一 mxGetPr 《ptr) 

pihs 《1》 三 mxCreateFull 《m，nh，0) 

pr 一 mxGetPr (plhs (1)》 

call rmxCopyPtrToReal8 (pr _inE，X，s5jze) 

call mxCopyReal8ToPtr 《x，pr，8ize) 
endl 计 


else 


C 判断 a 是 否 为 字符 串 
让 (mxJlsString 〈ptr》 ,eq，1) then 
这 (m .ne， 1 .or，n .gt，1000) then 
call IaexErrMsgTxt (String must be a TOW 
尽 and less than 1000.7) 
endif 
status 一 mxGetString 《ptr，string ，8izc) 
Plhs 《1》 一 mxCreateString 〈string) 
Fetuth 
end 让 
call mexErrMasgTxt 《'Type i net supportted. ) 
endif 


Yeturtn 
end 
对 该 程序 编译 后 ， 在 MATLAE 命令 提示 符 下 键 人 以 下 命令 
2? a=rand (5)#; 
? b 一 tnexgetrmmattix 
回 车 后 MATLAB 将 显示 如 下 结果 
bb 一 
0. 950D] 0, 7621 0, 6154 0. 4057 0. 0579 
0. 2311 0. 4565 0, 7919 0. 9355 0. 3529 
0. 6068 0.0185 0. 9218 0.9169 0. 8132 
TD. 4860 0. 8214 0, 7382 0. 4103 0. 0099 
0. 8913 0,，4447 0.1763 0,. 8936 0 1389 


11，mex(etMatrixPtr 


功能 ， 获 取 调用 者 工作 空间 中 某 个 mxArray 结构 体 的 指针 。 


语法 ，integer * 4 function mexGetMatrixEtr Cnatne) 


说 ” 骨 , 函数 mexGetMatrixPtr 为 一 个 函数 子 程序 , 通过 该 函 教子 程序 , MEX 文件 
可 以 根据 名 字 从 调用 老 的 工作 空间 中 获取 某 个 mxArray 结 梅 体 变量 的 指 
针 。 其 输入 参数 为 一 个 字符 串 变 量 ， 代表 了 调用 者 工作 空间 中 的 某 个 mxAr- 
ray 结构 体 类 型 变量 的 名 字 ， 若 该 还 数 子 程序 执行 成 功 , 将 返回 一 个 指向 名 
为 natne 的 inxArray 结构 体 的 指针 ,并 存放 在 一 个 整 型 变量 中 , 否则 将 返回 


character # 【《 关 ) name 


0， 结 构 体 mxArray 既 可 以 为 满 矩 阵 ， 也 可 以 为 稀 朴 矩阵 。 
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通过 该 函数 子 程序 返回 的 指针 ， 用 户 可 以 在 MEX 文件 中 利用 MATLAB 
API 提供 的 库 冰 数 对 结构 体 的 数据 进行 读 取 和 修改 。 但 是 这 里 必须 非常 注 
意 一 点 ， 由 函数 子 程序 mexGetMatrixPtr 所 返回 的 指针 所 指向 的 内 存 区 城 
位 于 MATLAB 的 工作 空间 的 内 部 ， 主 要 包括 了 名 为 name 的 mxArray 结 
构 体 的 实数 部 分 、 虑 数 部 分 以 及 与 稀 朴 矩阵 相关 联 的 各 阵列 , 对 于 它们 的 管 
理 主要 通过 MATLAB 的 内 部 机 制 来 完成 ， 不 允许 用 户 对 这 些 内 存 段 进行 
任何 形式 的 操作 , 例如 释放 和 重新 分 配 , 否则 将 导致 MATLAB 系统 的 立即 
上 崩溃。 这 也 是 函数 子 程序 mexGetMatrixPtr 与 函数 子 程序 mexGetMatrix 
之 间 非 常 重要 的 一 点 区 别 , 在 函数 子 程序 mexGetMatrix 中 , 画 数 返 回 的 是 
名 为 name 的 mxArray 结构 体 变量 的 一 个 拷贝 内 存 指针 ， 用 户 在 使 用 完毕 
后 可 以 对 该 内 存 区 域 进行 释放 ， 而 不 会 影响 MATLAB 的 运行 

举例 , 程序 mexgetmatrixptr.f 是 一 个 使 用 函数 mexGetMatrixPtr 的 范例 程序 , 它 
完成 的 功能 相当 简单 , 仅仅 是 读 人 调用 者 工作 空间 中 的 某 个 变量 的 内 容 , 并 
原封 不 动 地 赋值 给 输出 参数 , 程序 中 我 们 假设 存在 一 个 名 为 a 的 变量 , 其 源 
代码 如 下 ， 

蕊 tnexgetmatrixPptr. 蔗 


C “人口 点 子 例 行 程序 声明 及 形 参 类 型 说 明 
subroutine tmexFunction 《nlhs，Plhs ，nrhs ，prhs) 
1 MS$ATTRIBUTES DLLEXPORT :: MEXFUNCTION 
integet nlhs ，nrhs 
integefr plhg 〔(:*+ 》，Pptrhs (:*》 


C ”对 MEX 文件 中 使 用 的 API 函数 进行 声明 
integer tnxIsDouble，mxJsComplex，mexGetMatrixPtr 
jnteget mxGetPr ，mxGetPi，mxCreateFull 
认 teger mxCGetString ，mxCreateString 
integet ImnxGetM ，mxGetN ，mxIsString 


C ”和 惟 序 中 使 用 变量 的 声明 
integer Size ，PtT 
integetr pr， pi mm，pT _ 间 ，pi _in 
real kx 8x《【《1000)，y 《1000) 
character #+ 1000 string 


C ”检查 输入 和 连 出 参数 的 个 教 
计 (nrhs . ne，0) then 
call tmexErrMsgTxt 〔〈“No input argutments required.) 
end 计 
夺 《alhs .ne，1) then 
call mexErrMsgTxt (CDne output argutments required，) 
endif 
C ”假设 MATLAB 工作 环境 中 存在 一 个 名 为 a 的 变量 
ptt 一 mexGetMatrizPtr 〈'a') 
证 【Ptr ,eq 0)》 then 
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call mexErrMasgTxt (〔 Ne such a var，》 
engif 


C ”获取 变量 a 的 维 数 
如 一 mxGetM (Ptr) 
nn 一 mxGCetN 《ptr) 


size 一 rm 关 卫 


C ”检查 变量 a 的 类 型 
计 《mxIsDouble (ptr)y ,eq，I) then 
如 有 梁 a 为 双 精 度 类 型 


对 a 的 大 小 进行 限制 
计 《size . gt，1000》 then 
call mmexErrMsgTxt 〔〈'Var ie too big,，) 
endif 
计 (InxIsComplex 《btr) .eqg，1) then 
C 变量 s 为 复数 类 型 
pr _in 一 mxGetPr [ptr》 
pi _in -= mxGetPi 《ptt) 
plhs 〈1) 一 mxCreateFull (m，n，1) 
pr 一 tmnxGetPr (plhg 〈]72) 
Ri = mxGetPi (plhs 《1)) 
call mxCopyPtrToRealg 《pr _imn，x，size) 
call InxCopyReal8ToPtr (x，Ppr，sijze) 
call mxCopyPtrToReal8 〈pPi_ 记 ，y，8size) 
cail rmxCopyReal8ToPtr 《y，Ppi，size) 
else 


C 变量 a 为 实数 类 型 
pr in 一 InxGetPr 〈ptr) 
Plhs (〈1)》 一 mmxCreateFul (m，n，0》 
pr 一 InxGetpr (plhs (17)) 
call tnxCopyPtrToRealg (〈Pr _in，x，size) 
call ImxCopyReal8ToPtr (x，Pr，sgize) 
endif 
elae 


C 判断 a 是 否 为 字符 串 
证 (mxIlsString 〈ptr) .eq。1) then 
和 让 (m .ne， 1 .or n .gt，1000) then 
eall mexEtrMsgTxt 《 String must be a TOW 
& and less than 1000.7) 
endi 
status 一 mxGetString 《ptr，string，Bize) 
plhs 《1) 一 mxCreateString (sgtring) 
retarn 
endif 


流下 过 


13. 


陨 总 
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call InexErrMagTxt (〔〈 Type i not suppotted,7) 
engd 正 


TetUT 了 nr 
end 
对 该 程序 编译 后 ， 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 
? 8 一 rand 57)4 
? b 一 Inexgettmatrix 
回 车 后 MATLAB 将 显示 如 于 结果 
b = 
0. 9501 0. 762I 0. 6154 0. 4057 0.0579 
0. 2311 0. 4565 0,. 7919 0, 9355 0. 3529 
0. 6068 0. 0185 2. 9218 0. 9169 0. 8132 
0, 4860 0. 8214 0.7382 0, 4103 0.0099 
0. 8913 0. 4447 0. 1763 0. 8936 0. 1389 


，imexGetNaN 


能 用 于 获取 MATLAB 内 部 变量 NaN 的 值 。 


:法 .real * 8 function mexGetNan () 


明 ， 范 数 mexGetNaN 为 一 个 郴 数 子 程序 ， 通 过 该 函数 子 程序 ， 用 户 可 以 获得 
MATLAB 系统 中 内 部 变量 NaN 的 值 . NaN 为 IEEE 擅 规 定 的 一 个 用 来 表 
示 数 学 运算 中 无 法 用 数字 表示 的 量 的 符号 , 其 含义 为 Not-a-Number, 在 下 
列 情 况 下 ， 运 算 返 回 NaN 作为 运算 结果 ， 
。 0.0700 
*。 Inf - Inf 
例 , 范 数 子 程序 mexGetNaN 的 使 用 方法 极为 简单 , 不 过 在 使 用 前 必须 首先 在 程 
序 的 说 明 语 句 段 进行 声明 ， 如 下 ， 
Teal x 8 NaN 
real x 8 mexCetNaN 
下 面 就 可 以 直接 在 程序 执行 语句 中 使 用 了 ， 格 式 如 下 ， 
NaN 一 mexGetNaN () 


mexIsFinite 


能 :判断 一 个 数量 是 否 为 一 个 有 限 值 。 

法 ，integer x* 4 function mexJsFinite 〈value) 
real # 8 valiue 

明 , 函数 mexIsFinite 为 一 个 函数 子 程序 , 通过 该 函数 子 程序 ,用 户 可 以 判断 一 
个 数量 是 否 为 有 限 值 ， 一 般 情 况 下 ， 如 果 一 个 数量 既 不 为 Inf 也 不 为 NaN， 
那么 它 一 定 为 有 限 值 。 函 赦 子 程序 mexIsFinite 的 输入 参数 为 一 个 双 精 度 浮 
点 类 型 的 数值 变量 value, 当 value 为 一 个 有 限 值 时 , 返回 值 为 1, 否则 为 0。 

例 , 函数 子 程序 mexIsFinite 的 使 用 方法 极为 简单 , 不 过 在 使 用 前 必须 首先 在 程 


2232 


14， 


殉 如 


15， 


请 学 


16- 


功 
语 


MATLAB 应 用 程序 接口 用 户 指南 


序 的 说 明 语 句 段 进行 声明 ， 如 下 ， 

integeT 和 胡 

integer InexlsFinite 
下 面 就 可 以 直接 在 程序 执行 语句 中 使 用 了 ， 格 式 如 下 ， 
和 一 mexGetNaN (B) 


mexlsInf 


能 ;判断 一 个 数值 是 否 为 无 穷 大 Inf 。 
法 ，integet * 4 function mexIsinf 《value》 
real x 8 value 
明 : 琐 数 mexisJnf 为 一 个 函数 子 程序 ， 遂 过 该 杀 数 子 程序 ， 用 户 可 以 判断 一 个 
数量 是 否 为 无 穷 大 。 其 输入 参数 为 一 个 双 精 度 浮 点 类 型 的 数值 变量 value， 
当 value 为 Inf 时 , 表 数 返回 值 为 1， 否 则 为 0。 有 关 无 穷 大 inf 的 定义 请 读 
者 参见 函数 mexGetInf 的 说 明 。 
例 ， 函数 子 程序 mexIsInf 的 使 用 方法 极为 简单 ,不 过 在 使 用 前 必须 首先 在 程序 
的 说 明 语 句 段 进行 声明 ， 如 下 ， 
integer Ini 
integer ImexJlsInf 
下 面 就 可 以 直接 在 程序 执行 语句 中 使 用 了 ， 格 式 如 下 ， 
Inf 一 InexJsInf 〔) 


ImexlsNaN 


能 ， 判 断 一 个 数值 是 否 为 NaN 。 
法 ，integer x 4 function mexIsNaN (〈value) 
teal x* 8 value 
明 ， 函 数 mexIsNaN 为 一 个 画 数 子 程序 ， 通 过 该 郴 数 子 竹 序 ， 用 户 可 以 判断 一 
个 数量 是 否 为 NaN 。 其 输入 参数 为 一 个 双 精 度 浮 点 类 型 的 数值 变量 value， 
当 value 为 NaN 时 ， 函 数 返 回 值 为 1， 否 则 为 0。 有 关 NaN 的 定义 请 读者 
参见 函数 mexGetNaN 的 说 明 ， 
例 ， 函 数 子 程序 mexjsNaN 的 使 用 方法 极为 简单 ， 不 过 在 使 用 前 必须 首先 在 程 
序 的 说 明 语句 段 进行 声明 ， 如 下 ， 
integer NaN 
integer mexJIsSNaN 
下 面 就 可 以 直接 在 程序 执行 语句 中 使 用 了 ， 格 式 如 下 ， 
NaN 一 mexIsNaN () 


miexPrintt 


能 : 输出 信息 。 


法 ， subroutine mexPrintf{ 《messagey) 
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Character kk 【《 关 ) message 

说 ”了 明 ,函数 mexPrintf 为 一 个 子 例 行 程序 ,用 于 向 屏幕 上 输出 一 定 的 信息 , 在 MEX 
文件 中 可 以 直接 使 用 call 关键 字 调 用 , 其 输入 参数 为 一 个 字符 串 变 量 , 它 包 
含 了 用 户 希 望 输出 的 信息 。 这 里 必须 非常 注意 的 一 点 是 符号 %% 对 于 函数 
mexPrintf 来 说 具有 特殊 的 含义 ， 如 果 用 户 希 望 在 输出 的 信息 中 包含 符 
号 %， 则 必须 书写 为 % 外 ， 否 则 将 会 产生 意 想不到 的 结果 。 


举例 ，call mexPrintf (Please input the tmatrix:; ) 
17，tmexPutFujl 


功能， 用 于 向 调用 者 的 工作 空间 输出 一 个 存储 类 型 为 满 的 mxArray 结构 体 。 
语 法， integer * 4 function mexPutFull (name，m，nh，Pt，Pi) 
integerfr xx 4 mn，pr，Ppi 
charactef x 【《:# 》natne 
说 ” 明 ; 函数 mexPutFull 为 一 个 函数 子 程序 ,通过 该 函数 子 程序 , 用 户 可 以 方便 地 
向 MEX 文件 的 调用 者 的 工作 空间 输出 一 个 存储 类 型 为 满 的 mxArray 结构 
体 ， 其 五 个 输 和 人 参数 的 类 型 和 含义 分 别 如 下 ， 
。name 为 一 个 字符 串 变 基 ， 包 含 了 输出 的 mxArray 结构 体 的 和 名字: 
，m 为 一 个 整 型 变量 ， 包 含 了 输出 的 mxArray 结构 体 的 行 向 量 的 个 
数 ; 
。 nm 为 一 个 整 型 变量 ， 包 含 了 输出 的 mxArray 结构 体 的 列 向 量 的 个 
数 ; 
”PT 为 一 个 整 型 变量 ， 包 含 了 指向 输出 的 mxArray 结构 体 的 实数 数 
据 部 分 的 指针 ; 
。Ppi 为 一 个 整 型 变量 ,包含 了 扫 向 输出 的 mxArray 结构 体 的 串 数 数据 
部 分 的 指针 。 
如 果 该 函数 执行 成 功 ， 其 返回 值 为 0， 否 则 为 1。 如 果 在 调用 者 的 工作 空间 
中 已 经 存在 名 为 name 的 mxArray 结构 体 ， 那 么 旧 的 结构 体 将 为 新 的 结构 
体 所 覆盖 。 
举例 , 程序 mexputfull.f 是 一 个 使 用 本 数 mexPutFull 的 范例 程序 , 它 完 成 的 功能 
相当 简单 , 首先 对 输入 的 参数 进行 类 型 判断 , 并 分 类 , 若 输入 参数 为 复数 类 
型 , 则 将 输入 参数 的 实 部 和 虚 部 交换 , 若 输入 参数 为 实数 类 型 ， 则 将 所 有 的 
数据 取 绝 对 值 , 完成 这 些 工作 后 , 以 相同 的 名 字 将 操作 结果 输出 到 调用 者 的 
工作 空间 , 若 输入 的 参数 类 型 不 为 双 精度 类 型 , 则 报销。 程序 的 源 代 码 如 下 ， 
立 tnexPutful]l. 工 
C 人口 点 子 例 行 程 序 声明 及 形 参 类 型 说 明 
subroutine mexFunetion (nths，plhs，nrhs，Pprhs) 
1 MS$ATTRIBUTES DLLEXPORT :: MEXEREUNCTION 
integer nlhs ，nrhs 
integer plbs 【xx )，prhs 《+* ) 
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C “对 MEX 文件 中 使 用 的 API 函数 进行 声明 
训 teger zxXIsDouble ，mxJIsComplex，mexGetFull ，mexPutFull 
Sharacter x 32 mxCetName 


刀 ”变量 声明 
integer ij， j，typenum 【10)7，status 
integer br ，pi，m，I，size 
Teal x 8 x〈1000) 
charactet x 32 narne 


C ”对 输入 和 输出 参数 个 数 的 检查 
让 (nrhs , eq， 0) then 
call mexErrMesgTxt 〔(At least one input argutnent reqtired…) 
endi 计 
让 《nrhs . gt，18) then 
call mexErrMsgTxt (〈'Input argutment tmtuast be less than 10，) 
endq 放 
让 (nlhsg . ne，0) henm 
eall mexErrMsgTxt ('No output argutment required.…) 
endif 
C ”对 输入 参数 类 型 的 判断 
do 101i 一 1，nths 
证 (mxlsDouble 《prhs 《i)) .eq，1)》 then 
让 (mxIsComplex (prhs 《i》) ,ea，1) thenm 
typenutm 《i)》 一 1 


else 
typenutm (iD 一 2 ， 
end 计 
endif 
10 。 continue 
C ”处理 过 程 


de 20 j 一 ]1， nrhs 
select case (typenutm 《j7) 


C 当 输 入 参数 为 复数 类 型 时 : 将 实 都 与 崖 部 进行 交换 
Case 1) 
name 一 加 xGetNatme 人 《prhs 《j)) 
下 (mexGetFull (name，tmn n，pr，pi》 .he。0)》 then 
call mexErrMsgTxt (Reading input 
入 argument Occuta eITOt- ) 
end 计 


8ize 一 nI 关 也 
计 〔size , gt， 1000) then 
call tmexErrMsgTxt (Input argutnent is too big，) 
en 人 这 
status 一 mexPutFull (name，rm 0，pbiy，pry 
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C 当 输 和 人 参数 为 实 亚 时 ， 取 绝对 值 
case【〔《2》 

narme 一 mxGetNatne 《prths 《〈j)) 

旋 (mtexGetFutl (name， my npr _ 识 ，Piy ,ne，0)》 then 
call mexErrMsgTxt 《Readqing input 

&& argUIment OcCcUS ertor, )》 

end 让 

size 一 In # 了 

证 (size . gt 1000) then 
call mexErrMsgTxt 《Input argument 襄 too big，) 

end 计 

call mxCopyPtrToRealg 【pr，x，size) 

x 一 及 BS《x》 

call mnxCopyReal8ToPtr (x，Pr，size) 

status 一 mexPuotFujl 《name ,my pr，pi) 


END SELECT 
20 ”continue 


TetutD 
end 
对 该 程序 编译 后 ， 在 MATLAB 命令 提示 符 下 键入 以 下 命令 
? a 一 1 一 2i 
1.0000 一 2.0000i 
?7 b 一 一 1 
三 
一 1 
? mexputfull (a，by》 
回 车 后 ， 键 入 以 下 命令 可 得 
? 8 
一 2. 0000 十 1.000G 
?hb 
下 


1 
可 见 变 量 a 和 bb 已 经 按 要 求 进行 了 改变 。 


18，mexPutMatrix 


功 能， 向 调用 者 的 工作 空间 输出 一 个 mxArray 结构 体 。 


语法 ，integer x* 4 function mexPutMatrix 《mp) 


integeT < 4 mp 


说 有 明 , 画 数 mexPutMiatrix 为 一 个 函数 子 程序 ， 它 与 函数 mexPutFull 所 实现 的 功 


能 一 致 , 不 过 实现 的 方式 不 同 。 函数 子 程序 mexPutMatrix 公有 一 个 类 型 为 
整 型 输 人 参数 mp， 它 包含 了 希望 输出 到 调用 者 工作 空间 中 的 mxArray 结 
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梅 栖 的 内 存 指针 。 如 果 该 函数 子 程序 成 功 执 行 , 其 返回 值 为 0, 否则 为 1。 当 
调用 者 的 工作 空间 中 存在 与 输出 的 mxArray 结构 体 同 名 的 mxArray 结构 
体 时 ， 原 有 的 mxArray 结构 体 将 被 覆盖 。 
举例 ,程序 mexputmatrix.f 是 一 个 使 用 梢 数 mexPutMatrix 的 范例 程序 ， 它 完 
的 功能 相当 简单 , 首先 对 输入 的 参数 进行 类 型 判断 , 并 分 类 , 若 输入 参数 为 
复数 类 型 , 则 将 输入 参数 的 实 部 和 虚 部 交换 ; 若 输入 参数 为 实数 类 型 ， 则 将 
所 有 的 数据 取 绝 对 值 ; 若 输 人 的 参数 为 字符 串 类 型 , 则 保持 原样 不 动 , 完成 
这 些 工 作 后 ,以 相同 的 名 字 将 操作 结果 输出 到 调用 者 的 工作 空间 .程序 的 源 
代码 如 下 : 
己 tmexPputmatriX. 了 
C 人口 点 子 例 行 程序 声明 及 形 参 类 型 说 明 
subroutine mexFunetion (nihs，plhs ，ntrhs ，prhs) 
1 MS$ATTRIBUTES DLLEXPORT :: MEXFUNCTION 
integer nlhs ，nrhs 
integer plhs (#* )，prhs 《#D) 
C ”对 MEX 文件 中 使 用 的 API 函数 进行 声明 
integer ImxjsDouble，mxIsString ，mxIsComnplex 
integer ImxGetM，mxGetN ，imxGetPr，mxCetPi 
integet mxXGetString ，maxCreateStrin 帮 
chatracter x 32 ImxCetName 


C 程序 中 使 用 变量 的 声明 
integer typenum (100)，i, j，output 〈《100) 
integer ptr _inx，PtT _outx，ptr _iny，ptr _outy，m， n， size 
realx8x(1000)，y【〈1000) 
character # 100 string 
character * 32 name 《100) 


C ”检查 输入 和 输出 参数 的 个 数 
证 (nrhs .eq、0) then 
call tnexErrMsgTxt (〔〈“Input arguments required， 号 
etdif 


让 (nrhs . gt， 100) thea 
call mexErrMsgTxt 〈'Input arguments must be less than 100，) 
end 放 


i (nlhs . ne、0) then 
call mexRrrMsgTxt 《'No output argurnenta Tequired，) 
end 让 


C ”检查 所 有 输入 参数 的 类 型 ， 并 记录 
do 101i 一 1，nrhs 
让 (mxIsDouble 〈prhs (0)) .eq，1) theua 
typenum (〔i)y 一 1 
end 计 
让 (tnxIsCotmplex 《prhs 〈i)》 ,eqg。1》 then 
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ee 


typenum (ki) 一 2 

endif 

让 (mxIsString (prhs 《i)》.eq，1) then 
typenuom (i)》 一 3 

enq 这 

name 〈i) 一 mmxGetNatne 〔prhs (i)) 


10 continue 


C ”对 输出 参数 进行 与 输 人 参数 相应 的 类 型 设置 并 冉 值 
do 20 j 一 1，nThs 
seject cage 〔typenhnam (j)) 


C 当 输 入 参数 为 双 精 度 类 型 的 实数 时 ， 
case (1)》 
m 一 InxGetM (prhs 《j)》 
n 一 mxGetN (prhs 〈j)) 


Size 一 im 站 娄 


证 (size , gt。]10002》 then 
call InexErrMsgTxt 〔〈'Input argument is too big.) 
endif 


output 《j》 一 tnxCreateFull (my， ny，0) 

Ptr _inx 一 mxGetPr 《pfhs 《))) 

ptr _outx 一 tmxGetPr (output 〈j)》 

call mxCopyPtrTeReat8 (ptr _inx，X，size) 
X 一 友 BS (xy》 

call InxCopyReal8TePtr (x，ptr _outX，size》 
call mxSetName 《eutput (j)，name 《j) 
status 一 IneXxPutMatrix (output 〈j)》 


C ” 当 输 入 参数 为 双 精 度 类 型 的 复数 时 : 
case〔2》 
mm 一 mnxGetM (Prhs 〈j)) 
n 一 mxGetN (prhs 《j)》 


size 一 mm 共 全 


计 (size ,gt，1000) then 

call mexErrMsgTxt 〔"Input argument is too big，》 
end 让 
outpbut 〈j)》 一 maxCreateFull (m，p，]》 
ptr _inx 一 mxGetPr 《prhs 〈j)》 
ptr _outx 一 mmxGetPr (output 全 7) 
ptr _iny 一 mxGetPi 《prhs 《〈j)》 
ptr _outy 一 如 xGetPi 《output (j)) 
call mxCobpyPtrToReal8 (PtT _inx，x，size) 
call mnxCopyReal8TePtr (x，PtT _outy，size) 
call tmxCopyPtrToReaI8 《ptr _iny，y7，size) 
cail mxCopyReal8ToPtr 《7，Pptr _ OutX，size) 
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call tmxSetName 《cutput 〈j)，narme 《j)) 
status 一 PnexPutRfatrix 《output 〈j)》 


C ” 当 输 和 参数 为 字符 串 类 型 时 ， 
case《3) 
tm 一 tnxGetM 《Prhs (7) 
n 一 mxGetN (prhs (j)》》 


size 一 tm 基 卫 


于 人 (m .ne，1) then 

call mexErrMsgTxt 〔〈'Strinpg must be a tow vector' ) 
elseif {n .gt，1000)》 then 

call mexErrMsgTxt 《String i too long.) 
end 让 


开 (mxGetString 《prhs 《〈j)，string，size)》 .ne。0) then 
call mexErrMsgTxt 《error' ) 
end 计 


output (〈j) 一 mxCreateSttring 《string) 
fa]j tmxSetName 〈output (，name 〈j) 
stattsg =- InexPutMatrix (output 〈j)) 


END SELECT 
20 ”eceontinue 
retur 
end 
对 该 程序 编译 后 ， 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 
? a 一 1 一 与 
a 一 
1. 0000 一 2. 0000i 
? b 一 一 1 
b = 
一 1 
? 一 和 abed' 
e 一 
abcd 
? mexputmatrix (a，b，c) 
回 车 后 键入 以 下 命令 可 得 
? 3 
a 一 
一 2. 0000 十 1. 0000i 
? hb 
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abcd 
可 见 变 量 a、b 和 已 经 按 要 求 进行 了 改变 。 
19. mexSetTrapFlag 


功能 ;用 于 设置 调用 函数 mexCalMATLAEB 发 生 错误 时 控制 流 的 走向 。 

语法，subroutine mexSetTrapFlag (trap _flag) 
integer x4trap _flag 

说 ” 明 : 范 数 mexSetTrapFlag 为 一 个 子 例 行 程序 ,. 在 MEX 文件 中 可 以 直接 使 用 
call 关键 字 调 用 ， 其 输入 参数 为 一 个 整 型 变量 trap _flag， 目 前 其 合法 的 取 
值 只 能 为 0 和 1, 分 别 代 表 了 不 同 的 含义 , 其 中 0 代表 在 调用 旷 孝 mexCall- 
MATLAB 发 生 错 误 时 将 控制 返回 给 MATLAB，1 代表 在 调用 函数 mex- 
CallMATLAB 发 生 错 误 时 将 控制 返回 给 MEX 文件 。 
如 果 在 用 户 的 MEX 文件 中 , 没有 使 用 函数 mexSetTrapFlag 进行 控制 流 的 
走向 设置 ,那么 在 调用 函数 mexCallMATELAEB 发 生 错误 时 系统 立即 将 控制 
返回 到 MATLAB 下 ;， 如果 使 用 函数 mexSetTrapFlag 进行 了 设 署 但 是 标 
志 为 0, 则 在 调用 函数 mexCallMATLAB 发 生 错误 时 系统 同样 将 控制 返回 
到 MATLAB 系统 ; 只 有 当 使 用 函数 mexSetTrabFlag 进行 了 设置 并 且 标 
志 为 1 时 , 调用 函数 mexCallMATLAB 发 生 错误 时 系统 才 会 将 控制 返回 到 
当前 的 MEX 文件 ， 并 且 位 于 调用 函数 mexCallMATLAB 语句 的 下 面 一 
行 ， 这 时 用 户 可 以 进行 自己 的 错误 处 理 ， 

举例 ,函数 mexCallMATLAB 的 使 用 非常 方便 ， 只 需 按 如 下 格式 调用 即 可 ， 
call mexCallMATLAB (0) 
或 call mexCallMATLAB (1) 
或 call mexCallMATLAB (trap _flagy) 
其 中 trap ftag 为 一 个 integer 类 型 的 变量 ， 取 值 仅 可 以 为 0 和 1， 


4.7 FORTRAN 语言 mx- 函数 


4.7.1 FORTRAN 语言 mx- 函数 的 南 明 


在 MATLAEB 应 用 程序 接口 函数 库 中 ， 总 共 提供 了 39 个 RORTRAN 语言 的 mx- 本 
数 ， 它 们 的 声明 分 别 如 下 


jinteger * 4 function mxCalloc (hn，size) 

subtroeutine faxCopyCharaeterToPtr (yY，pXx，D) 
subroutine imxCopyComplexl6ToPtr 《7y，pPr，Ppiy D) 
subroutine mxCopyInteger4tToPtr (7，Ppx，py)》 
subrotutine tnxCopyPtrToCharacter 〈PX，7，D) 
suhbtroutine mxCopyPtrToComplex16 (Pr，Ppiy y，D) 
subroutine ImxCopyPtrToInteger4 (Px， yy，n》 
subroutine tnxCopyPtrToPtrArray 〔(PX，y，Dmn)》 


。242 。 MATLAE 应 用 程序 接口 用 户 指南 








suUbreutine mxCopyPtrToReal8 《px，y，0》 
subroutine maxCopyReal8TopPtr (y，pxy， py》 

integer x 4 function mxCreateFull (m, nm，ComplexFlag) 
integer x 4 functiou 邵 xCreateSparse 【ms n，hzmax，ComplexFiag) 
integer * 4 function mxCreateString 《stt) 
subroutine ImxFree 〈Ptr) 

subroenutine ImxFreeMatrix (pim) 

integer *# 4 function mxGetIr 〈Piny》 

integer < 4 function ImxGetJc 〈pmy》 

扣 teger # 4 function mxCretM (pm) 

integer # 4 function mxGetN (bmy》) 

chasracter #+ 32 function mxCetName (pm) 

integer k 4 function mxCetNzmax 〈Pmy) 

integer x 4 function mxCetPi 《pmy》 

jnteger x 4 funcetion mxGetPr (pm) 

real x 8 function mxGretScalar (pm) 

integer x 4 function mxCGetString (ptmm，stt，stfleny》 
integer # 4 function mxJsCotmnplex 《pm) 

integer # 4 function mxJIsDouble (pmy》 

integer x 4 function mxIsFu[ll (pmy) 

integer x 4 function mxisNutmertric 《pmy) 

integeTr xf 4 function mxJsSparse 《pm》 

integer # 生 famnction InxJsString (pm) 

Sibroutine mxSetJr 《pim， 让 》 

subroutine ImxSetjc (ptm，1》 

Subroutine mmXSetM 《bt tm) 

stubroutine mxXSetN 《pim， ny》 

subroutine ImmxSetName 〔(Ppm，natne) 

subrotutine tnxSetNzmax 《ptm，nzmax) 

stbromtine txSetPi (pm，pi) 


stubroutine mxSetPr 《pm，pr》 


4.7.2 FORTRAN 语言 mx- 函 数 的 使 用 说 明 


1. mxCalioc 
功能， 动态 分 配 内 存 。 


语法 ，integer * 4 function tnxCalloc 〈《n，size) 


integer #x 本 也 ，Si2e 


说 ” 明 :， 本 数 mxCallec 为 一 个 FORTRAN 语言 的 函数 子 程序 ， 如 果 用 户 希望 使 用 
它 的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 画 数 mxCal- 
loc， 用 户 可 以 在 MATLAE 接口 应 用 程序 中 方便 地 完成 动态 内 存 分 配 任 
务 . 形 式 参数 n 指明 了 所 分 配 的 内 存 中 存放 元 素 的 数量 , 而 形式 参数 size 则 
说 明了 每 一 个 元 素 所 占用 的 字 节 数 ， 所 以 实际 分 配 内 存 的 字 节 数 为 n* 
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size。 如 果 函 数 执行 成 功 ， 将 返回 一 个 指 拘 所 分 配 内 存 起 始 字 节 地 址 的 指 
针 ; 如 果 画 数 执行 失败 , 在 MEX 文件 中 , 函数 将 终止 整个 程序 的 运行 , 并 
将 控制 返回 到 MATLAB 命令 提示 符 下 ， 而 在 其 他 的 MATLAB 接口 应 用 
程序 中 , 本 数 将 返回 0, 并 不 终止 应 用 程序 的 执行 。 造成 两 种 不 同 失 败 返回 
结果 的 主要 原因 是 内 存 的 管理 方式 不 辣 。 在 MEX 文件 中 , MATLAB 的 自 
动 内 存 管理 机制 会 对 所 有 的 由 函数 mxCalloc 分 配 的 内 存 进行 记录 和 管理 ， 
在 MEX 文件 结束 执行 时 , 对 文件 中 所 分 配 的 内 存 进 行 自动 释放 , 而 无 须 用 
户 进行 显 式 的 释放 , 不 过 在 使 用 完毕 一 段 内 存 后 , 使 用 函数 mxFree 进行 释 
放 ， 是 一 种 良好 的 编程 习惯 。 在 MEX 文件 中 ， 函 数 mxCalloc 的 执行 ， 将 
自动 完成 下 面 三 个 任务 ; 

。 分 配 足 够 的 堆 内 存 ; 

。 将 内 存 中 所 有 n 各 元 素 初 始 化 为 03 

， 在 MATLAB 的 内 存 自动 管理 机 制 中 对 分 配 的 内 存 进行 注册 , 以 便 

于 在 程序 结束 时 进行 自动 释放 。 . 
而 在 其 他 的 MATLAEB 接口 应 用 程序 ,如 MAT 文件 应 用 程序 和 MATLAB 
引擎 应 用 程序 中 , MATLAB 的 自动 内 存 管理 机 制 不 会 发 生 作用 , 而 是 依靠 
语言 本 身 的 内 存 管 理 机 制 。 
举例 ， 参 见 mex- 函 数 mexAtExit 的 范例 程序 。 


2. mxCopyChatracterToPtr 


功 能 , 将 一 个 FORTRAN 语言 字符 串 的 内 容 复制 到 某 个 指定 的 阵列 中 。 
语 ”法 ，subroutine mxCopyCharacterToPtr (y，px， ny) 
charactet # 【《# ) y 
integer # 4 PX，Dn 
说 “” 明 ， 函 数 mxCopyCharacterToPtr 为 一 个 FORTRAN 语言 的 子 例 行 程序 ， 在 
MATLAB 接口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调用 。 通 过 函数 
mxCopyCharacterToPtr， 用 户 可 以 将 一 个 FORTRAN 语言 字符 串 的 内 容 
复制 到 某 个 指定 的 阵列 中 ， 函 数 的 三 个 形式 参数 的 含义 分 别 如 下 ; 
。y 为 一 个 FORTRAN 语言 的 字符 串 ; 
。 px 为 一 个 指向 某 个 阵列 的 指针 ， 
。nD 为 希望 从 y 中 复制 到 px 指向 的 阵列 中 的 字符 串 的 长 度 。 


3. mxCopyComplexl16ToPtr 


功能 :将 一 个 FORTRAN 语言 复数 类 型 的 数组 的 数据 复制 到 某 个 指定 的 复数 类 型 
的 阵列 中 。 

语法 ，subroutine mxCoepyComplexti6ToPtr (y，Pr，piy ny 
complexx* 16y 《n) 
integer # 4 Pt，Pl, 


说 “ 明 ， 函数 mxCopyComplex16ToPtr 为 一 个 FORTRAN 语言 的 子 例 行 程序 ， 在 
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MATLAB 接口 永 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调用 。 通 过 本 数 
ImXCopyComplex16ToPtr, 用 户 可 以 将 一 个 FORTRAN 语言 复数 数组 的 内 
容 复制 到 某 个 指定 的 复数 类 型 的 阵列 中 ， 函 数 的 四 个 形式 参数 的 含义 分 别 
如 下 ， 

。y 为 一 个 FORTRAN 语言 复数 数组 ; 

。， Pr 为 指向 复数 阵列 的 实数 部 分 数据 的 指针 ; 

。 Pi 为 指向 复数 阵列 的 虚数 部 分 数据 的 指针 ; 

。a 为 希望 复制 的 数组 元 素 的 个 数 。 

举例 ,参见 4. 2.6 节 的 范例 程序 。 


4. InxCopyJIntegerd4TOPtr 


功 能 :将 一 个 FORTRAN 语言 整数 类 型 的 数组 的 数据 复制 到 某 个 指定 的 稀 朴 阵列 
的 i 或 jc 数组 中 。 
语 ”法 ，suproutine mxCobyInteger4ToPtr (y，px，n) 
integer#4y (nn) 
integer # 4 PXYy 了 
说 ” 明 ， 栈 数 mxCopyInteger4ToPtr 为 一 个 FORTRAN 语言 的 子 例 行程 序 ， 在 
MATLAB 接口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进行 调用 。 通 过 画 数 
mxCopyInteger4ToPtr, 用 户 可 以 将 一 个 FORTRAN 滞 言 整数 数组 的 内 容 
复制 到 某 个 指定 的 稀 琉 矩阵 的 ir 或 jc 数组 中 , 函数 的 三 个 形式 参数 的 含义 
分 别 如 下 : 
。y 为 一 个 FORTRAN 语言 的 整数 类 型 数组 ; 
。 px 为 指向 稀 朴 矩阵 的 ir 或 jc 数组 数据 的 指针 ; 
"nm 为 希望 复制 的 元 素 的 数量 。 


5. mxCopyPtrToCharacter 


功 能 :将 一 个 字符 串 类 型 阵列 所 包含 的 字符 串 复制 到 一 个 RORTRAN 语言 的 字符 
申 变量 中 。 
语法 ,subroutine tnxCopyPtrToCharacter 《px，y，Dn) 
character# 《 关 ) y 
integer # 生 PX，Dn 
说 “了 明 ， 函 数 mxCopyPtrToCharacter 为 一 个 FORTRAN 语言 的 子 例 行 程 序 ， 在 
MATLAB 接口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调 用 。 通 过 柄 数 
mxCopyPtrToCharacter, 用 户 可 以 将 一 个 字符 串 类 型 阵列 所 包含 的 字符 曲 
复制 到 一 个 FORTRAN 语言 的 字符 引 变 重 中 ， 函数 的 三 个 形式 参数 的 含 
义 分 别 如 下 ， 
。 px 为 一 个 指向 字符 如 类 型 阵列 的 指针 ; 
。y 为 一 个 用 于 存放 从 阵列 中 读 取 出 的 字符 串 的 FORTRAN 语言 的 
字符 串 变量 ; 
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*。n 为 希望 读 取 出 的 字符 串 的 长 度 。 ， 
该 画 数 与 画 数 mxCopyCharaceterToPtr 互 为 道 函数， 它们 所 完成 的 功能 正 
好 相反 。 


6. mxCopyPtrToComplex16 


功 能 :将 一 个 复数 类 型 的 阵列 所 包含 的 数据 复制 到 一 个 FORTRAN 语言 的 复数 类 
型 的 数组 中 。 
福 ” 法 ，subroutine mxCopyPtrToComplex16 (Pr，pi，y，Dy) 
combliexx 16 y 《ny) 
integer < 4 pf，Pi，n 
说 ” 明 ， 函数 mxCopyPtrToComplex16 为 一 个 FORTRAN 语言 的 子 例 行 程序 ， 在 
MATLAB 接口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进行 调用 。 通 过 范 数 
InxCopyPtrToCotrmplex16， 用 户 可 以 将 一 个 复数 类 型 的 阵列 所 包含 的 数据 
复制 到 一 个 FORTRAN 语言 的 复数 类 型 的 教 组 中 , 函数 的 四 个 形式 参数 的 
含义 分 别 如 下 : 
。pr 为 指向 复数 类 型 阵列 的 实数 部 分 数据 的 指针 ; 
。Ppi 为 指向 复数 类 型 阵列 的 虚数 部 分 数据 的 指针 
。，y 为 一 个 FORTRAN 语言 的 复数 类 型 的 数组 ; 
*。n 为 希望 复制 的 元 素 的 个 数 。 
该 函数 与 函数 mxCopyComplex16ToPtr 互 为 逆 函 数 , 它们 所 完成 的 功能 正 
好 相反 。 
举 例 ,， 参见 4.2.6 节 的 范例 程序 。 


7. mxCopyPtrToJnteger4 


功 能: 将 一 个 稀 疏 矩阵 的 ir 或 jc 数组 的 数据 复制 到 一 个 FORTRAN 语言 的 整数 
类 型 的 数组 中 。 
语法，subroutine mxCopyPtrToInteger4 〈Px，y，n) 
integer x4y (ny) 
integer # 4 Px，hn 
说 了 明 ， 了 郴 数 mxCopyPtrToInteger4 为 一 个 FORTRAN 语言 的 子 例 行 程序 ， 在 
MATLASB 接口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调用 。 通 过 函数 
mxCopyPtrToInteger4， 用 户 可 以 将 一 个 稀疏 矩阵 的 ir 或 jc 数组 的 数据 复 
制 到 一 个 FORTRAN 语言 的 整数 类 型 的 数组 中 ， 函 数 的 三 个 形式 参数 的 
含义 分 别 如 下 : 
。px 为 指向 稀 朴 矩阵 的 ir 或 jc 数组 数据 的 指针 # 
。y 为 一 个 FORTRAN 语言 的 整数 类 型 数组 ; 
。n 为 需 望 复制 的 元 素 的 个 数 。 
该 函数 与 函数 mxCopyInteger4ToPtr 互 为 道 函 数 ， 它 们 所 完成 的 功能 正好 
相反 。 
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8. mxCopyPtrToPtrArray 


功 能 : 复制 一 个 指针 到 一 个 FORTRAN 语言 的 整数 类 型 的 数组 中 。 

语 法， subroutine mxCopyPtrToPtrArray (px，yy nm) 
integer < 和 了 人 ny) 
integer 关 4 PX，Dn 

说 ”上 明 : 数 mxCopyPtrToPtrArray 为 一 个 FORTRAN 语言 的 子 例 行 程序 ， 在 
MATLAB 接口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调 用 。 通 过 天 数 
timxCopyPtrToPtrArray， 用 户 可 以 将 指向 稀 琢 矩阵 中 的 ir 和 jc 数组 的 指 
针 ， 复 制 一 个 FORTRAN 语言 的 整数 类 型 的 数组 中 。 


3, mxCopyPtrToReal8 


功能 :将 某 个 阵列 的 实数 或 虚数 部 分 的 数据 复制 到 一 个 FORTRAN 语言 的 实数 类 
型 的 数组 中 。 
语法 ，subroutine mxCopyPtrToReal8 (px，y，Dny 
real t8y《n) 
integer # 二 PX，mn 
说 ” 明 : 函数 mmxCopyPtrToRealg8 为 一 个 FORTRAN 语言 的 子 例 行 程 序 , 在 MAT- 
LAB 接口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调用 。 通 过 函数 mx- 
CopyPtrToReal8， 用 户 可 以 将 某 个 阵列 的 实数 或 氏 数 部 分 的 数据 复制 到 一 
个 FORTRAN 语言 的 实数 类 型 的 数组 中 , 函数 的 三 个 形式 参数 的 含义 分 别 
如 下 ， 
。Ppx 为 指向 某 个 阵列 的 实数 或 虚数 部 分 的 数据 的 指针 ; 
。y 为 一 个 FORTRAN 语言 的 实数 类 型 数组 ; 
"，n 为 希望 复制 的 元 素 的 个 数 。 
举 例 : 参见 4.2.2 节 的 范例 程序 。 


10. mxCopyReal8ToePtr 


功 能 :将 一 个 FORTRAN 语言 的 实数 类 型 数组 中 的 数据 复制 到 某 个 阵列 的 实数 部 
分 或 虚数 部 分 中 。 
语法 ，subroutine mxCopyReal8TcPtr 《7，px，ny) 
real x*8gy (ny) 
integwer # 4 PX， 匡 
说 “” 明 , 函数 mxCopyReal8ToPtr 为 一 个 FORTRAN 语言 的 子 例 行 程序 , 在 MAT- 
LAB 接口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调用 。 通 过 函数 mx- 
CopyReal8ToPtr , 用 户 可 以 将 一 个 FORTRAN 语言 的 实数 类 型 数组 中 的 数 
据 复 制 到 某 个 阵列 的 实数 部 分 或 虚数 部 分 中 ， 范 数 的 三 个 形式 参数 的 含义 
分 别 如 于: 
。y 为 一 个 FORTRAN 语言 的 实数 类 型 数组 ; 
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。Ppx 为 指向 某 个 阵列 的 实数 或 虚数 部 分 的 数据 的 指针 ; 
。 an 为 希望 复制 的 元 束 的 个 数 。 
该 函数 与 西数 mxCopyPtrToRealg 互 为 道 王 数 ， 它 们 所 完成 的 功能 正好 相 
反 。 
举例， 参见 4.2.2 节 的 范例 程序 。 


11. mxCreateFull 
功能, 创建 一 个 二 维 的 存储 类 型 为 满 的 未 赋值 的 阵列 。 


语 法 ， integer * 4 function mxCreateFull (m，n，ComplexFlagy》 
integer# 4 my m，ComplexFlag 
说 “ 明 ; 函数 mxCreateFull 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 
用 它 的 返回 值 ,必须 在 程序 的 开始 对 该 丽 数 进行 类 型 说 明 , 通 过 函数 mxCre- 
ateFull, 用 户 可 以 方便 地 创建 一 个 二 维 的 存 镭 类 型 为 满 的 未 赋值 的 和 阵列 .。 函 
数 的 三 个 形式 参数 的 含义 分 别 如 下 : 
*。m 为 所 创建 的 阵列 的 行 数 ; 
。n 为 所 创建 的 阵列 的 列 数 ， 
。ComplexFlag 为 所 创建 的 阵列 的 类 型 ， 当 ComplexFlag = 1 时 ， 创 
建 复数 类 型 的 阵列 ; 当 ComplexFlag =- 0 时 , 创建 实数 类 型 的 阵列 。 
如 果 函 数 执行 成 功 ， 将 返回 一 个 指向 所 创建 阵列 的 指针 否则 返回 0。 
举例 ,参见 4, 2.2 节 的 范例 程序 。 


12. tmxCreateSparse 


功能 ， 人 蚀 建 一 个 未 赋值 的 稀 朴 矩阵 。 
后 ”法 ，integer x 4 function mxCreateSparse 〈《m，n，nztnax， ComplexFlag) 
integer x 4 mn，nzmax，ComplexFlag 
说 ”了 明 : 函 数 mxCreateSparse 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 
使 用 它 的 返回 值 , 必须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通过 函数 mx- 
CreateSparse， 用 户 可 以 方便 的 创建 一 个 未 赋值 的 稀 玻 矩 阵 。 贾 数 的 四 个 形 
式 参数 的 含义 分 别 如 下 : 
。m 为 所 创建 的 稀 下 矩 阵 的 行 数 ; 
。n 为 所 创建 的 稀疏 矩阵 的 列 数 ; 
。nzmax 为 稀 琉 矩阵 中 可 以 存放 的 非 零 元 素 的 最 大 个 数 ; 
。ComplexFlag 为 所 创建 的 阵列 的 类 型 ， 当 ComplexFlag 一 1 时 ， 创 
建 复数 类 型 的 阵列 ; 当 ComplexFlag =- 0 时 ， 创建 实数 类 型 的 阵列 。 
如 果 函 数 执行 成 功 ， 将 返回 一 个 指向 所 创建 稀 朴 矩阵 的 指针 ? 否则 返回 0。 


举例 , 参见 4.2.7 节 的 范例 程序 。 


13. mxCreateString 


功 “ 能 : 创建 一 个 大 小 为 1Xn 的 字符 串 类 型 的 阵列 ， 并 通过 形式 参数 赋值 。 
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语 ”法 ，integer x 4 function mxCreateString 《str) 
character k* 【 关 ) st 

说 ” 明 : 林 数 mxCreateString 为 一 个 FORTRAN 语言 的 画 数 子 程序 , 如 果 用 户 希望 
使 用 它 的 返回 值 , 必须 在 程序 的 开始 对 该 枉 数 进行 类 型 说 明 。 通过 了 画 数 mx- 
CreateString ， 用 户 可 以 方便 地 创建 一 个 大 小 为 1Xn 的 字符 串 类 型 的 阵列 ， 
并 通过 字符 串 类 型 的 形式 参数 str 进行 赋值 。 

举 例 ， 参 见 4.2.1 节 的 范例 程序 。 


14. ImXxFree 


功能， 释放 动态 分 配 的 内 存 。 

语法 ， subroutine mxFree (〈pbtr) 
integet 关 本 Pt 

说 ” 明 ; 函数 mxFree 为 一 个 FORTRAN 语言 的 子 例 行 程序 , 在 MATLAB 接口 应 
用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调 用 。 通 过 函数 mxFree,， 用 户 可 以 
方便 地 释放 由 画 数 mxCalloc 动态 分 配 的 内 存 。 

举例 : 参见 4, 2.3 节 的 范例 程序 。 


15. mmxRreeMattix 


功能 :释放 由 函数 mxCreateSparse 和 了 末 数 mxCreateFull 在 创建 阵列 时 动态 分 配 
的 内 存 。 

语 法，supbroutine mxFreeMatrix 《pm) 
integer # 4 pm 

说 “” 明 ， 冰 数 mxFreeMatrix 为 一 个 FORTRAN 语言 的 子 例 行 程 序 ， 在 MATLAB 
接口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调 用 。 通过 函数 mxFreeMa- 
trix,， 用 户 可 以 方便 地 释放 由 函数 mxCreateSparse 和 画 数 mxCreateFuli 在 
创建 阵列 时 动态 分 配 的 内 存 。 

人 举例， 参见 4. 2.3 节 的 范例 程序 . 


16. mxGretIr 
功能， 获得 稀 琉 矩阵 的 ir 数组 的 内 容 ， 


语法，integer x 4 funetion mxGetIr (pmy) 
integer 关 4 pm 
说 “” 明 , 函数 mxGetir 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 用 它 
的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 函数 mxGetIr， 
用 户 可 以 方便 地 获得 由 形式 参数 pm 指向 的 稀 朴 矩阵 的 ir 数组 的 内 容 。 如 
果 函 教 热 行 成 功 ， 将 返回 指向 ir 数组 第 一 个 元 素 的 指针 ， 如 果 函 数 执行 失 
败 ， 将 返回 0。 一 般 情况 下 ， 函 数 失败 的 原因 主要 有 ， 
。pm 指向 的 阵列 不 是 稀疏 矩阵 ; 
。 前 面 对 函 数 mxCreateSparse 的 调用 失败 ， 
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有 关 稀 疏 第 阵 的 ir 数组 的 说 明 ， 请 读者 自行 参阅 相关 章节 。 
举例 人 参见 4.2.7 节 的 范例 程序 。 


17. mxGetJc 


功能， 获得 稀 巩 矩阵 的 jc 数组 的 内 容 。 
语 ”法 ,integerx 4 function ImnxGetJc (pmy) 
integef # 4 pm 
说 ” 明 :; 函数 mxGetjce 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 用 它 
的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 函数 mxGetJe， 
用 户 可 以 方便 地 获得 由 形式 参数 pm 指向 的 稀 玻 矩阵 的 je 数组 的 内 容 。 如 
果 函 数 执行 成 功 ， 将 返回 指向 je 数组 第 一 个 元 素 的 指针 ， 如 果 函 数 执行 失 
败 ， 将 返回 0。 一 般 情况 下 ， 丁 数 失败 的 原因 主要 有 ， 
<。 pm 指向 的 阵列 不 是 稀疏 矩阵; 
。 前 面 对 函 数 mxCreateSparse 的 调用 失败 。 
有 关 兢 世 和 矩阵 的 je 数组 的 说 明 ， 请 读者 自行 参阅 相关 章节 。 
举例 ;, 参见 4. 2.7 节 的 范例 程序 。 


18. InxCetM 


功能， 获得 阵列 的 行 数 。 

语 ”法 ,integer x 4 function mxGetM 《pm) 
integer 关 4 PIm 

说 “” 明 , 本 数 mxGetM 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 用 它 
的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 函 孝 mxGetM， 
用 户 可 以 方便 地 获得 由 形式 参数 pm 指定 的 阵列 的 行 数 。 

举例， 参见 4.2.1 节 的 范例 程序 。 


19. mxGetN 


功能 ,获得 阵列 的 列 数 。 

语法，integer x* 4 function mxCGetN 《pm) 
integer # 4 Pm 

说 “ 明 , 函数 mxGetN 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 用 它 
的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 函数 mxGetN， 
用 户 可 以 方便 地 获得 由 形式 参数 pm 指定 的 阵列 的 列 数 。 

举例 ,参见 4.2.1 节 的 范例 程序 。 


20. ImxGetName 


功能 ， 获得 阵列 的 名 字 。 


语法 ，character * 32 funcetion mxGetName 《pm) 


jnteger * 4 Pna 
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说 ”了 明 : 通 数 mxGetName 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如果 用 户 希 望 使 
用 它 的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 天 数 
mxGetName， 用 户 可 以 方便 地 获得 由 形式 参数 pm 指定 的 阵列 的 名 字 。 

举例, 参见 mex- 函 数 mexGetFull 的 范例 程序 。 


21. mxGetNztmnax 


功 能， 获得 稀疏 矩阵 所 能 存放 的 最 多 的 非 零 元 素 的 个 数 。 
语 ”法 ,integer x* 4 fanction mxGetNzmax 《pm) 
ipteger * 4 pin 
说 明 , 函数 mxGetNzmax 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希望 使 
用 它 的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通过 本 数 
mxGetNzmax， 用户 可 以 方便 地 获得 由 形式 参数 pm 指定 的 稀 朴 矩阵 所 能 存 
放 的 最 多 的 非 零 元 素 的 个 数 。 


22. mxGCetPi 


功能， 获得 阵列 的 虚数 部 分 的 数据 。 

语 法: integer*x 4 function mxGetPi (pm) 
integer #+ 4 pm 

说 ” 明 : 函数 mxGetPi 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希望 使 用 它 
的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 项 数 mxGetPi， 
用 户 可 以 方便 地 获得 由 形式 参数 pm 指定 的 阵列 的 虚数 部 分 的 数据 。 如 果 函 
数 执行 成 功 , 函数 将 返回 指向 阵列 虚数 部 分 数据 第 一 个 元 素 的 指针 , 否则 返 
回 0， 

举例， 参见 4.2.6 节 的 范例 程序 。 


23. InxCetPr 
功能， 获得 阵列 的 实数 部 分 的 数据 。 


语 ”法 ，integer * 4 function mxGetPr (pmy) 
integer 区 和 PrIm 

说 ” 明 , 函数 mxGetPr 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希望 使 用 它 
的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 了 柚 数 mxGetPr， 
用 户 可 以 方便 地 获得 由 形式 参数 pm 指定 的 阵列 的 实数 部 分 的 数据 。 如 果 郴 
数 执行 成 功 , 函数 将 返回 指向 阵列 实数 部 分 数据 第 一 个 元 素 的 指针 , 否则 返 
回 0。 

举 例 , 参见 4.2.6 节 的 范例 程序 。 


24.ImxGetScalar 


功 ”能 ， 获得 阵列 实数 部 分 数据 的 第 一 个 元 素 的 值 。 
语 ”法 ，real * 8 funeticon mxGetScalar (pmy》 
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integer # 4 ptm 

说 明 : 函数 mxGetScakar 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 
用 它 的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 函数 
mxGetScalar， 用 户 可 以 方便 地 获得 由 形式 参数 pm 指定 的 阵列 实数 部 分 数 
据 的 第 一 个 元 索 的 值 . 通常 该 本 数 用 于 提取 仅 包含 一 个 数量 的 阵列 的 内 容 ; 
如 果 pm 所 指向 的 阵列 包含 多 个 元 素 或 者 为 多 维 ， 则 函数 提取 实数 部 分 数 
据 的 第 一 个 元 素 的 值 。 


25. mxGetString 


功能 , 从 一 个 字符 串 类 型 阵列 中 读 取 内 容 , 并 存放 到 一 个 FORTRAN 语言 的 字符 
哩 变量 中 。 
请 ”法 ，integer * 4 function mxGetString (pm，str，strlen) 
integer x 4 bm ，sttlen 
character k 【 关 ) St 
说 “了 明 : 函数 mxGetString 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 
用 它 的 返回 和 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 函数 
mxGetString ， 用 户 可 以 方便 地 从 一 个 字符 串 阵 列 中 读 取 内 容 ， 并 存放 到 一 
个 FORTRAN 语言 的 字符 串 变 量 中 。 函 数 的 三 个 形式 参数 的 含义 分 别 如 
下 ; 
。pm 为 指向 字符 串 类 型 阵列 的 指针 
。str 为 一 个 FORTRAN 语言 的 字符 访 变量 ; 
。 strlen 为 希望 读 取 的 字符 串 的 长 庶 。 
如 果 函 数 执行 成 功 ， 将 返回 0， 和 否则 返回 1。 
举例， 参见 4. 2.1 节 的 范例 程序 。 


26. mxJsCotmplex 
功能 :, 判断 一 个 阵列 是 否 为 复数 类 型 。 


语 法，integer x* 4 function mxJIsComplex 《pm) 
integ&er 关 4 br 
说 ” 明 , 函 数 mxIsComplex 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 
用 它 的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通过 函数 mxIs- 
Complex， 用 户 可 以 方便 地 判断 由 形式 参数 pm 指定 的 阵列 是 否 为 复数 类 
型 ， 如 果 是 ， 则 函数 返回 1， 否则 返回 0。 
举例 ,参见 4.2.6 节 的 范例 程序 . 


27. imxjsDouble 


功能 ， 判 断 一 个 阵列 是 否 为 双 精 度 类 型 。 
语法 ，integer * 4 funetion mxIsDouble 《pmy)》 


integer # 4 PIn 
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说 ” 明 : 函数 mxIsDouble 为 一 个 FORTRAN 语言 的 函数 子 程序 ， 如 果 用 户 希 望 使 
用 它 的 返回 值 , 必须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通过 冰 数 mxls- 
Double， 用 户 可 以 方便 地 判断 由 形式 参数 pm 指定 的 阵列 是 否 为 双 精 度 类 
型 ， 如 果 是 ， 则 函数 返回 1， 和 否则 返回 0。 

举例: 参见 4.2.7 节 的 范例 程序 。 


28. mxIsFull 


动 能， 判断 一 个 阵列 是 否 为 满 存储 类 型 的 阵列 . 

语 法 ， integer * 4 funetion mxIsFull (pm) 
integer # 4 pm 

说 ” 明 :, 函数 mxIsFull 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 用 它 
的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 画 数 mxIsFuil， 
用 户 可 以 方便 地 判断 由 形式 参数 pm 指定 的 阵列 是 否 为 满 存 储 类 型 的 阵列 ， 
如 果 是 ， 则 函数 返回 1， 否 则 返回 0， 


29. mxIsNurmeric 


功 ”能 ,判断 一 个 阵列 是 否 为 数值 类 型 的 阵列 ， 

语 ”法 ，integer * 4 function mxIsNurmeric (pimn) 
integer x 4 pim 

说 ”了 明 , 函数 mxlsNumeric 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希 望 使 
用 它 的 返回 值 ， 必 须 在 程序 的 开始 对 该 冰 数 进行 类 型 说 明 。 通 过 函数 mxJs- 
Numeric， 用 户 可 以 方便 地 判断 由 形式 参数 pm 指定 的 阵列 是 否 为 数值 类 型 
的 阵列 ， 如 果 是 ， 则 栖 数 返回 1， 和 否则 返回 0。 

人 举例， 参见 4.2.2 节 的 范例 程序 。 


30, mxIsSparse 
功能: 判断 一 个 阵列 是 千 为 稀 琉 矩阵 。 


语法 ，integer * 4 function mxjsSparse 《pm) 
integer # 4 Pi 

说 “” 明 ; 数 mxIsSparse 为 一 个 FORTRAN 语言 的 函数 子 程序 , 如 果 用 户 希望 使 用 
它 的 返回 值 ， 必 须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 。 通 过 画 数 mxlsS- 
parse, 用 户 可 以 方便 地 判断 由 形式 参数 pm 指定 的 阵列 是 砍 为 稀疏 矩阵 ,如 
果 是 ， 则 函数 返回 1 ， 和 否则 返回 0。 


3t. mxTIsString 
功能, 判断 一 个 阵列 是 否 为 字符 串 类 型 。 


语 ”法 ,integer * 4 function mxIsString 《pm) 


integer # 4 DPIn 


说 ” 明 : 函数 mxlsString, 为 一 个 FORTRAN 语言 的 函数 子 程序 ,如果 用 户 希望 使 
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用 它 的 返回 值 ,必须 在 程序 的 开始 对 该 函数 进行 类 型 说 明 .。 通过 本 数 mxIs- 
String ， 用 户 可 以 方便 地 判断 由 形式 参数 pm 指定 的 阵列 是 否 为 字符 串 类 
型 ， 如 果 是 ， 则 范 数 返回 1， 否 则 返回 0。 

举例 ,参见 4.2.1 节 的 范例 程序 。 


32, mxSetir 


功能， 设置 稀 玉 和 矩阵 的 ir 数组 。 
语法， subroutine mxSetJlr (pm，ir) 
integer # 本 pim， 让 
说 ” 明 : 函数 mxSetIr 为 一 个 FORTRAN 语言 的 子 例 行 程序 , 在 MATLAB 接口 应 
用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调用 。 通过 函数 mxSetIr, 用 户 可 以 
方便 地 对 稀 梳 矩阵 的 ir 数组 进行 设置 。 函 数 的 两 个 形式 参数 的 含义 分 别 如 
下 ， 
。 pm 为 指向 一 个 稀 琉 矩阵 的 指针 ; 
。，ir 为 指向 ir 数组 的 指针 ， 要 求 ir 数组 中 的 元 素 必 须 为 按 列 存储 。 
有 关 ir 数组 的 概念 ， 请 读者 自行 参阅 相关 章节 内 容 。 


33. mxSetjc 


功能: 设置 稀疏 矩阵 的 jc 数组 。 
请 ”法 ，subroutine mxSetJc (pm，jcy) 
integet kx 4 Pm，jc 
说 “” 明 :, 函数 mxSetJc 为 一 个 FORTRAN 语言 的 子 例 行 程 序 , 在 MATLAB 接口 应 
用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调 用 。 通过 函数 mxSetJc, 用 户 可 以 
方便 地 对 稀 梳 矩阵 的 jc 数组 进行 设置 。 函 数 的 两 个 形式 参数 的 含义 分 别 如 
下 : 
。 pm 为 指向 一 个 稀 六 和 矩阵 的 指针 
。jc 为 指向 je 数组 的 指针 。 
有 关 je 数组 的 概念 ， 请 读者 自行 参阅 相关 章节 内 容 。 


34. mxSetM 


功 能 ,设置 阵列 的 行 数 ， 
语法 ，subroutine mxSetM (pm ，my) 
integer + 4 Pm，tn 
说 “ 明 , 函数 mxSetM 为 一 个 FORTRAN 语言 的 子 例 行 程序 , 在 MATLAB 接口 应 
用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调用 。 通过 函数 mxSetM, 用 户 可 以 
方便 地 对 阵列 的 行 数 进行 设置 。 本 数 的 两 个 形式 参数 的 食 义 分 别 如 下 
。Ppm 为 指向 一 个 阵列 的 指针 
"m 为 行 数 。 
这 里 必须 注意 的 一 点 是 ， 当 对 阵列 的 行 数 进行 扩展 之 后 ， 必 须 对 Pr、Pi'、i 
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和 je 这 些 数 给 进行 相应 的 扩展 ; 当 对 阵列 的 行 数 关 和 之 后 ， 必 须 对 pr、pi、 
站 和 jc 这 些 数组 进行 相应 的 缩减 ， 以 提高 内 存 的 利用 效率 。 
举 例 ， 参 见 4.2.4 节 的 范例 程序 。 


35. ImxsSetN 


功能， 设置 阵列 的 列 数 。 
语 ” 读 ， subroutine mxSetN (ptmy ny》 
integer k 4 Pimy， nm 
说 ” 明 , 函数 mxSetN 为 一 个 FORTRAN 语言 的 子 例 行 程序 , 在 MATLAB 接口 应 
用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调用 。 通过 函数 mxSetN, 用 户 可 以 
方便 地 对 阵列 的 列 数 进行 设置 函数 的 两 个 形式 参数 的 含义 分 别 如 下 ， 
*。 pm 为 指向 一 个 阵列 的 指针 
。 np 为 列 数 ， 
这 里 必须 注意 的 一 点 是 ， 当 对 阵列 的 列 数 进 行 扩展 之 后 ， 必 须 对 Pr、Ppi、ir 
和 jc 这 些 数 组 进行 相应 的 扩展 ; 当 对 阵列 的 列 数 减 小 之 后 ， 必 须 对 pr、pi、 
ir 和 jc 这 些 数 组 进行 相应 的 缩减 ， 以 提高 内 存 的 利用 效率 。 
举 例 , 人 参见 4.2.4 节 的 范例 程序 ， 


36. mxSetNare 


功 能 ,设置 阵列 的 名 字 。 
语法 ，subroutine InxSetName (pm，name) 
integer # 4 Pm 
character x 《327)》 Datme 
说 ”了 明 , 函数 mxSetName 为 一 个 FORTRAN 语言 的 子 例 行 程序 ,在 MATLAB 接 
口 应 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 凋 用 。 通 过 函数 mxSetName， 
用 户 可 以 方便 地 对 阵列 的 名字 进行 设置 。 函 数 的 两 个 形式 参数 的 含义 分 别 
如 下 ， 
。pm 为 指向 一 个 阵列 的 指针 
。name 为 一 个 包含 名 字 的 字符 串 变 量 。 
举例 ， 和 参见 mex- 本 数 mexPutMatrix 的 范例 程序 。 


37. mxSetNzmax 


功能 ,设置 稀 斑 矩阵 所 能 包含 的 非 零 元 素 的 最 大 个 数 。 

语法 ，subroutine ImxSetNzmax (pm，nzmax) 
integer # 4 pin ，n2zZImnaX 

说 “了 明 , 函数 mxSetNzmax 为 一 个 FORTRAN 语言 的 子 例 行 程序 , 在 MATLAB 接 
日 应 用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调用 。 通 过 函数 mxSetNzmax， 
用 户 可 以 方便 地 对 稀 菩 矩阵 所 能 包含 的 非 零 元 索 的 最 大 个 数 进行 设置 。 郴 
数 的 两 个 形式 参数 的 含义 分 别 如 下 : 
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。 pm 为 指向 一 个 稀 下 矩 阵 的 指针 ; 
”nzmax 为 非 零 元 素 的 最 大 个 数 。 


38. mmxSetPi 


功能， 设置 阵列 的 虚数 部 分 数据 。 
语法 ，subroutine mxSetPi 〈pm，Ppi) 
integefr # 4 pmmm，Pi 
说 ” 明 , 函数 mxSetPi 为 一 个 FORTRAN 语言 的 子 例 行 程序 , 在 MATLAB 接口 应 
用 程序 中 可 以 直接 使 用 cail 关键 字 进 行 调用 。 通过 本 数 mxSetPi, 用 户 可 以 
方便 地 对 阵列 的 虚数 部 分 数据 进行 设置 。 晓 数 的 两 个 形式 参数 的 含义 分 别 
如 下 ， 
。pnm 为 指向 一 个 阵列 的 指针 ， 
。 pi 为 指向 虚数 部 分 数据 的 指针 。 


39. tmxSetPr 


功 能, 设置 阵列 的 实数 部 分 数据 。 
语法 ，subroutine mxSetPr (pm，Ppr) 
ibteger 关 4 pm Pr 
说 ”了 明 , 函数 mxSetPr 为 一 个 FORTRAN 语言 的 子 例 行 程序 , 在 MATLAB 接口 应 
用 程序 中 可 以 直接 使 用 call 关键 字 进 行 调 用 。 通过 函数 mxSetPr, 用 户 可 以 
方便 地 对 阵列 的 实数 部 分 数据 进行 设置 。 函 数 的 两 个 形式 参数 的 含义 分 别 
如 下 ， 
。 pm 为 指向 一 个 阵列 的 指针 
。Ppr 为 指向 实数 部 分 数据 的 指针 。 
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在 本 章 中 ， 我 们 将 向 读者 介绍 从 MATLAB 中 输出 数据 及 输入 数据 到 MATLAB 中 
的 多 种 方法 ， 即 MATLAB 与 其 他 应 用 程序 共享 数据 的 各 种 技巧 。 这 些 方法 都 有 实际 的 
应 用 背景 ， 读 者 应 在 充分 理解 这 些 方 法 的 使 用 条 件 的 基础 上 ， 应 根据 实际 情况 ， 选 择 最 
合适 的 方法 ,高效 地 完成 你 的 工作 .。 而 这 些 技巧 中 , 我 们 认为 是 极其 重要 的 , 也 是 Math- 
鸡 orks 公司 极力 推荐 的 方法 ， 就 是 使 用 MAT 文件 。 

在 第 2 章 中 ,我 们 已 经 对 MAT 文件 进行 了 简单 的 介绍 。 大 家 可 清楚 地 看 到 ，MAT 
文件 适用 于 大 部 分 应 用 场合 .通过 对 MAT 文件 的 使 用 , 我 们 不 仅 能 够 利用 MATLAB 提 
供 的 便捷 机 制 , 而 且 MATLAB 提供 了 带 mat 前 绷 的 API 库 函 数 ， 使 我 们 可 以 非常 容易 
编写 调用 这 些 API 库 函 数 的 C 和 FORTRAN 语言 的 应 用 程序 ， 以 便于 应 用 程序 与 
MATLAB 之 间 的 数据 资源 共享 。 

本 章 将 重点 介绍 如 和 何 编写 调用 这 些 库 函 数 的 C 或 FORTRAN 语言 的 应 用 程序 。 


5.1 数据 的 输入 和 输出 


5s.11 向 MATLAB 输入 数据 


在 使 用 MATLAB 时 ， 用 户 可 以 采取 多 种 方法 将 数据 传递 到 MATLAB 中 ， 以 供 
MATLAB 使 用 。 如 何 选择 这 些 方 法 , 应 根据 数据 量 的 多 少 和 数据 已 色 存 储 的 格式 ， 如 是 
否 存 为 MATLAB 直接 可 读 的 格式 等 来 共同 做 出 决定 。 下 面 我 们 对 在 输入 数据 时 经 常 遇 
到 的 情况 提供 以 下 参考 方法 ; 

。 直接 在 MATELAB 中 使 用 方 括号 键 人 。 这 种 方法 非常 适合 输 人 少量 数据 〔〈 如 不 多 

于 10 一 15 个 元 素 )， 并 且 你 非常 清楚 要 输 人 的 数据 的 值 。 这 种 方法 对 大 量 数据 是 
不 适合 的 ， 如 果 你 键 人 的 数据 有 错 ， 需 要 及 时 修改 时 ， 却 无 能 为 力 。 

。 第 二 种 方法 与 第 一 种 方法 本 质 是 相同 的 ， 就 是 创建 一 个 用 于 存放 数据 的 M 文件 。 
我 们 可 以 使 用 文本 编辑 只 创建 一 个 M 文件 ， 并 在 M 文件 中 输入 数据 ， 而 且 这 种 
方法 允许 你 使 用 文本 编辑 器 对 数据 进行 操作 ， 能 够 及 时 地 修改 数据 。 这 种 方法 特 
别 适 合 数据 还 没有 以 计算 机 可 读 方式 存在 的 情况 下 。 

。 如 果 需 要 输入 的 数据 已 经 以 ASCII 码 文件 形式 存在 , 则 可 以 直接 在 MATLAB 中 
装载 文件 。MATLAB 提供 了 直接 装载 ASCII 码 文件 的 load 命令， 装载 后 将 在 
MATLAB 内 存 工作 区 中 创建 与 文件 名 相同 的 变量 名 .在 MATLAB 中 , 这 种 文件 
格式 的 数据 行 间距 是 固定 不 变 的 ,并 采用 空格 来 分 离 同一 行 中 的 数据 。 我 们 也 可 
以 用 文本 编辑 器 来 编辑 ASCII 码 文件 。 

。 直 接 使 用 fread、fopen 或 MATLAB 中 其 他 的 低级 IO 画 数 装载 数据 。 这 种 方法 
适合 于 输入 的 数据 是 其 他 应 用 程序 创建 的 , 特别 是 该 应 用 程序 所 特有 的 数据 文件 
格式 。 当 然 ， 你 必须 要 了 解 这 种 数据 文件 是 如 何 存储 的 ， 
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"编写 一 个 MEX 文件 来 读 这 些 数据 。 假 如 你 已 经 编写 了 能 够 从 其 他 的 应 用 程序 中 
读 取 数 据 的 子 程序 ， 这 是 一 个 可 选用 的 方法 。 详 细 的 内 容 可 参看 第 2 章 。 

。 用 C 或 FORTRAN 语言 编写 程序 , 用 来 把 你 的 数据 转换 变 成 MAT 文件 格式 .我 
们 就 能 够 在 MATLAB 中 用 load 命令 来 装载 MAT 文件 中 的 数据 。 我 们 将 在 本 章 
详细 地 介绍 这 种 方法 的 实现 。 


s$.1.2 从 MATLAB 获取 数据 


同样 , 外 部 环境 获得 MATLAB 的 数据 也 有 多 种 方法 .下 面 我 们 对 从 MATLAB 中 输 
出 教 据 到 外 部 环境 可 能 会 遇 到 的 情况 提供 以 下 方法 ， 
。 对 于 MATLAB 中 需要 输出 的 小 矩阵 ,在 MATLAB 中 可 以 使 用 diary 命令 , 创建 
diary 文件 。 在 以 后 的 操作 中 ,生成 的 diary 文件 可 以 使 用 文本 编辑 器 来 编辑 。 需 
要 注意 的 是 ，diary 文件 的 输出 包括 在 会 话 期 间 matlab 的 命令 行 ， 当 然 这 对 于 生 
成 文档 或 报告 是 有 用 的 。 下 面 是 一 个 diary 文件 的 例子 ， 


? diary on 


Narme Size Byrtes Clags 

二 2X2 32 double array 
Grand total is 4 elements Using 32 bytes 
diary (cr，Ndiatry. dat') 


。 使 用 MATLAB 中 提供 的 save 命令 〈 带 -ascii 选项 开关 )， 文 件 用 ASCII 码 的 格 


式 来 存储 数据 。 我 们 需要 提醒 大 家 注意 的 是 ，-ascii 选项 仅仅 支持 数字 抢 阵 形式 ， 
对 数字 array (超过 两 维 ) 、cell arrays 和 结构 都 不 支持 。 举 例如 下 : 


? a 一 rand (4，471 

? save test.dat a -asc 计 

? load test, dat 

test 一 
0.9501 0. 8913 0. 8214 0. 9218 
0. 2311 0.7621 0、4447 0,. 7382 
0. 6068 0,. 4585 0. 6154 0. 1763 
0. 4860 0.0185 0.7919 0. 4057 


。 直 接 使 用 fread fwrite 或 MATLAB 中 其 他 低级 的 I/O 函数 来 存储 数据 文件 。 这 
种 方法 特别 适合 把 数据 保存 为 其 他 应 用 程序 要 求 的 文件 格式 。 

， 继 续 利用 MEX 文件 来 存储 数据 文件 ， 假 如 已 存在 的 子 程序 能 够 把 数据 写成 其 他 
应 用 程序 可 读 的 文件 格式 。 

。 在 MATLAB 中 用 save 命令 把 数据 写成 MATLAB 黑 认 的 MAT 文件 。 我们 可 以 
编写 调用 MAT 库 函 教 的 C 或 FORTRAN 语言 的 应 用 性 序 ， 将 MAT 文件 转换 
成 你 需要 的 特殊 格式 。 我 们 将 在 本 章 详细 地 介绍 这 种 方法 的 实现 。 
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5.2 MAT 文件 应 用 程序 的 编写 


上 一 节 已 经 介绍 了 输入 数据 到 MATLAB 中 和 从 MATLAS 中 输出 数据 的 多 种 方 
潜 。 在 这 些 方法 中 , 使 用 MAT 文件 作为 MATLAB 与 外 部 环境 共享 数据 的 介质 , 有 着 无 
可 替代 的 优势 。 要 使 用 MAT 文件 ， 就 要 利用 MATLAB 所 提供 的 MAT 库 丁 数 进行 编 
程 。 
MathWorks 公司 为 帮助 用 户 熟 练 运用 MATLAB 所 提供 的 MAT 库 函 数 进 行 编 程 ， 
提供 了 四 个 典型 的 范例 程序 ， 分 别 是 基于 C 语言 的 matcreat.c 和 matdgns,c 以 及 基于 
Fortran 语言 的 matdemol.f 和 matdemo2.f， 供 大 家 学 习 。 
本 节 将 首先 介绍 使 用 MAT 库 函 数 需 要 了 解 的 子 目录 ， 然 后 分 别 对 一 个 基于 C 语言 
的 例 程 matdemo. ec 和 一 个 基于 FORTRAN 语言 的 例 程 matdemo.f 进行 讲解 ， 来 说 明 如 
和 何在 C 语言 和 FORTRAN 语言 的 应 用 程序 中 使 用 MAT 库 画 数 。 


s.2.1 ”基于 C 语言 的 MAT 文件 应 用 程序 的 编 与 


1， 程序 说 明 


matdemo,e 是 使 用 C 语言 开发 的 一 个 基于 DOS 操作 系统 的 应 用 程序 ， 这 个 程序 的 
主要 功能 是 创建 一 个 可 被 MATLASB 装载 的 MAT 文件 ， 然 后 读 取 程序 刚 创 建 的 MAT 
文件 的 数据 信息 。 程 序 由 四 个 程序 段 组 成 , 第 一 段 是 文件 的 头 文件 ; 第 二 段 是 创建 MAT 
文件 的 子 程序 ， 第 三 段 是 读 取 MAT 文件 信息 的 子 程序 ， 第 四 段 是 主 函数 。 

编写 这 个 程序 的 目的 是 想 向 大 家 介绍 在 C 语言 中 调用 MAT 库 函 数 的 方法 ， 并 且 逢 
望 大 家 尽快 掌握 以 下 库 函 数 的 使 用 。 


JatC]ose matCretDir 
ratGet 和 rray tnatGetNextArTay 
Imat(]pen matGetNextArrayHeader 
matPut 各 rTay tmaatPutArray 丰 sGlobal 

2. 源 程 序 


inatdetmoe 


/1* 程序 段 (1)》 ”定义 程序 中 用 到 的 头 文件 * / 
直 include <<stdio.h>> 1 ， 
提 训 clude %mat, hy 
##include wmattix, hy 
/+# 程序 毁 (27 * 7 
/ax imatcreate 子 冰 数 ， 该 子 函数 可 以 刨 建 能 够 装载 到 MATLAB 中 的 MAT 文件 * 7/ 
iat matecreate (〔const char xfile) 
7 
/x 代码 1， 变量 定义 及 初始 化 * / 
MATRile x Pinatfitey 
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mxXArray #Ppal，# ba2，， pa3i 
double datal [9] 一 11，2，3，4，5，6，7，8，9)) 
deubie data2 [9] = {11，12，13，14，15，16，17，18，19); 


Printf 〔《%Creating file %s, . .Na，file7) 
/# 代码 2: 创建 MAT 文 件 * 7/ 


prmatfile 一 matOpen (file，"w7 

让 (pmatfile 一 = NULL》 

{ 
Printf 〔”Etror cfeating file %%ssn， file)3 
Teturn (17# 


} 


1/x 代码 3， 创建 mxArray 类 型 的 数组 ， 并 给 数组 指针 赋值 及 对 数组 命名 * / 
pal 一 mxCreateDoubleMatrix (3，3，ImxREALI3 
mxSetName (pal ， 吕 .Djlata”) 
memepy 〔 《chatr + ) (mxGetPr (pal))，(char + 》 datal， 3#+3+asizeof (double)》， 
pa2 一 mmxCreateDoubleMatriz (3，3，mxREAL7; 
mxSetName (pa2，"GDdata)j 
tmemcpy 〔 《cbar * ) (inxGetPr (pa2))，(char 关 ) data2，3+3xasizeof (〔double)7) 
ba3 一 mxCreateString 《?We teach you use the mat function,?)4 
mxSetNatme (pa3，"GSdqatay”) ; 
/xx 代码 4， 把 代码 3 得 到 的 mxArray 数组 写 人 到 MAT 文件 中 < 7 
tmatPutArray 《Pmatiile ，Pal7》+ 
matPutArray 呈 sGlobal 《pmatfile，pa274 
matPutArray 太 sgsCGtiobal 《ptnatfile，Pa37; 
/x# 代码 5， 籍 除 已 经 歧 值 的 指针 变量 * / 
mxDestroyArray 《pal)1 
InxDestroyArray 〔pa275 
tnXDestroyArray 《pa37# 
/* 代码 6， 关闭 在 代码 2 中 创建 的 MAT 文件 * 7 
ii 《matClose 《pmatfile》 1 一 0) 
{ 
printf 〔”Error closing file %ssnp"，fle)s# 
Teturn 《1)， 
} 
} 
/x# 程序 眉 (3) * 7 
/* 子 函 数 matread， 读 取 已 经 存在 的 MAT 文件 中 的 信息 “7 
int matread (const char # filey 


{ 
7 代码 1; 变量 定义 * 7/ 
MATFile * btmat; 
char # # dirt 
int ndir) 
int 1 
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InXAtrtay 共 Paf 
printft 〔"Reading file %s. .Ann?，file); 


/7x 代码 2: 打开 MAT 文件 * 7/ 

pmat 一 matOpen (file ,%r7); 

这 《〈《pimat 一 一 NULL) 

{ 
printf 《Error opening file %s\n"，file)# 
returmn 《173 


} 


/# 牧 码 3， 从 打开 的 MAT 文件 中 ， 获 得 所 存 情 的 所 有 数组 名 * / 
dr 一 matGetDir 《pmat，&ndir)， 
让 (dir 王 王 NULL) 
{ 
printf (srror reading 出 rectory of file %%sNa"， 和 ep)# 
Teturm (17)) 
} 
els8e 
{ 
Printf 〔*"Directory of %sNa7， 提 le)# 
for 〈i 一 0; ji<ndiry i 十 十 》 
printt 〔(”%s nz，dir 1) 
} 
taxXFree (dir)s 
下 《matClose 《pmat)! 一 0) 
{ 
printf 《Error closing file %sNa"，file); 
Teturn 《123 


} 


/+ 代码 4， 从 文件 头 中 该 出 存储 的 数组 信息 * /7 
brintf (AnExamining the header for each variable : \n2)i 
pmat 一 matOpen 《fileyr")1 
for《i 一 0 i<<ndir，i 十 十 ) 
{ 
pa 一 matGetNextArtrayHeader 《pmat); 
让 (pa 一 NULL) 
{ 
printf 〈*Error reading in file 外 sNa ， 和 le); 
feturn 〔17214 
printf 〈?"According to its header ，8axTay %sg has %d dimensions\n 
ImxGetName 〔(pa)， 
tmnxGetNumberOfDimensions 〔(pa)?7# 
让 【mxIsFremGlobatWS (pa)》 
printt 《" and was a global variable when saved mn )3 
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else 
Printt 〈”and was a lccal vaTiable when savedsn”) 1 
mxDesttoyAtray 《pa)) 


} 

计 〈〔matClose 《pmat》! 一 0》 

{ 
printf 〔%Error closing file %s ny，file)# 
retutn 《了 7# 

} 


/+ 代码 5: 直接 读 出 文件 中 的 数组 信息 * / 
ptnat 一 matOpen (file ,各 
计 〈pPmat 一 王 NULL) 
{ 
printf 《Error reohening He ssms，file)3 
return 〈《1); 
} 
printf 《mnReading in the actual array contents: \mn>)4 
fior 《i=04 i<<ndir i 十 十 ) 
{ 
ba 一 matGetNextArTray 《ptnat)j 
让 《pa 一 =NULL) 
{ 
Printf 〔%rror reading in file %ssn*，filey; 
Teturn 〔《174 
} 
printf 〔〈?"AAccording to its contents ， 
artray %s has %d dimensions\ny”，mxCGetNatme (Pa)， 
mxGetNumberOfDimensions 〔(pay7; 


计 《mxIsFromGlobalWS 〔pa)) 

printt 《" and wag a gtobal vatiable when savedNn")1 
else 

prin 芝 《? and was a local variable when savedNma 7)} 
tnxDestroyArray 《pa); 


} 

让 《matClose 《ptnat)| 上 一 [0) 

{ 
printf 〈sErrot closing file 欠 g Am ， le) 
teturn 《1734 

} 

return 〔07) 


} 
7x# 程序 段 (4) #7 
int main 〔) 


{ 
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int eteatetesulty 
int readzresult; 
int restult) 


7/# 分 别 调 用 创建 MAT 文件 的 子 画 数 和 读 了 到 MAT 文件 的 子 函数 * / 
cteafterestult 一 matcteate 〔”mattest ptat"》) 
readresult 一 maatread 〔%mattest. inat)# 
证 〔 《createresult 一 一 0) && (Creadresult 一 一 0)) 
TesSUlt 一 0; 
else 
result 一 14 
Tettitn (resujt 一 一 0)? EXIT _SUCCESS，EXIT _FAILUREI 
} 


3. 源 程 序 分 析 


下 面 将 分 别 对 由 个 程序 段 的 功能 进行 分 析 及 对 源 程 序 中 使 用 到 的 MAT 库 函 数 的 用 
法 进行 说 明 。 

。 程序 段 (1) :文件 包含 处 理 代码 

这 上 段 代码 对 程序 中 所 必需 的 一 些 头 文件 进行 了 包含 , 其 中 最 为 重要 的 是 matrix.h 和 
mat.h 两 个 头 文件 。matrix. h 中 包含 了 程序 中 使 用 到 的 操作 MATLAB 数组 的 库 函 数 的 
函数 原型 定义 。mat.h 中 包含 了 程序 中 使 用 到 的 操作 MAT 文件 的 库 函 数 的 函数 原型 定 
义 。 缺 了 这 两 个 头 文件 ， 程 序 将 无 法 编译 。 

。 程 序 段 〈2)， 子 苛 数 matcreate 

子 函数 的 作用 为 创建 MAT 文件 , 并 将 变量 名 和 变量 值 写 人 到 创建 的 MAT 文件 中 。 
子 函 数 的 函数 名 为 matcreate; 形式 参数 file 为 指向 党 字符 类 型 指针 变量 。 当 主 调 画 数 调 
用 该 子 函 数 时 ， 将 要 创建 的 文件 名 传递 给 file。 

该 子 函数 由 以 下 代码 段 组 成 ， 下 面 将 分 别 介绍 各 代码 段 的 功能 ， 并 对 各 代码 段 中 用 
到 的 mat 库 函 数 的 使 用 进行 说 明 。 

代码 1 是 变 重 定义 及 初始 化 模块 , 其 中 pmatfile 为 指向 MATFile 的 指针 变量 ; pal1、 
pa2 和 pa3 为 指向 mxArray 结构 体 类 型 数据 的 指针 变量 ; datal 和 data2 为 double 数据 
类 型 的 变量 。 

代码 2 是 创建 MAT 文件 模块 , 同时 检验 MAT 文件 的 创建 情况 。 和 其 他 高 级 语言 一 
样 ， 对 文件 读 写 之 前 应 该 “打开 ”文件 ， 在 使 用 结束 之 后 应 关闭 该 文件 。 打开 文件 是 利 
用 MATLAB 提供 的 库 函 数 matOpen。 它 表 示 : 要 打开 名 字 为 file 的 文件 , 使 用 文件 的 方 
式 为 “只 写 "”，matOpen 库 函 数 带 回 指 向 file 文件 的 指针 并 赋 给 pmatfile。 注意 ， 如 果 要 
打开 的 文件 并 不 存在 , matOpen 库 函 数 将 创建 一 个 以 参数 fle 为 文件 名 的 MAT 文件 .如 
果 不 能 实现 “打开 ”任务 ,matOpen 库 函 数 将 会 带 回 一 个 出 错 信息 ， 一 个 空 指针 NULL。 
这 里 先 检查 打开 是 否 出 错 ， 如 果 有 错 就 在 终端 土 输出 “Error creating flle”， 并 返回 主 调 
本 数 。 

代码 3 是 创建 变量 和 变量 命名 模块 。 该 模块 中 ， 分 别 用 库 函 数 mxCreateDou- 
bleMatrix 和 mxCreateString 创建 Double 类 型 的 变量 和 String 类 型 的 变量 ,并 分 别 将 创 
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建 的 变量 指针 赋 给 变量 pal 、pa2 和 pa3。 同 时 使 用 库 函 数 mxSetName 对 变量 僵 名 ， Pal 
所 指 的 变量 名 为 “LDdata”; pa2 所 指 的 变量 名 “GDdata”;，pa3 所 指 的 变量 名 为 
“GSdata”。 并 分 别 对 变量 赋值 。 

代码 4 为 将 数组 名 、 数 组 值 写 人 到 MAT 文件 中 的 功能 模块 。 其 中 pal 所 指 变量 用 
matPutArray 库 函 数 写 人 , pa2 和 pa3 所 指 的 变量 用 matPutArrayAsGlobal 库 酚 数 写 人 。 
matPputAtrray 库 郴 数 允 许 用 户 将 一 个 mxArray 数组 写 人 到 MAT 文件 中 , 当 MAT 文件 
被 MATLAB 装载 时 ， 这 个 被 写 人 的 变量 为 局 部 变量 ;matPutArrayAsGlobal 落 数 与 
matPutArray 卫 数 的 使 用 方法 相似 , 惟一 不 同 的 是 ,MATLAB 装载 这 个 数组 时 , 将 该 变 
量 装 载 到 全 局 内 存 工 作 区 。 . 

代码 5 为 删除 已 经 赋值 的 指针 变量 的 功能 模块 ， 在 该 模块 中 ， 分 别 删 除了 pal、pa2 
和 pa3， 释 放 占 用 的 系统 资源 。 

代码 6 是 关闭 MAT 文件 模块 ， 它 对 文件 关闭 成 功 与 否 进行 判断 。matClose 库 函 数 
关闭 一 个 打开 的 MAT 文件 ,该 函数 返回 一 个 整 型 值 。 当 文件 成 功 关 闭 时 ,其 值 为 0， 否 
则 其 值 为 非 0 值 。 

。 程序 段 〈3) ， 子 函数 matread 

该 子 函数 的 作用 为 读 取 MAT 文件 的 内 容 。 该 子 函 数 的 形式 参数 file 为 指向 常 字符 
类 型 的 指针 变量 。 当 子 函 数 被 调用 时 , 主 调 函 数 把 mat 文件 名 传递 给 file。 该 子 函 数 返回 
值 类 型 为 整 型 ， 当 函数 返回 人 为 1 时 ， 该 子 函数 调用 失败 当 函 数 返 回 值 为 0 时 ， 该 子 
画 数 成 功 返 回 。 

代码 1 是 变量 定义 及 初始 化 模块 。 同 子 函数 matcereat 一 样 ,pmat 变量 为 MATFile 的 
指针 变量 ;pa 为 指向 mxArray 数据 类 型 的 指针 变 重 ;dir 变 基 定义 为 指向 字符 指针 的 指 
针 变 量 ;， i 和 ndqir 定义 为 整 型 数据 类 型 的 变量 。 

代码 2 的 功能 与 子 函 数 matcreat 代码 2 相似 ， 惟一 不 同 的 地 方 是 文件 的 使 用 方式 不 
同 ， 这 里 为 “只 读 ”。 

代码 3 是 获取 变量 名 模块 。matGetDir 库 本 数 得 到 被 打开 的 MAT 文件 里 存储 的 所 
有 mxArray 结构 体 类 型 变量 的 变量 名 ,并且 返回 指向 字符 串 指针 数组 ， 该 数组 中 存放 了 
所 有 变量 的 变量 名 ,并 将 它 赋 给 dir.MAT 文件 中 变量 的 个 数 将 被 存放 到 第 二 个 参数 ndir 
指向 的 变量 中 。 此 外 该 子 函 孝 中 使 用 了 函数 mxCalloc 来 分 配 返 回 指针 地 址 ,程序 结束 时 ， 
必须 使 用 mxFree 来 释放 占用 的 内 在 资源 。 

代 玛 4 为 从 数组 头 中 读 出 存储 的 变量 信息 的 功能 模块 。matGetNextArrayHeader 库 
阔 数 从 MAT 文件 中 按 存储 的 先后 顺序 读 取 变 量 头 中 的 变量 信息 ， 信 息 中 包括 除了 pr， 
pi, if 及 jc 的 所 有 信息 , 同时 该 库 函数 将 变量 的 指针 返回 并 赋 给 pa.。 当 函 数 调用 失败 时 ， 
将 返回 NULL 。 然 后 ， 逐 个 对 读 出 的 数组 头 信息 进行 判断 ， 包 括 维 数 、 变 量 类 型 ， 以 便 
与 代码 5 直接 读 出 文件 中 的 数组 信息 进行 校 验 。 

代码 5 直接 读 出 文件 中 的 变量 信息 。matGetNextArray 库 范 数 从 MAT 文件 中 按 存 
储 的 先后 顺序 直接 读 取 变 最 的 变量 信息 ， 并 将 该 变量 的 指针 返回 赋 给 pa。 使 用 中 需要 注 
意 的 是 该 函数 应 该 在 matOpen 库 函 数 使 用 后 ， 立 即使 用 ,不 能 在 其 他 的 MAT 库 函 数 使 
用 后 再 使 用 , 并 且 该 函数 是 使 用 mxCailloc 来 分 配 指 针 地 址 ,程序 中 必须 释放 占用 的 内 存 
资源 。 用 户 可 对 该 代码 段 中 读 取 的 信息 与 代码 4 进行 比较 ， 看 两 次 的 内 容 是 否 一 致 。 
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。 程序 段 〈4) : 主 函 数 

主 调 函 数 首 先 调用 创建 MAT 文件 的 子 函 数 matcreat ， 并 将 文件 名 mattest. mat 传 
递 给 形 参 。 然 后 再 调用 读 取 mattest. mat 文件 信息 的 子 函 数 matread， 读 取 创 建 的 mat- 
test, mat 文件 的 信息 。 其 中 result 的 值 将 帮助 我 们 判断 调用 的 子 范 数 是 否 成 功 返 回 。 


4. 程序 抗 行 结果 


程序 经 缩 译 和 链接 后 ， 形 成 基于 DOS 的 可 执行 程序 。 运 行 该 可 执行 程序 后 ， 可 在 
MATLAB 中 用 whos 命令 ， 查 看 程序 形成 的 MAT 文件 。 查 看 结果 如 下 ， 


? Whoes -file mattest. taat 


Natrme Size Bytes Class 

GDqata 3x3 72 double array (global) 
GSdata 1x34 68 chatr array〈global》 
1LDdata 3x3 72 deuhble array 


s.2.2 基于 FORTRAN 语 告 的 MAT 库 函 数 的 使 用 例 程 


1. 程序 说 明 


matdemo.f 是 使 用 Fortran 语言 开发 的 一 个 基于 DOS 操作 系统 的 应 用 程序 。 这 个 程 
序 的 主要 功能 是 创建 一 个 可 被 MATLAB 装载 的 MAT 文件 ， 并 读 取 MAT 文件 中 的 信 
息 ， 

编写 这 个 程序 的 目的 是 想 向 大 家 介绍 在 FORTRAN 语言 中 调用 MAT 库 函 数 的 方 
法 ， 并 且 希 望 大 家 尽快 掌握 以 下 库 表 数 的 使 用 。 


tmat(]pen ImatClose 
matGetDit matGetNextMatrix 
rnatPutMatrix 


2.matdemo-f 源 程 序 


萎 matdemo,f 程序 将 创建 一 个 可 被 matlab 装载 的 mat 文件 ， 
C ”并 读 取 新 创建 的 mat 文件 中 的 内 容 
C 
progtam tatdemo 
C 程序 明 〈1)， 定义 外 部 函数 和 变量 的 类 型 及 对 部 分 变量 赋值 。 
integer IDatDpen，ImatClose 
integer mxCreateFuli 
integer matGetMatriz ，mxGetPr 


jnteger matGetDir，matGetNextMatrix， mxCreateString 
integer ImmxGetM，mxGetN 


tnteger Stat 
integer tmp，Pal，Pa2，Pa3，pa4 


C 〇 > 


品 
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integer ndir，1 
integer 由 + ，adqir 《100) 


character * 32 names 〔1i07，narme，mXxCerNarme 


double precision dat1 (8)，dat2 〈47》 
data datt/1.0， 2.0，3.0， 4.0， 5.0，6.0，7 了 .0， 8.0， 号 OF 
data dat2710.0，11.0，12.0，13.07 


程序 段 (2)， 创 建 一 个 新 的 MAT 文件 matdemo. mat 。 

Write (6，+# ) "Now creating MAT-fiie matdemo. mat, 

mp 一 matOpen 〈"matdemo, mat'" ywr )》 

让 《mp.eq.0) then 
write (6，* 》:Can't open tmatdemo, mat for writing' 
write 〔(6，# 》 《Do you have write pertmission ip this directory?? 
atO 世 


end 让 


程序 段 (3): 创建 mxArray 结构 体 类 型 的 对 象 ， 并 给 该 对 象 赋值 和 命名 
pal 一 ImxCreateFuli 《3，3，0) 

call mxCoepyReat8ToPtr (dat1 ，mxGetPr (pal)，9》 

call InxSetName (pal, datal') 

pa2 一 ImxCreateFull (2，2，0) 

calt mxCopyReal8ToPtr 《dat2，mxGetPr 〈《pa2)，4) 

call mxSetName (pa2，data2' ) 

pa3 一 mxCreateString 〔'Tbis is a sample how to use MAT- 铝 e，) 

eall mxSetName 《Pa3y stting' ) 


程序 自 〈4)， 将 新 创建 的 mxArray 结构 体 对 象 写 人 到 MAT 文件 
imatdemo. mat 文件 中 

call matPutMatrix 〔mp，Ppal》 

call matPutMatrixz (mp ，ba2) 

call matPutMatrix (tmp ，pa3》 


程序 段 〈5):， 关 闭 MAT 文件 matdeme, mat 
stat 一 rmatClose 〔tnpy》 
让 (stat. ne. 0) then 
write (6，x ) Error closing MAT-file” 
stop 
end 计 


程序 颇 〈《6)， 重 新 打开 tnatdemo. mat 文件 ， 并 从 该 文件 中 得 到 mxArray 
结构 体 对 象 列表 
mp 一 matOpen 〈'matdemo. mar rr ) 
放 〈mp-eq- 0) then 
write 《6，# )Can't open matdemo. mat for reading. 
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stoP 
epd 计 


dr 一 matGetDir (mpPp，nqir) 
让 〔〈dir,eq, 0) then 
Write (6，# 》Can't read 中 tectory. 


stop 
end 于 


cali mxCopyPtrToPtrArray 《dr，adir，ndiry》 


de 10j 一 1，bndir 
call tnxCopyPtrToCharacter (adir 《ty，names (〈i)，32) 


cohtinue 


wiite 〔《6，# )Directery of MAT-file: 
do 20 i 王 1，ndir 


WrTite 《6， # ) natnes 《1 


20 continue 


stat 一 inatClose np) 

过 〈stat, ne, 0) thep 
WrTite 〔6，# 》Error closing matdemo. mnat. 
stoj 

end 让 


程序 段 〈7》， 再 一 次 打开 matdemo, mat 文件 ， 直 接 读 取 该 文件 的 信息 
mp 一 matOpen 《matdetno. tmat ，T7) 
让 〔mp.eq.0) then 
write 《6，*#)Can't open Imatdentc- mat，/ 
stoPp 
epd 这 


write 〈《6，* ) Getting fuli artay contents: 
pad 一 matGetNextMatrix (mpy》 


do while 〔pa4. ne. 0》 
narme 一 mmXCetName (pad) 
write 〔6， 关 )Rettieved' ，narme 
write (6，* )With Size! ，inxGetM (pad)， -by-  ，ImxGetN (Pa47 
ba4 一 ImatGetNextMatrix 《mpP) 
end qdqo 


stat 一 TnatClose (〔mPp) 
计 《stat,ne.0) then 
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Write (6，*# )Error closing "matdemo. mate. 7 
stop 

end 下 

stop 


end 
3. 源 程序 分 析 


该 程序 出 七 个 程序 段 组 成 ， 下 面 将 分 别 介绍 各 程序 段 的 功能 ， 并 对 各 程序 段 中 用 到 
的 MAT 库 函 数 的 使 用 进行 说 明 。 

程序 段 C1) 是 外 部 函数 和 变量 定义 模块 ,其 中 包括 部 分 变量 的 初始 化 .在 FORTRAN 
程序 中 ， 函 数 子 程序 名 既是 某 个 函数 的 名 字 又 代表 该 函数 的 本 数 值 ， 所 以 在 需要 使 用 该 
函数 的 返回 值 时 ， 必 须 对 其 进行 类 型 说 明 。 如 果 省 略 了 对 琴 数 名 的 类 型 说 明 ， 则 按 陷 含 
类 型 规则 出 函数 名 的 第 一 个 字母 来 确定 函数 值 的 类 型 。 程 序 中 用 call 命令 调用 的 子 函 数 
属于 子 例 行程 序 ， 子 例 行 程序 的 名 字 只 供 调用 ， 它 不 代表 某 个 值 ， 当 然 也 不 属于 某 个 类 
型 ,因此 在 程序 中 不 需要 定义 类 型 .该 代码 段 首先 定义 了 程序 中 要 用 到 的 MAT 库 郴 数 及 
mx- 库 函数 的 函数 类 型 , 接着 定义 了 程序 中 将 要 使 用 到 的 变量 类 型 , 并 对 部 分 变量 进行 了 
赋 初 值 。 

程序 段 2) 是 创建 一 个 新 的 MAT 文件 模块 ， 同 时 检验 MAT 文件 的 创建 情况 。 和 
其 他 高 级 语言 一 样 ， 对 文件 读 写 之 前 应 该“ 打开 ”该 文件 ， 在 使 用 结束 之 后 应 关闭 该 文 
件 。 打 开 文件 是 利用 MATLAEB 提供 的 库 函 数 matOpen 。 它 表示 : 要 打开 名 字 为 matde- 
mo. mat 的 文件 , 使 用 文件 的 方式 为 “只 写 ”。 注意 , 如 果 要 打开 的 文件 并 不 存在 , matOpen 
库 函数 将 创建 一 个 以 参数 file 为 文件 名 的 MAT 文件 。 如 果 不 能 实现 “打开 ”任务 ， 
matOpen 库 函 数 将 会 带 回 一 个 出 错 信息 : 一 个 整 型 值 0. 这 里 先 检查 打开 是 否 出 错 ， 如 果 
有 错 就 在 终端 上 输出 “Error creating file”。 

程序 段 (3) 创建 mxArray 结构 体 类 型 的 对 象 , 并 给 该 对 象 赋值 和 命名 。 通过 使 用 库 
函数 mxCreateFull 和 mxCreateString 创建 Double 类 型 的 变量 和 String 类 型 的 mxAr- 
ray 结构 体 对 象 ， 并 分 别 将 前 面 创建 的 数组 赋 给 变量 pal、 pa2 和 pa3。 接 下 来 分 别 对 变量 
赋值 . 同时 通过 使 用 库 本 数 mxSetName 对 创建 的 数组 命名 , pal 命名 为 “datal”; Pa2 命 
各 “data2”; pa3 命名 为 “string”。 

程序 段 〈4) 是 将 新 创建 的 mxArray 结构 体 对 象 写 人 到 MAT 文件 中 的 功能 模块 。 
pal、pa2 和 pa3 的 写 人 工作 通过 库 机 数 matPutMatrix 完成 ，matPutMatrix 能 够 把 一 个 
mxArray 型 变量 写 人 到 MAT 文件 中 。 恨 如 在 MAT 文件 中 不 存在 与 将 要 写 人 的 数组 具 
有 相同 数组 名 的 数组 ， 则 这 个 将 要 存储 的 数组 被 放置 在 文件 的 末尾 ! 如 果 MAT 文件 存在 
同名 的 数组 ， 这 个 新 写 人 的 数组 将 替换 上 数组 ， 不 管 它们 的 尺寸 大 小 是 否 一 致 。 

程序 段 (5) 是 关闭 MAT 文件 的 功能 模块 ， 并 对 文件 关闭 成 功 与 否 进行 判断 。mat- 
Close 库 函 数 关闭 一 个 打开 的 MAT 文件 。 该 函数 返回 一 个 整 型 值 ， 当 文件 成 功 关闭 时 其 
值 为 0， 否 则 其 值 为 非 0 值 。 

程序 段 (6) 重新 打开 matdemo. mat 文件 ， 并 从 文件 中 得 到 mxArray 结构 体 对 象 名 
的 列表 。 这 里 matOpen 库 函 数 的 使 用 与 代码 (2) 中 相似 ， 不 同 的 地 方 是 文件 的 使 用 方式 
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不 同 , 这 里 是 以 “只 读 ” 方 式 打 开 文 件 。matGetDir 库 函 数 得 到 被 打开 的 MAT 文件 里 存 
储 的 所 有 mxArray 结构 体 对 象 名 的 列表 .。 该 库 函 数 返 回 指向 字符 数 组 〈 存 储 了 变量 名 
的 数组 ) 的 指针 , 并 将 它 赋 给 dir. 该 MAT 文件 中 变量 的 个 数 将 被 存放 到 第 二 个 参数 ndir 
指向 的 变量 中 。 

程序 段 (7) 再 一 次 打开 matdemo. mat 文件 ,直接 读 取 该 文件 的 信息 .matGetNextMa- 
trix 库 函 数 从 MAT 文件 中 按 存储 的 先后 顺序 直接 读 取 变 量 的 变量 信息 ， 并 将 该 变量 的 
指针 返回 赋 给 pa4。 使 用 中 需要 注意 的 是 该 冰 数 应 该 在 matOpen 库 了 攀 数 使 用 后 立即 使 
用 ,不 能 在 其 他 的 MAT 库 函 数 使 用 后 再 使 用 ， 和 否则 下 一 个 数组 的 概念 将 没有 意义 。 


4. 程序 执行 结果 


程序 经 编译 和 链接 后 ， 形 成 基于 DOS 的 可 执行 程序 。 运 行 该 可 执行 程序 后 ， 可 在 
MATLAB 中 用 whos 命令 ， 查 看 程序 形成 的 MAT 文件 。 查 看 结果 如 下 : 


? whos 
Name Size Bytes Class 
datal 3x3 72 double array 
data2 2x2 32 double array 
strjng Jx37 74 chatr arTay 
Grand total is 50 elemments using 178 bytes 


5.3 MAT 文件 应 用 程序 的 建立 和 调试 


在 本 节 中 , 我 们 将 分 别 基于 C 语言 和 FOTRAN 语言 ,对 MATLAS 引擎 程序 的 建立 
和 调试 方法 进行 介绍 ， 并 给 出 直接 在 Microsoft VC 十 十 6.0 集成 环境 和 Microsoft For- 
tran PowerStation 集成 环境 中 建立 和 调试 MATLAB 引擎 程序 的 方法 。 


s.3.1 《语言 MAT 文件 应 用 程序 的 她 立 和 调试 


1.C 语言 MAT 文件 应 用 程序 的 建立 


在 Windows 操作 系统 上 ，C 语言 MAT 文件 应 用 程序 的 建立 极为 简单 , 用户 在 编写 
好 源 程 序 后 ,只 需 在 MATLAB 命令 提示 符 下 键 人 命令 mex 并 辅 以 参数 -f 和 相应 的 选项 
文件 以 及 需要 编译 的 源 程 序 名 如 可 ， 格 式 如 下 ， 


Tex -f .matlab>>NbinNopisFFenamte. bat 产 Fertazzxe, 
其 中 optzFienamae. bat 为 与 用 户 系统 中 [语言 编译 器 相对 应 的 选项 文件 名 ，.Jilenarmae- 
为 用 户 编写 的 MAT 文件 应 用 程序 的 源 文 件 名 ， 参 数 -f 的 含义 为 使 用 指定 的 选项 文件 对 
Fenamnese 进行 编译 。 关 于 选项 文件 的 选择 , 读者 可 以 参见 本 书 的 第 2. 4. 1 节 。 关 应 用 程 
序 编译 成 功 , mex 命令 将 不 返回 任何 信息 , 直接 回 到 MATLAB 命令 提示 符 下 , 否则 将 给 
出 一 定 的 错误 原因 。 


2.C 语言 MAT 文件 应 用 程序 的 调试 
C 语言 MAT 文件 应 用 程序 在 编译 链接 通过 后 . 并 不 意味 着 已 经 完全 没有 错误 , 这 一 
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点 对 于 有 经 验 的 程序 员 来 说 是 显 布 易 见 的 。 如 果 程 序 在 运行 时 发 生 错误 ， 最 简单 直接 的 
查 错 方法 就 是 调试 (DEBUG) ， 在 一 般 的 应 用 程序 编制 过 程 中 ， 这 是 一 个 必 不 可 少 的 步 
取 。 下 面 我 们 以 Microsoft VC 十 十 6. 0 为 例 , 对 乙 语 言 MAT 文件 应 用 程序 的 调试 进行 
讲解 。 

从 大 体 上 整个 过 程 可 以 分 为 两 步 : 首先 开启 集成 编译 环境 , 选择 需要 调试 的 MAT 文 
件 应 用 程序 的 执行 文件 , 将 其 调 人 到 集成 环境 中 , 这 时 VC 将 为 其 创建 一 个 工作 空间 ; 其 
次 选择 MAT 文件 应 用 程序 的 源 文 件 , 将 其 调 人 到 当前 工程 中 .至 此 就 完成 了 全 部 的 设置 
工作 ， 接 下 来 就 可 以 在 程序 中 设置 断 点 进行 调试 了 。 关 于 调试 器 的 使 用 ， 请 读者 自行 参 
见 相 关 调试 器 的 联机 帮助 。 

这 里 必须 非常 注意 一 点 ， 如 果 希 望 对 一 个 C 语言 MAT 文件 应 用 程序 进行 调试 ， 那 
么 在 使 用 mex 命令 进行 编译 时 ， 必 须 同 时 加 人 命令 参数 -g， 格 式 如 下 

mex -g -f <matlab>>\binNoptsFizertante bat 所 Terramze cc 

其 中 参数 -g 的 含义 为 告诉 编译 器 在 编译 链接 程序 时 包含 人 调试 信息 ,否则 程序 将 无 法 调 
试 。 强 烈 建议 用 户 在 首次 调试 程序 时 使 用 -g 参数 。 


3. 对 选项 文件 msvc60engmatopts. bat 的 分 析 


选项 文件 msvc60engmatopts. bat 是 MATLAB 为 Microsoft Visual C 十 十 6.0 提供 
的 一 个 专门 用 于 编译 MAT 文件 的 选项 文件 ， 位 于 目录 
<MATLAB 根 目录 >>NBIN 
中 , 其 源 代 码 如 下 , 请 读者 先 详细 阅读 该 程序 ,在 后 面 将 对 该 选项 文件 进行 全 面 的 分 析 ， 
以 加 深 读 者 对 C 语言 MAT 文件 应 用 程序 编译 过 程 的 理解 。 


@echo c 芷 

rem MSVC60ENGMATOPTS. BAT 

tetm 关 并 其 基 长 美和 并 状 基 其 凌 关 其 居 入 六 闪闪 入 外 共识 六 并 六 儿 荔 凑 入 其 其 关 放 类 闪闪 关 交 

rert (1》 普通 参数 设置 

termm 关 关 类 关 并 并 其 其 六 六 关 其 凑 戏 江 其 其 愉 关 区 座 关 其 并 其 关 关 其 其 次 条 小 闭关 其 其 入 六 芝 

set MATLABRB 一 %MATEAB%% 

set MSVCDir 一 外 MSVCDir 吧 

set MSDevDir 一 %MSVCDir % .NANCommonNmsdev98 

set PATIE-= %MSVCDir%NBIN+ %MSDevDir%sbin; 外 PATH 听 

aet INCLUDE 一 %MSVCDir%NNCLUDE3#%MSVCDir%NMEFCMNNCLUDE， 
%MSVCDir%NATLNNCLUDE' %INCLUDE 吧 

set 工 IB= %MSYVCDPir% ALIB;%MSVCDir 中 NMEFCNLIB 多 LIB 匆 


remna 关 关 关 并 关 类 基 入 关 基 项 关 和 关 其 其 短 关 和 病 六 共和 关 其 基 基 并 和 并 其 关 入 半 关 基站 


rem《〔〈2》 编 译 器 参数 设置 


remm 共 并 基 尖 六 并 六 项 美 次 并 六 关 关 和 六 其 并 关 入 党 其 条 并 二 基准 尖 半 其 攻关 关闭 其 半 攻 


set COMPILER = 

set (JPTIMFLAGS 一 -O2 

set DEBUGELAGS 一 -2 

set COMPFLAGS 一 -c -Zp8 -G5 -好 3 -nologo 
set NAME _OBJECT = /Fo 
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TeIII 基 攻关 六 洲 关 其 种 诗 居 其 凑 洲 六 长 六 凑 入 六 长 游 洲 其 长 其 凑 关 就 其 其 六 洲 头 医 基 入 办 六 攻 其 


rem《【〈3) 库 创 建 命令 〈 预 编译 过 程 ) 


TeIID 兴 其 其 和 关头 长 蓉 洲 其 其 和 六 兴 长 诈 浇 洲 其 苹 特 关 攻读 入 关 疾 长 诗 洲 洲 共 训 入 尖 入 其 避 其 江 


set PRELINK _CMDS 一 lib /def2%%MATI.AB%% NexternNincludeNlibmx, def machine:， ix86 
OUT:%LIB LNAME%1l.lib /NOLOGO 

set PRELINK _CMDS 一 %PRELINK _CMDS%5 lib /deft”%MATLAB 名 NexternNinclude 
Mibeng, def” /machine， ix86 /OUT:%LIB LNAMGE%2.iib /NOLOGO 

set PRELINK _CMDS 一 WPRELINK _CMDS%; lib /deft:7 中 MATLAB%NexternNincIode 
Mibmat, def” /machine ; ix86 /OUT:%LIB _NAME%3.lib /NOLOGG 

set PRELINK _DLLS=lib /def7%MATLAB 如 NexternNincludeN%DLL _NAME8%%.def 

/machine: ix86 /OUT:%DLL __NAME%.lib /NOLOGO 


Tett 头 并 其 关头 其 关 并 其 天 入 其 长 其 济 洲 长 次 入 其 其 并 其 并 攻关 和 其 关 其 兴 其 其 其 关外 其 次 


rem (4) 链接 器 参数 设置 


Tetm 关头 凑 凑 关 其 其 并 央 其 凑 并 放 其 其 入 其 六 汰 全 六 其 失 著 谤 六 天 澳 闪 其 其 拓 六 汪 六 汪 间 开 淮 


set LINKER 一 link 

set LINKFLAGS 一 kernel32, lib user32. lib gdi32, lib %%LIB _NAME 久 1.1ib 
%LIB_NAME%2.lib %LIB _NAME%3.lib Aimplih:%LIB_NAME%%l.lib Anologo 

set LINKOPTIMFI.AGS 一 

set LINKDEBUGFLAGS = /debag 

set LINK _FILE == 

set LINK _LIB = 

aet NAME _OUTPUT = "out WOUTBIR% 欠 MEX _ NAME 听 .exe” 

set RSP _FILE _INDICATOR = 钙 


Fet 党 其 其 其 条 训 六 六 其 其 并 凑 关 其 其 敌 入 其 凑 亲 其 其 入 其 尖 凑 入 闪 基 六 天 关 基尼 关 放 闪闪 其 


remm (5) 资源 编译 器 参数 设置 

Tetm 并 尖 关 六 关 可 其 美 入 项 其 科 六 尖 关 其 着 闪 其 关 尖 凑 黄 壬 放 兴 攻 其 汪 时 其 凑 关 放 关 其 乱 针尖 
set RC _ _COMPILER = rc Aio "WOUTDIR 外 mexversion. Tes” 

set RC _LINKER 一 


由 上 面 的 源 代 码 可 以 看 出 ， 选 项 文件 msvc60engmatopts, bat 的 结构 非常 清晰 ,总 共 
可 以 分 为 五 个 部 分 ， 

第 一 部 分 为 普通 参数 设置 ， 定 义 了 一 些 关 于 MATLAB 以 及 [C 语言 编译 器 的 路 径 信 
息 ， 其 中 %MATLAB% 和 %%MSVCDir% 分 别 和 代表 了 MATLAB 和 -Microsoft Visual 
C 十 十 6.0 所 在 的 安装 路 径 ， 其 余 的 一 些 相关 定义 ， 都 是 建立 在 它们 的 基础 之 上 

第 二 部 分 为 编译 器 参数 设置 , 在 该 选项 文件 中 , 通过 环境 变量 COMPILER 设置 了 编 
译 器 为 el， 并 且 通 过 环境 变量 COMPFLAGS、OPTIMFLAGS、 和 DEBUGEFLAGS 对 编 
译 器 进行 了 全 面 的 设置 ， 其 中 各 参数 的 含义 分 别 如 下 : 


-G5 ”代表 针对 奔腾 处 理 器 进行 优化 处 理 
-W3 ”代表 设置 区 告 级 别 为 3 级 

-Zi ”代表 使 能 调试 信息 

-02 ”代表 以 最 大 速度 优化 

-nologo “代表 禁止 版 权 信 息 
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-< ”代表 告诉 编译 器 ， 只 对 源 文 件 进行 编译 而 不 用 链接 
-Zp8 ”代表 按 8 个 字 节 对 准 


第 三 部 分 为 库 创 建 命 令 ， 即 预 编译 过 程 ， 用 于 创建 输入 函数 库 ; 

第 四 部 分 为 链接 参数 设置 , 在 这 部 分 内 容 中 , 首先 通过 环境 变量 LINKER 设置 了 链 
接 器 的 名 字 为 link ， 然 后 通过 环境 变量 LINKEFLAGS 设置 了 链接 器 的 一 些 参 数 选项 , 声 
明了 一 些 在 生成 MAT 文件 的 应 用 程序 时 所 需要 嵌 人 的 库 文 件 ， 包 括 在 第 三 部 分 中 生成 
的 库 文件 ; 

第 五 部 分 为 资源 编译 器 参数 设置 。 


4. Microsoft VC 十 十 6.0 集成 环境 中 MAT 文件 应 用 程序 的 建立 和 调试 


习惯 了 使 用 各 种 集成 环境 的 读者 ， 可 能 会 觉得 MATLAB 提供 的 这 种 程序 开发 方法 
非常 的 不 方便 。 建 立 一 个 MAT 文件 应 用 程序 , 首先 必须 在 某 个 编辑 器 中 进行 源 代码 的 编 
写 , 然后 存盘 后 回 到 MATLAB 的 工作 环境 中 , 进行 编译 , 若 发 现 错误 , 则 必须 回 到 原来 
的 文件 编辑 器 , 按照 MATILAB 的 错误 提示 , 逐 行 地 对 源 代码 进行 查 错 修改 , 之 后 再 回 到 
MATLAB 的 工作 环境 中 进行 编译 ,如 此 往复 ,直至 程序 没有 错误 为 止 , 一 个 MAT 文件 
应 用 程序 才 宣告 完成 。 整 个 过 程 需要 来 回 地 在 文件 编辑 器 和 MATLAB 工作 环境 之 间 切 
换 ， 非 常 不 方便 ， 而 且 过 程 中 还 没有 加 人 调试 步 又， 否则 将 更 加 麻烦 。 

为 了 方便 读者 ， 我 们 将 给 出 一 种 在 Microsoft VC 十 十 6.0 集成 环境 中 的 建立 和 调试 
MAT 文件 应 用 程序 的 方法 ， 其 基本 步骤 如 下 ， 

第 一 步 ， 启 动 Microsoft VC 十 十 6. 0 集成 环境 ， 选 择 File 下 拉 式 菜单 中 的 New 选 
项 ， 这 时 将 弹出 如 图 5.1 所 示 的 对 话 框 ， 用 户 可 以 选择 其 中 三 种 类 型 的 应 用 程序 创建 工 
程 ， 分 别 为 MFC AppWizard (exe)，Win32 Application 和 到 in32 console Application， 
为 了 简便 起 见 ， 我 们 以 Win32 conscle Application 为 例 进 行 说 明 。 选 择 允 in32 console 


Flea Peerts | Wordkepaccs | DOherDoeumeett | 





图 5.1 VCHT+ 6.0File New 对 话 框 
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Application 项 目 ， 并 在 Project name 编辑 框 中 输入 项 目 各， 并 点 击 OK 按钮 ; 

第 二 步 ， 完 成 以 上 操作 后 ,VC 十 十 6. 0 编译 器 将 弹出 如 网 5, 2 所 示 的 对 话 框 ， 提 示 
用 户 选 择 创 建 友 in32 console Application 程序 的 类 型 ， 这 里 我 们 选择 其 中 的 最 为 简单 的 
类 型 An Empty project， 然 后 选择 Finish 按钮 ， 创 建 该 项 目 。 
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5.2 克 in32 console Application 程序 的 类 型 选择 对 话 框 


第 三 步 ,， 在 项 目 工程 创建 完毕 之 后 ， 选 择 下 拉 式 菜单 Tools 中 的 菜单 项 Options, 将 
弹出 Options 对 话 框 , 选择 其 中 的 Directories 属性 页 ,如 图 5. 3， 在 其 中 的 Shew directo- 
ries for 下 拉 式 选项 框 中 分 别 选 择 Include Files 和 Library Files， 在 下 部 的 编辑 框 中 输入 
以 下 路 径 ， 

MATILAB 根 目录 \EXTERNNNCLUDE 

MATLAB 根 朋 录 NEXTERNNLIB 
然后 选择 OK 按钮 ; 

第 四 步 , 在 DOS 命令 框 状态 下 , 进入 用 户 安装 Mierosoft VC 十 十 6. 0 的 目录 , 如 d; 
NProgram fitesNMicrosoft Visual StudioNVC98， 并 且 进 入 该 目录 下 的 子 目 录 \bin, 按 下 面 
的 格式 运行 该 月 录 下 的 命令 tb: 

iib /def， 和 MATLAB%NexternNincludeNlibmx, dej /machine: ix86 ADOUT :LIB _ 
NAME1.lib /NOLOGGO 

lib /def，%%MATLABNexternNincludeNlibeng. def /machine: ix86 /OUT:，LIB _ 
NAME2.lib /NOLOGO 

lib /def ，M%MATLAB%NexternNincludeNiibmat. def Amachine，ix86 /DUT:，L 隐 _ 
NAMEa3,lib /NOLOGGO 
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几 5.3 Options Directories 属性 页 


执行 完 这 三 条 命令 后 用 户 可 以 得 到 三 个 静态 链接 库 文 件 , 分 别 为 LIB _NAMEI.lib、LIB 
_NAME2.lib 和 LIB _NAME3.1lib。 命 令 中 %MATELAB%% 代 表 本 机 上 安装 MATLAB 的 
根 目 录 ， 在 执行 这 些 命令 的 过 程 中 ， 必 须 加 以 替换 ， 如 D: NMATLABi 

这 里 可 以 明确 一 点 ， 一 旦 三 个 静态 链接 库 文 件 生成 后 ， 就 可 以 反复 使 用 ， 而 无 须 对 
每 一 个 项 目 进行 重新 建立 ; 

第 五 步 , 选择 下 拉 式 菜单 Projeet 中 的 菜单 项 Add To Project>>>Files, 将 第 四 步 中 
生成 的 三 个 lib 库 文 件 添 加 到 当前 项 目 中 , 同时 将 用 户 编写 的 MAT 文件 应 用 程序 的 源 文 
件 也 添加 到 当前 项 目 中 。 

当 完 成 了 以 上 五 步 工作 之 后 ,用 户 就 可 以 在 VC 十 十 中 对 MAT 文件 应 用 程序 进行 编 
译 和 调试 了 。 对 于 MEFC Application 和 Win32 Application 类 型 的 MAT 文件 应 用 各 序 ， 
步骤 大 致 相同 。 


5.3. 2 FORTRAN 放 言 MAT 文件 应 用 程序 的 建立 和 调试 


1.FORTRAN 语言 MAT 文件 应 用 程序 的 建立 


在 Windows 操作 系统 上 ，FORTRAN 语言 MAT 文件 应 用 程序 的 建立 与 C 语言 
MAT 文件 应 用 程序 的 建立 过 程 极为 相似 。 用 户 在 编写 好 源 程 序 后 , 只 需 在 MATLAB 命 
令 提示 符 下 键 人 命令 mex 并 辅 以 参数 -f 和 相应 的 选项 文件 以 及 需要 编译 的 源 程 序 名 即 
可 ， 格 式 如 下 : 

mex -二 <<matlab>>N\binsoptrFzertayrze bat iertarae 
惟一 的 不 同 就 是 命令 中 optsjizenamae. bat 为 与 用 户 系统 中 FORTRAN 语言 编译 器 相对 
应 的 选项 文件 名 ,Fienarmae.f 为 用 户 编写 的 MAT 文件 应 用 程序 的 源 文件 名 , 参数 - 的 含 
义 为 使 用 指定 的 选项 文件 对 Pienamae.f 进行 编译 。 关 于 选项 文件 的 选择 ， 读 者 可 以 参见 
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本 书 的 第 2. 4. 1 节 。 若 应 用 程序 编译 成 功 , mex 命令 将 不 返回 任何 信息 , 直接 回 到 MAT- 
LAB 命令 提示 符 下 ， 否 虽 将 给 出 一 定 的 错误 原因 。 


2.FORTRAN 语言 MAT 文件 应 用 程序 的 调试 


与 C 语言 MAT 文件 应 用 程序 类 似 , FORTRAN 语言 MAT 文件 应 用 程序 在 编译 链 
接 通过 后 , 并 不 意 昧 着 已 经 完全 没有 错误 , 同样 需要 一 个 调试 过 程 .下 面 我 们 以 Microsoft 
Fortran PowerStaticn 为 例 ， 对 FORTRAN 语言 MAT 文件 应 用 程序 的 调试 进行 说 明 。 

整个 调试 过 程 具 体 可 以 分 为 两 步 ; 首先 进入 Microsoft Fortran PowerStaticn 集成 环 
境 , 选 择 下 拉 式 菜单 File 中 的 菜单 项 Open Workspace, 这 时 将 弹出 一 个 文件 选择 对 话 框 ， 
用 户 从 中 选择 希望 调试 的 MAT 文件 应 用 程序 的 可 执行 文件 , 将 其 调 人 当前 工作 空间 :第 
二 步 ， 选 择 下 拉 式 菜单 File 中 的 菜单 项 Open 将 MAT 文件 应 用 程序 的 源 程 序 调 人 工作 
空间 。 至 此 就 完成 了 全 部 的 设置 工作 ， 接 下 来 就 可 以 在 程序 中 设置 断 点 进行 调试 了 。 关 
于 调试 器 的 使 用 ， 请 读者 自行 参见 相关 调试 器 的 联机 帮助 。 

这 里 同样 必须 非常 注意 一 点 , 如 果 希 望 对 一 个 PORTRAN 语言 MAT 文件 应 用 程序 
进行 调试 ， 那 么 在 使 用 mex 命令 进行 编译 时 ， 必 须 同 时 加 入 命令 参数 -g， 格 式 如 下 ， 

mex -g -<<rmatiab>>Nbinopfs 太 Jenrarme bat 万 jezataee 

其 中 参数 -g 的 含义 为 告诉 编译 器 在 编译 链接 程序 时 包含 人 调试 信息 ， 和 否则 程序 将 无 法 调 
试 。 强 烈 建 议 用 户 在 首次 调试 程序 时 使 用 -g 参数 。 


3， 对 选项 文件 df50engmatopts. bat 的 分 析 


dft50engmatopts.bat 是 MATLAB 为 DEC Fortran 5.0 编译 器 提供 的 专门 编译 
FORTRAN 语言 MAT 文件 应 用 程序 的 选项 文件 ， 位 于 目录 
< MATILAB 根 目 录 >NBIN 
中 , 其 源 代码 如 下 ,请 读者 先 详 细 阅 读 该 程序 , 在 后 面 将 对 该 选项 文件 进行 全 面 的 分 析 ， 
以 加 深 读者 对 FORTRAN 语言 MAT 文件 应 用 程序 编 坚 过 程 的 理解 。 


他 echo oo 二 
rem DF50OENCGMATOPTS. BAT 工 


Te 其 六 其 其 其 其 儿 入 凑 其 茵 关 其 浊 泣 关 尖 并 产 并 认 放 并 江洲 其 其 关外 基尼 天 乱 小 其 其 商 打 


retm 《li)》 普通 参数 设置 


XeIR 关头 关 基 说 凑 其 关头 尖 居 凑 凑 关 其 条 关 洲 和美 商 凑 并 尖 攻 并 关 其 其 着 吉 基 其 和 凑 关 其 可 其 条 


set MATLAB= 外 MATLABSB 

set DF _RODT 王 上 DR _ROOT 弛 

set PATH 一 %DF _ROOT%NsharedIDENbin;y W%DF _ROOT%NDFNBIN; 
MDF _ROOTW%NVCNBINY %PATH 昕 

set INCLUDE = W%DF _ROOTW%NDFNNCLUDE; %INCLUDE%% 

set LIB=%DF _ROOT%NDFNLIB;%W%DF _ROOT%NVCNLIB5%%LIB 反 


retm 关 关 并 关 其 其 并 关 和美 关 其 着 关 关 闪 六 六 其 其 凑 洲 杀 识 关 各 其 其 关闭 名状 二 尖 和 关 关 


rem《2》 编译 器 参数 设置 


reta 共 关 其 基 其 和 凑 关 关 闪 其 六 共和 关闭 入 关 其 关 基 入 六 其 其 和 拓 着 关 半天 训 闪 芮 长 尼 攻关 六 攻 必 


set COMPILER 一 l32 
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set OPTIMFILAGS 一 -Dxp 

set DEBUGEFILAGS 一 -Zi 

set COMPFILAGS 一 -c -G5 -4R8 -nclogo 
set NAME _OBJECT= 和 下 o 


TeIN 其 其 凑 次 闪闪 其 基 其 潜 详 其 其 流放 长 并 洲 攻 其 英和 许 并 关 六 天 洲 其 尖 凑 其 话 训 其 浙 洲 训 其 


rem《3)》 库 创 建 命令 〈 预 编译 过 程 ) 


FeI 和 凑 庆 其 凑 和 六 读 长 长 入 六 六 长 六 洲 关 长 入 六 长 其 坟 关 关 其 入 洲 舌 尖 丙 其 其 其 天 入 其 其 其 闫 入 


set PREILINK _CMDS=lib /def :MATLAB%NextetrnNincludeNdtmx. def 
Amachine，ix86 /OUT :%ILIB _NAME%l,lb /NOLOGO 
set PRELINK _CMDS= %PRELINK _CMDS%i lib /def ,名 MATILARB 上 NexternNinclude 
Ndfmat. def /machine，ix86 /OUT:%LIB_NAME%%2.Hib NOLOGO 
set PRELINK _CMDS= 站 PRELINK _CMDS%5 lib /def :外 MATLAB 外 NexternNinclude 
Ndfeng, def /machine:， ix86 /OUT:%LIB _NAME%3.lib /NOLOGO 
set PRELINK _DLLS 一 lib /def :%MATLAB%%NexteraNipcludeN%DLL LNAME 好 .def 
Amachine ， ix86 OUT %DLL LNAME%.lHib /NOLOGO 


TETIIL 头 其 六 站 其 其 入 外 长 其 芳和 关 其 长 入 六 葬 江 基 匠 次 等 六 闪闪 次 其 基 兴 这 其 许 锥 殿 共计 洲 闪 其 


retm〔4) 链接 器 参数 设置 


tetrm 蕉 六 其 闪闪 其 因 其 其 其 游 关 其 其 扩 六 其 六 六 其 长 涛 六 闪 放 其 其 其 其 匡 嘎 其 其 详 区 其 办 兴 其 


set LINKER 三 link 

set LINKFLAGS= %LIB _NAME%1l.lib %LIB_NAME%2.lib %LIB_NAME%3.1lib 
set LINKOPTIMFLAGS 一 

set LINKDFBUGFLAGS= /debug 

set LINK _FILE 一 

set LINK _LIB= 

set NAME _OUTPUT 一 ”out:W%OUTDIR 和 外 MEX NAME5.exe" 

set RSP _FILE _INDICATOR 一 氏 @ 


temR 关 凑 基 凑 入 站 基 凑 关 入 六 其 凑 并 和 其 并 站 其 郑 尖 其 其 凑 基 外 站 天 六 和 并 其 其 凑 关 学 基 共生 各 


rem《5) 资源 编译 器 参数 设置 


Yetm 其 其 关 其 关 关 并 捧 凑 关 美 其 并 氏 并 尖 着 六 六 其 次 其 其 江 基 六 并 其 其 六 六 关 其 商 计 外 基 其 其 


set RC_COMPILER 一 rc /fo "%OUTDIR 多 mexversion. res” 
set RC _IINKER 一 

由 上 面 的 源 代 码 可 以 看 出 ,选项 文件 df50engmatopts 的 结构 非常 清晰 ， 总 共 可 以 分 
为 五 个 部 分 ， 

第 一 部 分 为 普通 参数 设置 , 定义 了 一 些 关 于 MATLAB 以 及 FORTRAN 语言 编译 角 
的 路 径 信息 ， 其 中 %MATLAB% 和 %DF _ROOT% 分 别 代表 了 MATLAB 和 DEC For- 
tran 5.0 编译 器 所 在 的 安装 路 径 ， 其 余 的 一 些 相关 定义 ， 都 是 建立 在 它们 的 基础 之 上 ; 

第 二 部 分 为 编译 器 参数 设置 , 在 该 选项 文件 中 , 通过 环境 变量 COMPILER 设置 了 编 
译 器 为 32， 并 且 通 过 环境 变量 COMPFLAGS、OPTIMFLAGS、 和 DEBUGFLAGS 对 
编译 器 进行 了 全 面 的 设置 ， 其 中 各 参数 的 含义 分 别 如 下 ， 

-G5 “代表 针对 奔腾 处 理 器 进行 优化 处 理 

-Zi ”代表 使 能 调试 信息 
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-Oxp ”代表 对 狐 代 码 进 行 全 面 优 化 

-nologo 代表 禁止 版 权 信息 

-c ”人 忽 表 告诉 编译 器 ， 只 对 源 文件 进行 编译 而 不 用 链接 

第 三 部 分 为 库 创 建 命令 ， 即 预 编 译 过 程 ， 用 于 创建 输入 函数 库 ; 

第 四 部 分 为 链接 参数 设置 , 在 这 部 分 内 容 中 , 首先 通过 环境 变量 LINKER 设置 了 链 
接 器 的 名 字 , 为 link , 然后 通过 环境 变量 LINKEFLAGS 设置 了 链接 器 的 一 些 参 数 选项 , 声 
明了 一 些 在 生成 MAT 文件 的 应 用 程序 时 所 需要 财 人 的 库 文 件 ， 包 括 在 第 三 部 分 中 生成 
的 库 文件 ;设置 环境 变量 LINKDEBUGEFLAGS 为 /rdebug ， 表 示 包 含 调试 信息 ; 

第 五 部 分 为 资源 编译 器 参数 设置 。 


4. Microsoft Fortran PowerStation 全 成 环境 MAT 文件 应 用 程序 的 建立 和 调试 


出 于 同样 的 目的 , 即 为 了 简化 整个 FORTRAB 语言 MAT 文件 应 用 程序 的 建立 和 调 
试 过 程 , 我 们 将 给 出 一 种 在 Microsoft Fortran PowerStaticn 集成 环境 中 完成 整个 程序 编 
译 和 调试 过 程 的 方法 。 其 具体 步骤 如 下 : 

第 一 步 ， 进 人 Microsoft Fortran PowerStation 集成 环境 ， 从 下 拉 式 菜单 File 选取 
Nevw 菜单 项 ， 杀 统 将 弹出 一 个 如 图 5.4 所 示 的 选项 框 ， 选 择 其 中 的 “Project 
到 orkspace” 项 ， 并 点 击 OK 按钮 ， 用 于 创建 一 个 新 的 项 目 空间 ; 





Cancd | 
Help | 





图 5,4 New 选项 框 


第 二 步 , 在 关闭 New 选项 框 之 后 ,系统 将 弹出 New Projeet 克 orkspace 选项 框 ， 如 
图 5. 5 所 示 , 用 户 可 以 选择 其 中 多 种 类 型 的 项 目 用 于 创建 MAT 文件 应 用 程序 , 例如 可 以 
为 Application 或 Console Application， 也 可 以 为 QuiekWin Application 或 Standard 
Graphics Appliecation ,为 了 说 明 方便 ,这 里 我 们 使 用 Consele Application 类 型 .点 取 Type 
选项 框 中 的 Censole Application 项 ， 并 在 Name 编辑 框 中 输 人 项 目 和 名字 后 ， 单 击 Create 
按钮 ， 创 建 项 目 ; 

第 三 步 , 在 项 目 工程 创建 完毕 之 后 ,选择 下 拉 式 菜单 Tools 中 的 菜单 项 Options, 将 
弹出 Options 对 话 框 , 选择 其 中 的 Directories 属性 页 , 如 图 5 6 所 示 ，, 在 其 中 的 Show di- 
rectories for 下 拉 式 选项 框 中 分 别 选 择 Include Files 和 Library Files, 在 下 部 的 编辑 框 中 
输入 以 下 路 径 : 
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马 Batforms: 
je 可 QuickWin Appfcation “Win32 
村 | Standard Graphics Appltcation 

1 型 Makeflle Locatlon: 


EMATLUABwextermexampl PS Browse.,， | 


图 5.5 New Projeet 码 orkspace 选项 杠 


和 


Editor | Tabs | Bebug | Compatibilly Directorics Workspace | F 


所 atform， Show directories for 
[win32 = [um 有 Ices =] 
Pieeeries: 全 





DYMSD 昌 
dasTLARAFXTFERNILIB 


cancel | Hep | 


图 5.6 Options 对 话 杠 


MATLAB 根 目 录 NEXTERNNINCLUDE 
MATLAB 根 目 录 \EXTERNNLIB 


然后 选择 OK 按钮 ; 

第 四 步 ， 在 DOS 命令 框 状态 下 ， 进 人 用 户 安装 Microsoft FORTRAN Powerstation 
的 目录 , 如 d: Nmsdev， 并 且 进 入 该 目录 下 的 子 目 录 Nbin, 按 下 面 的 格式 运行 该 目录 下 的 
命令 tib， 

tb /def %MATLAB 蜂 Nextern Ninclude Ndfmx. def /machine: ix86 AOUT: LIB _NAME1.lib / 


NOLOGO 
lib /det:%MATLAB%W%NexternNinclude Ndfrmat， def /machine，ix86 /OUT: LIB _NAME2.1lib 7/ 
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NOLOGOGO 


lib /def:M%MATLAB%NexternNincludeNdfeng. def /machine; ix86 /OUT: LIB _NAME3.lib / 
NGOLOGO 


以 产生 三 个 分 别名 为 LIB_NAMEl.lib, LIB LNAME2,1lib 和 LIB_NAME3,lib 的 静态 
链接 库 文 件 , 其 中 %MATLAB%% 表 示 用 户 安装 MATLAB 的 根 目录 ， 如 d， Nmatlab， 一 
旦 库 文 件 成 功 生 成 后 ,可 以 应 用 在 所 有 的 MAT 文件 应 用 程序 的 工程 之 中 , 而 无 须 重 复生 
成 ; 

第 五 步 , 选择 下 拉 式 菜单 Insert 的 菜单 项 Files into Project, 选择 库 文 件 第 四 步 中 生 
成 的 三 个 lib 文件 , 将 它们 晓 人 到 当前 的 工程 中 ; 同时 选择 用 户 的 MAT 文件 应 用 程序 的 
源 文 件 ， 将 其 也 庶 人 到 当前 的 工程 中 。 

完成 了 以 上 五 步 工作 之 后 , 用 户 就 可 以 在 Microsoft Fortran PowerStation 集成 环境 
中 对 MAT 文件 应 用 程序 进行 编译 和 调试 了 .。 对 于 其 他 项 目 类 型 的 MAT 文件 应 用 程序 ， 
步骤 大 致 相同 。 


5.4 MAT 文件 库 函 数 说 明 


本 节 将 分 别 基 于 C 语言 和 FORTRAN 语言 ,对 MAT 文件 函数 库 中 的 冰 数 使 用 进行 
说 明 。 
5.4.1 C 语言 MAT 文件 函数 的 使 用 说 明 

在 MAT 文件 函数 库 中 ,总 共 握 供 了 19 个 C 语言 的 引擎 函数 , 它们 的 声明 分 别 如 下 : 


jnt matClose (MATRile * imfp) 
int matDeleteArray (MATEFile * mfp，const char + name》 
matDeleteMattix 〈O5sofete》 
tmxAArray 关 matGetArray (MATFile *# mm 凶 ，const char * hame》 
mxXArray #tinatGetArrayHeader (MATEFile *# mfp ，const char #+ natme) 
char * # matGetDir (MATEile xmfp，int < num》 
FILE *x matGetFP 《MATFile * mfp) 
matGetFull 《CUsoyetey 
matGetMatrix (CD5sofete) 
mxArray # 拉 atGetNextArray (MATFile * fp) 
tmxArray # matGetNextArrayIfeader (MATFile * imfbp) 
ImatGetNextMatrix 【Opbsoyete) 
matGetString 〈Opsotete) 
MATFile *x matOpen (const char xfiienarne，const chat # mode) 
int matPutArtrray (MATFile * mfp ，const mxArray * InP) 
int matPutArrayAsGlobal (MATFile * mfp，const ImX 凡 rray # mmDp) 
tmatPutFu[l (Op5sotefe》 

.tatPutMatrix〔Obsotete) 
miatPuatString 【Opsozete) 


所 有 这 些 函 数 均 在 头 文件 mat. h 中 予以 声明 ,在 使 用 它们 时 ， 必须 对 该 头 文件 进行 
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包含 。 下 面 我 们 对 这 些 函 数 进行 逐一 说 明 。 


1. tnatClose 


功能 ， 用 于 关闭 一 个 MAT 文件 。 
语 法 ， 提 incluqe "mat.h? 


说 明 ， 


举 


例 : 


int matClose MATEFile * tmnfpy); 
郴 数 matClose 用 于 关闭 一 个 已 经 打开 的 MAT 文件 。 函 数 仅 有 一 个 输 人 参 
数 mfp， 为 一 个 MATFile 类 型 的 指针 ， 指 向 开启 的 MAT 文件 。 如 果 函 数 
执行 成 功 ， 其 返回 值 为 0; 否则 将 返回 一 个 写 文件 错误 。 
文件 matereat c 是 MATLAEB 提供 的 一 个 范例 程序 ， 位 于 目录 

MATLAB 根 目 录 \externNexamplesNeng _matN 
中 ， 它 对 末 数 matClose，matPutArray，matGetArray，ImatPutAr- 
rayAsGlobal 和 matOpen 的 使 用 给 出 了 样 例 ， 其 源 代码 如 下 ， 我 们 将 在 程 
序 中 对 各 语句 的 功能 加 以 注释 ， 


/yx 头 文件 包含 , 注意 其 中 对 头 文件 mat,h 的 包含 ,该 文件 中 包含 了 对 所 有 MAT 
文件 库 函 数 的 说 明 * 7/ 

坟 include <stdio, b 盖 

并 include <stdlib.h>> 

提 include ”etring.h” 

#incelude ”mat, 昌 ” 

术 define BUEFSJZRE 255 


/* 子 函 数 create 的 定义 ,其 功能 为 创建 一 个 MAT 文件 , 并 完成 一 定 的 读 写 操作 
闪 了 
int create 《const char #file) 
《 
/xx 恋 量 声明 ， 其 中 变量 pmat 为 一 个 MAT 文件 指针 ，pal1、pa2 和 pa3 分 别 为 
指向 mxArray 结构 体 的 指针 * 7/ 
MATEile * ptnat; 
IDXAArray #pal，xDpa2，:x pa3; 
double data [9 一 11.0， 4.0，7.0，2.0，5.0，8.0，3.0，6.0，9.0 j 
chaxr sty [BUFSI1ZEj; 


/x 输出 MAT 文件 名 * / 
brintt (Creating file sn file)s 
/1* 使 用 函数 matOpen 建立 一 个 新 的 MAT 文件 ,如 果 已 经 存在 同名 的 MAT 文 
件 ， 则 将 原来 的 内 容 删 除 ， 有 关 函 数 matOpen 的 内 容 将 在 后 面 说 明 * / 
pmat 一 mnat(Open (file，“%w 7)+ 
/* 判断 MAT 文件 是 否 开 启 成 功 * / 
这 《pmat 一 = NULL) 
{ 
Printf (”Error creating 得 e %%sNn ， file?3 
printf 《” (do you have write permission in this directory?) An )) 


tetutn 〔1)#? 
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} 

/* 创建 了 三 个 mxArray 结构 体 对 象 ,其 中 pal 和 pa2 为 3X3 的 双 精 度 实 型 矩 
阵 ， 并 且 分 别 命名 为 LecalPDoeuble 和 GlobalDouble ， 并 对 pa2 进行 了 狗 值 ; 
pa3 被 声明 为 一 个 字符 串 类 型 的 阵列 ， 并 进行 了 赋值 */ 

pal 一 mxCreateDoubleMatrix (3，3，mxR 天 AL7; 

tnxSetNatne (Pal，"Locall)ouble")5 

pa2 一 mxCreateDoubleMatrix (3，3，mxREALy》; 

mxSetName 〈pa2，*GlobaiDouble”); 

metmcpy 〔 (void * ) (mxGetData 《pa2))。，(void #+ ) data，3:# 3+5izeof 

《double7)# 

pa3 一 mxCreateString 〈”"MATLAB: the language of technical 

compnuting”) 

mxSetName (pa3， 代 .ocalString2)3 

/xx 使 用 函数 matPutArray 将 三 个 mxArray 结构 体 变 量 pal 、pa2 和 pa3 输送 到 
MAT 文件 中 ， 范 数 matPutArray 将 在 后 面 详 细 说 明 * 7/ 

matPutArtray (prmat，pal); 

matPutAxtyray 上 屿 sGlobal 《paat，Ppa27+ 

matPutArray 【《Pmat，ba37》5 


/* 为 结构 体 变量 pal 冉 值 ， 再 次 将 其 输出 到 同一 个 MAT 文件 中 * / 
Temepy 《 (char #) (rmxGetPr (pal))，(《char : ) data，3# 3 sizeof 
《doubie7 234 

matPutArtray (pmat，bal)j 


/xx 删除 三 个 结构 体 变 量 pal、pa2 和 Ppa3 * 7 
ImXDestroyAtrray [pal)y 
ITxDeatroyArTay (Pa2》) 
mrXDestraoy 上 ArTayY 〈Ppa37》5 


/1x# 关闭 MAT 文件 ， 并 进行 判断 ， 是 否 关 闭 成 功 * / 
《matCliose (pmat) ! 一 0) 
{ 

printf 《"PError closing file %%sN"，f 旨 le) 

TetuIn 《1)# 


} 
/x 再 次 开启 MAT 文件 * 7/ 


pmat 一 matDpen (〔file， 2 

让 《pmat 三 一 NULL) 

{ 
printf 《"Error reopening file 好 sn file)5 
return 【17 


} 

/sx 将 前 面 写 人 的 数据 使 用 函数 matGetArray 读 歌 ， 函 数 matGetArray 将 在 后 
面 进行 说 明 * / 

pal 一 matGetArray 《pmat， 和 LocatDonble 7) 

主 (pal 三 = NULL》 
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printf 〈*Error reading existing Imatrix LocalDouble\nz)} 
Teturn 【1]1》4 

} 

下 (imxGetNutmberOfDimensions 〈pal) ! 一 2) 

《 
Printf 〔《*Error saving matrix :Tesult does not haye twWo 
击 mensionsNn8); 
return 《171 

} 

pa2 一 matGetArray 〈(pmat，*GlobalDouble”)3 

这 《pa2 一 二 NULL) 

{ 
printf 〈《"Ertror reading existing tnattix LocalDouble\n”) 


retutn 《173 

{ 

让 (mxJIsFroemGlobalWS (〈pa27)) 
prinotf 〈*Error saying global matrix : result ia not global\n*)# 
retutt 〔j])4 

} 


pa3 一 matGetArray 〔boat，“LocalString”)# 
这 《pa3 一 = NULL) 
《 
Printf 《中 rror reading existing Imatrixz LocalDouble\n 7# 
Teturm 《173 
} 
mxGetString 〈pa3，str，BUESIZE); 
证 (strcemp 〈str，mkATLAEB: the language of technical computing")) 
{ 
Printf 《Error saving string: result has incorrect 
eontents\ny)3 
Teturnma 〔1)3 
} 
/* 期 除 结构 体 变 量 * / 
TmxzDestroyArray 〈pal); 
InaxDestroyArray 〔pa273 
tmxDestroyArray 【ba3)1 
证 (matClose (pmat) | 一 0) 
《 
Printf 〈*Ertror closing 韦 e sm ，file) 
treturna 《174 
} 
printt 〔("Done\n?7); 
return 《07?1 
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} 
V* 主 程序 * 7/ 


int main 《》 
{ 
jnRt resulti; 
lesult 一 eTeate (〈“"mattest, mat”) 3 
retutn (tresult 一 一 0)? EXIT _ SUCCESS: EXIT FAILUREI 
} 


对 该 程序 编译 后 执行 ， 可 以 得 到 一 个 名 为 mattest, mat 的 MAT 文件 ， 在 
MATLAB 中 使 用 下 面 的 命令 可 以 对 文件 的 内 容 进行 查阅 ， 如 下 : 


? whos -file mattest, mat 

Narme Size Bytes Class 

GlobalDeuble 3x3 72 double array 《globaj) 
LocalDeoeiitb[e 3x3 72 double array 
LocalString TIxd43 86 chat array 


2. matDeleteArray 


功 能 ,从 MAT 文件 中 删除 一 个 阵列 。 

语 法 ，#include "mat.hy 
int matDeleteAtray 《MATFile x* mfp ，const char <name)5 

说 ” 明 ， 函数 matDeleteArray 允许 用 户 删除 已 开启 MAT 文件 中 指定 名 字 的 阵列 ， 
其 输入 参数 mfp 代表 了 一 个 开启 的 MAT 文件 ， 而 name 为 一 个 希望 删除 
的 阵列 名 。 如 果 函 数 执行 成 功 ， 将 返回 0， 否则 将 返回 一 个 非 零 值 。 

举例; 假设 存在 一 个 已 经 开启 的 MAT 文件 mfp， 并 且 在 该 文件 中 存在 一 个 名 为 
data 的 阵列 ， 通 过 下 面 的 语句 可 以 将 其 从 文件 中 删除 : 


int statusji 
status 一 matDeieteArray 《mtp ， 和 ata”); 
放 (status 上 一 0) 
{ 
printf 〔%ETrror delete Array") 


》 


3. matDeleteMatrix 《Opsotete) 


说 “了 明 : 该 函数 为 一 个 过 时 的 函数 , 保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 
持 兼 容 。 一 般 情 况 下 ， 该 函数 不 允许 出 现在 MATLAB V5. 0 版 本 以 上 的 
MAT 文件 应 用 程序 中 , 否则 在 编译 时 系统 将 报错 .在 MATLAB V5.0 以 上 
的 版 本 中 ， 为 了 完成 同样 的 功能 ， 可 以 使 用 函 数 matDeleteArray 来 替代 。 
如 果 需 要 使 用 已 经 存在 对 函数 matDeleteMatrix 调用 的 MAT 文件 应 用 程 
序 , 而 不 希望 对 源 程 序 进行 修改 , 那么 在 对 这 类 MAT 文件 应 用 程序 进行 编 
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译 时 ， 必 须 使 用 mex 命令 参数 -V4， 声 明 编译 为 与 MATLAB V4. 0 版 本 碌 
容 的 MAT 文件 应 用 程序 。 


4. matGet 太 rray 


功 能 : 从 MAT 文件 中 读 取 数据 。 
语 法 ， 共 inclunde “mat.h> 


ImnxArray * ImatGetArray (MATFile * mfp，const chaf xname)7; 


说 ”了 明 : 使 用 范 数 matGetArray 允许 用 户 从 一 个 开启 的 MAT 文件 中 读 取 阵列 数据 ， 


举例， 


个 MATFile 类 型 的 指针 ,name 为 一 个 字符 指针 , 代表 了 用 户 希望 提取 阵列 
的 和 名字。 如 果 函 数 执行 成 功 , 函数 将 新 初始 化 一 个 mxArray 结构 体 对 象 , 然 
后 将 MAT 文件 中 指定 名 字 阵 列 的 数据 拷贝 到 新 分 配 的 mxArray 结构 体 对 
象 中 , 并 返回 指向 该 对 象 的 指针 ;如 果 函 数 执行 失败 , 将 返回 NULL。 这 里 
必须 非常 注意 一 点 , 在 程序 结束 前 必须 将 函数 产生 的 mxArray 对 象 基 除 , 否 
则 将 导致 内 存 的 泄漏 。 

人 参见 函数 matCloese 中 的 范例 程序 matcreat,c。 


5. matGetArrayHeader 


功 能 : 
语 法 : 


说 ”了 明 ， 


获取 MAT 文件 中 某 个 阵列 的 信息 。 

划 include “mat, h” 

txArray xmatGetArrayHeader (MATFile x inftp，const char #<nDame)s 
使 用 函数 matGetArrayHeader 允许 用 户 从 一 个 开启 的 MAT 文件 中 读 取 指 
定 阵 列 的 信息 ,信息 中 包括 了 除 阵列 的 pr、pi、ir 和 je 信息 外 的 所 有 信息 ， 
有 关 pr.pi\ir 和 jc 的 描述 请 读者 参见 第 二 章 。 函数 的 输入 参数 的 含义 分 别 
如 下 : mfp 代表 了 一 个 已 经 开启 的 MAT 文件 ,为 一 个 MATPFile 类 型 的 指 
针 ，name 为 一 个 字符 指针 ， 代 表 了 用 户 希 望 提取 信息 的 阵列 的 名 字 。 这 里 
必须 注意 的 一 点 是 通过 函数 matGetArrayHeader 提取 出 的 阵列 信息 ， 仅 仅 
用 于 使 用 , 而 不 能 被 写 回 MAT 文件 或 传送 到 MATLAB 中 。 如 果 范 数 执行 
成 功 , 将 返回 一 个 指向 mxArray 结构 体 对 象 的 指针 ， 在 所 指向 的 mxArray 
结构 体 对象 中 ，pr、pi、ir 和 jc 这 些 信 息 均 被 设置 为 -1， 不 管 原来 为 何 值 。 


;文件 matdgns.e 是 MATLAB 提供 的 一 个 范例 程序 ， 位 于 目录 


MATLAB 根 目录 \externNexamplesN\eng _ matN 
中 ， 它 对 函数 matClose，matGetDir ，matGetNextArray，matGetNextAr- 
rayHeadet 和 matOpen 的 使 用 给 出 了 样 例 ， 其 源 代 码 如 下 ， 我 们 将 在 程 译 
中 对 各 语句 的 功能 加 以 注释 : 


/* 头 文件 包含 ， 注 意 其 中 对 头 文件 mat.h 的 包含 ， 该 文件 中 包含 了 对 所 有 MAT 
文件 库 函 数 的 说 明 * / 

#include <stdio.h> 

提 incslude <<stdiib.h> 
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并 include "nat.h? 


/x* 子 函 数 create 的 定义 ， 其 功能 为 */ 
int diagnose (const char # 开 ile) 

{ 

/+# 变量 声明 * / 

MATFile *x pinati 

cbhar # %dir; 

iot mdir* 

int 1 


tnx 和 rrT8yY # pa 


/xy 输出 MAT 文件 名 * 7 
printt 〔?Reading fle %s, .An ，file); 


/* 使 用 函数 matOpen 开启 MAT 文件 ， 并 判断 是 否 成 功 * / 
pmat 一 matOpen 〔ile ， 扣 ") ; 
让 《pmat 一 二 NULL) 
{ 
Printf 〔”%Errot opening file %%sNn”， He)5 
Teturm 【1)3 


} 


/* 通过 函数 matGetDir 得 到 MAT 文件 中 阵列 的 数据 , 函 数 matGetDir 将 在 后 续 
内 容 中 说 明 * 7 
dir = InatGetDir (Pmat，&Rndir)s 
/* .通过 函数 matGetDir 的 返回 值 判断 是 否 执行 成 功 * 7 
让 (dir = NULL) 
{ 
printf 〔(*"Error reading directory of 五 le %%sn*，file)5 
teturn (17)4 
} else 
{ 
priatt 〔*Directory cf %5，Nn， 志 e)# 
for (ii 一 0 1 < ndir i 十 十 ) 
printf 《9%aN，dir []) 
} 
IXFree 《ditf) 


/xs 关闭 MAT 文 件 */ 


计 《matClose (pmat》 ! 一 0) 

{ 
printft ("Exrror closing file %sNn ，file) 
teturn (178 


} 
/+ 重新 开启 MAT 文件 * / 


pmat 一 matOpen (file， 7 
庄 (pmat 一 一 NULL) 
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printf {《"Error reopening file %ssn”， 提 e)， 
return (1》) 


} 


/* 通过 循环 过 程 和 matGetNextArrayHeader 获取 所 有 的 MAT 文件 阵列 的 头 信 
息 *7 
Printf 《AnExamining the header for each vatiable:，Nnay”); 
for (i 一 03 1 < ndir; i 十 十 ) 
{ 
pa 一 matGetNextArTayHeadetr 《ptnat)y 
这 (pa 一 二 NULL》 
{ 
Brintf 《 吧 rror reading in file %ssmnw file)+ 
return 〔]1)74 


} 
/xx 分 析 头 信息 * / 


Printf ?According to its header，array %s has %%d dimensionsn”， 
mxCGetName(pa)，mxGetNumberOfDirmnensions(pa) 735 
让 《mxIsFtromGlobalWS 《pa)) 
printf 〈《” and was a global vatiable when savyedNn"); 
else 
printf 〈(* and was a local vatiable when savedm”7)# 
mxDestroyArray 〔〈(Pa); 
} 
/x 关闭 MAT 文 件 * 7/ 
让 (matClose 〈(Pinat》 ! 一 0) 
{ 
Printf 《Error closing file 邮 ssn7，fe)+ 
Tetutmn 【127; 


} 
1/# 再 次 开户 MAT 文件 * 7/ 


Prmat 一 matOpen 《file，“")， 

这 【pmat 一 = NULL) 

{ 
Prin 凶 《?ETrrer reopening file 抬 sNn"，e)+ 
tetutrn 【17 


} 


/* 通过 循环 过 程 和 函数 matGetNextArray 获得 所 有 的 MAT 文件 阵列 * 7 
printf (AnReading in the actual array contents : nr 
for(〈i=0; i<<ndiry i 十 十 ) 
{ 
pa 一 matGetNextArray (pmat74 
ipa 一 一 NULL) { 
Printf 《%Errer reading in file %%ssn”， file)5 
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retorn 《1); 


} 
/* 分 析 阵 列 * 7 


printt 〔* 太 ccording to its contents，aIray %s has %d dimensionsNn”， 
mxGetName 〈pay，tImxGetNumberOfDimensions 《Pa7729 
让 《mxIsFromtiobalWS pa)>) 
{ printf (”and was a global variable When saved'\n"); 
else 
Printf 《” and was a local vatiable when savedNn”)1 
mxDestroyArTay 〈Pa)+ 
} 


jx 关闭 MAT 文件 * / 

这 《matClose (pmat) ! 一 0) 

{ 
printf 〔*Error closing file %%sNny，ie); 
return 〈1)?; 


} 
printf 〔”DoneNn”) ; 
return 《0)3 


} 
/# 主 函 散 * / 


int tnain 《int argCc， char # x aTgYV) 


{ 


int resnulti 


证 (argc > 1) 
resulit 一 diagnose (argv [1])， 
else 
{ 
Tesult 一 ; 
printf 〈"Usage: matdgns <<matfile>>"); 
printf (? where <imatfile>> ig the name of the MAT-fle”); 
Printt 〔”to be qiagnoseds\ny)5 
} 


return (result 一 一 0)? EXIT _SUCCESS，EXIT _FAILURE; 


对 该 MAT 文件 应 用 程序 编译 后 ， 执 行 可 得 如 下 的 结果 ， 其 中 mat- 
test, mat 为 前 面 matereat.c 程序 生成 的 MAT 文件 ， 


已 ，NMATLABNexternNexamplesNeng _ mat>>matdgns mattest, mat 
Reading file mattest, mat,，， 

TDirectory of Imattest tnatt 

GlebaiDouble 

LoecalString 
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LecalDouble 


芋 xarmining the header for eacb variable; 

乓 ccotfding to its header ，array GlobalDouble haa 2 dimensions 
and was & 多 lobal vatiable when saved 

和 册 ccording to its header ，afray LocalString bas 2 dimensions 
and was a local varjiable when saved 

页 ccording to itas header，array LocalDouble has 2 dimensions 


and was a local variable when saved 


Reading in the actual array contents ， 

和 ccording to 让 s contents ，array GlobalDouble has 2 dimensions 
and was a glebal variable when saved 

由 cecording to its contents，array ].ocalString has 2 ditmehnsions 
and was a local vatiable when saved 

舟 ccording to itg contents，arTray LocalDouble has 2 dimensiongs 
and was a local variahle when saved 


Done 


6. matCetBDir 


功 能 ， 
语 法 ， 


说 明 ， 


举 例 : 


获得 一 个 MAT 文件 中 的 所 有 阵列 的 且 录 。 

井 include “mat,h” 

char # xmmatGetDir (MATFile *tmfp，int xDnumy》; 
函数 matGetDir 允许 用 户 从 一 个 开启 的 MAT 文件 中 获取 所 有 阵列 的 名 字 。 
如 果 函 数 执行 成 功 将 返回 一 个 字符 指针 数组 ， 数 组 的 每 一 个 元 素 均 为 字符 
指针 , 指向 一 个 以 空 字符 NULL 结尾 的 字符 串 , 该 字符 串 代表 了 MAT 文件 
中 某 个 阵列 的 和 名字， 同时 必须 说 明 的 一 点 是 该 数组 通过 函数 mxCalloc 分 配 
内 存 ， 在 程序 结束 之 前 ， 必 须 使 用 函数 mxFree 进行 释放 ， 和 否则 将 导致 内 存 
泄漏 ， 数 组 元 素 的 个 数 存 情 在 整 型 指针 num 所 指向 的 内 存 区 域 中 。 如 果 函 
数 执行 失败 , 返回 参数 num 中 的 值 将 为 一 1, 并 且 返 回 一 个 空 指 针 数 组 。 如 
果 返 回 参 数 num 中 的 值 为 0， 表 示 MAT 文件 中 没有 包含 任何 阵列 。 

参见 函 教 matGetArrayHeader 中 的 例子 matdgna.c。 


7 了. atCGetEFb 


功 能 ， 
语 法 : 


说 明 : 


举例， 


获得 MAT 文件 的 C 语言 文件 句柄 。 

并 jinciude "mat.h” 

FILE * matGetFP (MATEFile xmfp); 

通过 函数 matGetFp, 用 户 可 以 获得 一 个 指向 已 经 处 于 开启 状态 的 MAT 文 
件 的 C 语言 文件 句柄 ， 通 过 这 个 句柄 ， 用 户 就 可 以 方便 地 使 用 C 语言 提供 
的 库 函数 feof 或 ferror 来 判断 错误 的 原因 。 该 函数 仅 有 一 个 输 和 人 参数 , 即 表 
示 处 于 开启 状态 的 MAT 文件 的 MATFile 类 型 的 指针 mm 甸 。 
程序 是 一 个 使 用 函数 matGetFp 的 范例 程序 , 其 源 代码 如 下 , 我 们 将 在 程序 
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中 附加 注释 ， 


17x 头 文件 包含 , 注意 其 中 对 头 文件 mat. h 的 包含 , 该 文件 中 包含 了 对 所 有 MAT 文件 
库 函 数 的 说 明 * / * / 

并 include <stdio,h> 

##include <stdlib,hb 盖 

井 inelude "mat.by 


/7* 子 图 数 getfp ， 用 于 开启 一 个 MAT 文件 ， 并 依次 读 到 其 中 的 阵列 * / 
int getfp 《const char #file) 
{ 

/+ 变量 声明 * / 

MATKile * Pmat; 

int 1 

IDX 太 rray7 关 了 8 


prinf 〔〈?RReading file %s. nn” file)) 
/xx 开启 MAT 文件 * / 


pmat 一 matDOPen (fije，“ 光 "1 
让 《pmat 一 王 NULL) 
{ 
printf 〈“Error opening file %ssn”，filey; 
teturn 《173# 
} 
/* 使 用 函数 matGetNextArray 依次 起 取 MAT 文件 中 的 阵列 * / 
printf (NmReading in the actual array contents: NI )# 
for 〈i 一 0# 5 i 十 十 ) 
{ 
pa 一 ImatGetNextArttray 《prmat》 
让 《pa 一 = NULL) 
{ 
/* 获取 C 语 言 MAT 文件 句柄 * 7/ 
FILE x File 一 matCetFp 《pmat7#; 
/*# 使 用 C 语言 库 函 数 对 错误 原因 进行 判断 , 并 分 别 进 行 不 同 的 处 理 * /7 
下 ( feof 《File) 盖 0 》 
{ 
printf 《End of fle %ssn”， 下 ec); 
break 
} 


证 【 fetror (File) 盖 0 ) 
{《 As 
Printf (Error of reading %%ssNn”， 和 ee) 
return 《175 

} 
} 


/ax 分 析 阵 列 pa * 7 
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Ptintf 人 According ro its contents ，array %%s has %d dimensions\n”， 
mxCetName 〔pPa) ，mxCGetNumberDfiDimensions 〔Pa773; 
话 (mxJIsFrornGloebalWS (pa)) 
printf 〔(”and was a global vatiable when savedsn"); 
else 
brintft (" and was a iocal variable when savedn7)4 
InxDestroyArray 〔(pa7i 
} 


/xx 关闭 MAT 文件 * / 

让 《matClose (pmat》 ! 一 0) 

{ 
printf (Errer closing file %%sgsny，file)， 
teturn 17》4 

} 

brintt 〈〔(”Done\ >” 

Teturn 〔0)# 


} 
/* 主 函 数 */ 


int main (int argcy，char # +#atgvV) 


{ 


int result; 


主 《argc 盖 1) 
result 一 diagnose (argv 【17 
else 
《 
Tesult 一 0; 
printf 《Usage: matdgns <matfile 之 5 
printft (” Where <matfile>> is the name of the MAT-Hle 3 
printf 〔" to be diagnosedn' ); 
} 


return (result 一 二 0)9 EXIT _SUCCESS: EXIT _FAILURE; 
} 


对 该 程序 编译 后 执行 , 将 显示 如 下 内 容 , 其 中 mattest. mat 为 前 面 使 用 程序 
matcreat 所 创建 的 MAT 文件 : 


E， NMATLABNexternNexamplesNeng _ tmat>>tmnatgetfp mattest. mnat 
Reading file mattest. Tat. ，， 


Reading in the actual artay contents: 

册 ccording te its econtents ，2TTBy GlobalPDoubie has 2 ditmensions 
and was a global variable hen saved 

Acecerding to its contents ，array LocalString has 2 dimensions 
and was a local variable when saved 

According to its contenta，atray LocalDouble has 2 看 mensions， 
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and was a iocal variable when saved 
End of file ?attest. tmat 
Done 


8. matGetFull (Opsozete) 


说 ” 明 : 该 函数 为 一 个 过 时 的 函数 , 保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 
持 兼容 。 一 般 情 况 下 ， 该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MAT 文件 应 用 程序 中 , 否则 在 编译 时 系统 将 报错 。 如 果 铺 要 使 用 已 经 存在 
对 函数 matGetFull 调用 的 MAT 文件 应 用 程序 ， 而 不 希望 对 源 程 序 进行 收 
改 ,那么 在 对 这 类 MAT 文件 应 用 程序 进行 编译 时 , 必须 使 用 mex 命令 参数 
-V4， 声 明 缩 译 为 与 MATLAB V4, 0 版 本 兼容 的 MAT 文件 应 用 程序 。 
用 户 可 以 通过 自 定义 该 函数 完成 同样 的 功能 , 源 代码 如 下 , 其 中 使 用 了 与 函 
数 matGetFull 功能 相似 的 邢 数 matGetArray; 


int matGetFull (MATFite xfp，char xnatmey iat <*mint 共 Dny 
double #* xpr，doub[le + <Dpi》 
{ 


rnX 太 rray 闪 ParT 


/* 获取 阵列 * 7/ 
Parr 一 matGetArray 〈fp ，narmeJ# 
主 (parr = 一 NULL) 


tetuxrn 〈《17)# 


让 (! mxIsDouble (〔paty)) 

《 
tmxDestroyArray 〔parT)# 
return 【1)f 


} 
/7x 获得 阵列 的 信息 * / ， 


+ Im 一 TIXCGetM 《parry; 

# 了 一 InxGetN (parr7 

# PT 一 mxGetPr (parr)4 

x pi 一 mnxCGetPi 《part73 

/* 将 阵列 的 数据 指针 置 空 ， 以 便于 删除 对 象 * / 
rmxSetPr (parr，(void 关 ) 0728 

mxSetPi 《parr，fvoid # 》0)》; 

mxXDestroyArtray 《parr73 

return (07; 


} 


9, maatGetMatrix〔GO 〇 zsotete) 
说 “” 明 , 该 函数 为 一 个 过 时 的 画 数 , 保留 它 的 目的 是 为 了 同 MATLAB V4.0 版 本 保 
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持 兼 容 。 一 般 情 况 下 ， 该 函数 不 允许 出 现在 MATLAB V5, 0 版 本 以 上 的 
MAT 文件 应 用 程序 中 , 否则 在 编译 时 系统 将 报错 .在 MATLAB V5.0 以 上 
的 版 本 中 ， 为 了 完成 同样 的 功能 ， 可 以 使 用 函数 matGetArray 来 替代 。 

如 果 希 要 使 用 已 经 存在 对 冰 数 matGetMatrix 调用 的 MAT 文件 应 用 程序 ， 
而 不 希望 对 源 程序 进行 修改 ， 那 么 在 对 这 类 MAT 文件 应 用 程序 进行 编译 
时 ， 必 须 使 用 mex 命令 参数 -V4， 声 明 编 译 为 与 MATLAB V4. 0 版 本 兼容 
的 MAT 文件 应 用 程序 ， 


10. matGetNext 太 rray 


功能， 读 取 MAT 文件 中 的 下 一 个 阵列 。 
证 法 ， 井 include “math” 
mxArtrray # tmatGetNextArray (MATFile * tnfp); 

说 ” 明 : 函数 matGetNextArray 的 功能 为 读 取 输 入 参数 mfp 指向 的 处 于 开启 状态 的 
MAT 文件 中 的 下 一 个 阵列 的 数据 ， 并 将 返回 一 个 新 分 配 的 mxArray 结构 
体 的 指针 , 其 中 输入 参数 mfp 为 一 个 MATEFile 类 型 的 指针 .通过 该 函数 , 用 
户 可 以 通过 一 个 循环 过 程 , 依次 访问 MAT 文件 中 所 有 的 阵列 . 不 过 必须 注 
意 的 一 点 是 ， 对 函数 matGetNextArray 的 使 用 必须 紧 接 在 函数 matOpen 之 
后 ， 也 就 是 说 在 两 者 之 间 不 能 加 入 其 他 的 MAT 文件 操作 函数 ， 否 则 函数 
matGetNextArray 将 不 知道 “下 一 个 〈next)” 的 定义 。 如 果 到 达 文 件 结尾 
或 者 函数 执行 出 错 ， 本 数 将 返回 一 个 NULL 指针 ， 这 时 可 以 通过 标准 的 C 
语言 函数 feof 和 ferror 进行 判断 是 哪 一 种 情况 。 在 程序 结束 之 前 , 必须 将 函 
数 matGetNextArray 分 配 的 mxArray 结构 体 删 除 ， 否 则 将 导致 内 存 泄漏 。 

举例， 参见 函数 matGetArrayHeader 中 的 例子 matdgna- ec。 


11. matGetNextArrayHeader 


功能: 获取 MAT 文件 中 下 一 个 阵列 的 信息 。 

语 法 ，#include "mat.h” 
mxArray xx tmatGetNextArrayHeader (MATFile * mfp); 

说 “ 明 ， 该 函数 的 功能 和 用 法 与 函数 matGetNextArray 大 致 相同 ， 不 过 它 只 读 取 
MAT 文件 中 阵列 的 信息 。 

举例 ， 参见 郴 数 matGetArrayHeader 中 的 例子 matdgna.c。 


12. matGetNextMatrix〔OaBsotete) 


说 “ 明 , 该 函数 为 一 个 过 时 的 函数 , 保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 
持 兼 容 。 一 般 情况 下 ， 该 函数 不 允许 出 现在 MATLAB V5. 0 版 本 以 上 的 
MAT 文件 应 用 程序 中 , 否则 在 编译 时 系统 将 报错 .在 MATLAB V5.0 以 上 
的 版 本 中 , 为 了 完成 同样 的 功能 ， 可 以 使 用 函数 matGetNextArray 来 替代 。 
如 果 需 要 使 用 已 经 存在 对 画 数 matGetNextMatrix 调用 的 MAT 文件 应 用 
程序 , 而 不 希望 对 源 程 序 进行 修改 , 那么 在 对 这 类 MAT 文件 应 用 程序 进行 
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编译 时 ， 必 须 使 用 mex 命令 参数 -V4， 声明 编译 为 与 MATLAB V4, 0 版 本 
兼容 的 MAT 文件 应 用 程序 。 


13. matGetString 【Opsozete) 


说 明 : 


该 函数 为 一 个 过 时 的 函数 , 保留 它 的 目的 是 为 了 闻 MATLAB V4. 0 版 本 保 
持 兼 容 。 一 般 情况 下 ， 该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MAT 文件 应 用 程序 中 , 否则 在 编译 时 系统 将 报错 .在 MATLAB V5.0 以 上 
的 版 本 中 ， 为 了 完成 同样 的 功能 ， 可 以 使 用 函数 以 下 的 语句 来 震 代 ， 


并 include ”mat, h” 

##inelude ”matrix  h” 

tnx 由 rray 关 ImatGet 上 rray 〔MATFile * tmfp，const char #mnarme73 

int mxGetString 《const mxArray #array _ptr， chat *buf，int bufleny) 


如 果 需 要 使 用 已 经 存在 对 函数 matGetString 调用 的 MAT 文件 应 用 程序 ， 
而 不 希望 对 源 程 序 进行 修改 ， 那 么 在 对 这 类 MAT 文件 应 用 程序 进行 编译 
时 ， 必 须 使 用 mex 命令 参数 -V4， 声 明 编 译 为 与 MATLAB V4, 0 版 本 兼容 
的 MAT 文件 应 用 程序 。 


14. matOpen 


功 能 ， 


开启 一 个 MAT 文件 。 


语 法 ，#include "mat.h” 


说 ” 明 : 


MATFile * matOpen 《const char # 人 ename ，const char * mmode); 
通过 函数 matOpen ， 用 户 可 以 开启 MAT 文件 用 于 读 写 ， 如 果 函 数 执行 成 
功 将 返回 一 个 MATFile 类 理 的 指针 , 否则 返回 值 为 NULL。 沽 数 拥有 两 个 
输 和 参数， 其 中 filename 为 一 个 指向 字符 串 的 指针 ， 字 符 串 中 包含 了 和 希望 
开启 的 MAT 文件 的 文件 名 ，mode 为 一 个 字符 指针 ， 用 来 说 明 开启 MAT 
文件 的 类 型 ， 它 有 以 下 几 种 取 值 ; 
。“r”， 表 示 使 用 只 读 方 式 开启 MAT 文件 ; 
。“u”, 表示 以 可 读 和 可 写 方式 开启 文件 , 即 可 以 对 文件 中 的 某 一 些 阵 
列 进行 更 新 ; 
。*“w”， 表 示 以 只 写 方式 开启 文件 ， 如 果 磁 盘 中 存在 同名 的 MAT 文 
件 ， 那么 以 这 种 方式 开启 MAT 文件 将 删除 原 有 文件 中 的 所 有 内 
容 ; 如 果 原 来 不 存在 同名 的 MAT 文件 , 那么 将 创建 一 个 新 的 文件 ; 
“w4"， 表 示 创 建 一 个 MATLAB 4.X 版 本 的 MAT 文件 ， 


举 例 ， 参见 函数 matGetArrayHeader 中 的 例子 matdgna.c 和 函数 matClose 中 的 


范例 程序 matcreat, c 。 


18. imnatPut 和 ArTray 


功 能， 将 阵列 写 人 到 MAT 文件 中 。 
语 法，#include "nat.h” 
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int ImatPutArray 《MATFiie * mfp ，const mxAtrray xitmp)# 

说 明 : 通过 MAT 函数 ， 用 户 可 以 将 一 个 mxArray 结构 体 mp 输入 到 参数 mfp 所 
表示 的 MAT 文件 中 。 如 果 在 原来 的 MAT 文件 中 存在 同名 的 mxArray 结 
构 体 ， 那 么 将 覆盖 用 的 mxArray 结构 体 ; 如 果 不 存 在 同名 的 结构 体 ， 那 么 
将 在 文件 的 末尾 添加 结构 体 。 这 里 需要 说 明 的 一 点 是 新 老 结 构 体 的 大 小 可 
以 不 相同 。 如 果 函 数 执行 成 功 ， 将 返回 0， 和 否则 将 返回 一 个 非 零 值 ， 这 时 可 
以 使 用 C 语言 的 库 函 数 feof 或 ferror 来 判断 错误 的 原因 。 

举例， 和 参见 函数 matCjiose 中 的 范例 程序 mnatcreat,c。 


16. matPutArrayAsGlobal 


功 能 ,将 阵列 写 人 到 MAT 文件 中 。 

语 法 ，#include ”mat.bh” 
int matPutArrayAsGlobal (MATFile * mfip ，const mxArray #ip); 

说 ”了 明 :, 范 数 matPutArrayAsGlobal 的 功能 与 画 数 matPutArray 大 致 相同 ,惟一 的 
区 别 就 是 用 matPutArrayAsGlobal 写 人 MAT 文件 的 阵列 在 读 取 时 ， 将 存 
放 和 人 MATLAB 的 全 局 工作 空间 。 

举例 ， 参 见 酚 数 matCiose 中 的 范例 程序 matcreat.c。 


17. matPutFull (Opsozete) 


说 ” 明 : 该 函数 为 一 个 过 时 的 函数 , 保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 
持 兼 容 。 一 般 情 况 下 ， 该 函数 不 允许 出 现在 MATLAB V5. 0 版 本 以 上 的 
MAT 文件 应 用 程序 中 , 否则 在 编译 时 系统 将 报错 。 如 果 需 要 使 用 已 经 存在 
对 函数 matPutFull 调用 的 MAT 文件 应 用 程序 ， 而 不 希望 对 源 程 序 进 行 修 
改 ,那么 在 对 这 类 MAT 文件 应 用 程序 进行 编译 时 , 必须 使 用 mex 命令 参数 
-V4， 声 明 编译 为 与 MATLAB V4. 0 版 本 兼容 的 MAT 文件 应 用 程序 。 
用 户 可 以 通过 自 定义 该 函数 完成 同样 的 功能 , 源 代码 如 下 , 其 中 使 用 了 与 晤 
数 matGetFnull 功能 相似 的 函数 matPutArray; 


int tnatPutFutl (MATRFile * Ph，char # namey jnt m，int ny 
double * prf，double * pi) 
《 
int retvaly 
TIXATTray # patrry 
/sx# 创建 一 个 新 的 双 精 度 和 矩阵 * / 
barr 一 ImxCreateDoubleMatrix (0，0，07， 
让 《part 一 =NULL) 
tetturn 《1); 
/x# 设置 矩阵 的 信息 * 7/ 
mxSetM 《parr， 记 ) 4 
ImxSetN (patrr， hnh); 
mxSetName 〈Ppatr，narme)3 
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mxXSetPr 【parr，PI》， 
ImxSetPi (patt+，pi)3 


/+ 将 矩阵 输出 到 MAT 文件 中 * / 
retval 一 tnatPutArray 〈Ph ，pbarr7: 
/+# 删除 矩阵 ， 狐 放 内 存 * / 
InxSetPr 《parr， 《void # 》0); 
mxSetPi (parr ，(votd *# ) 0)5 
ImmXxDesttoy 上 rrYay 〔〈ParT7)1 

returta 【〔《tetval7; 


} 
18. matPutMatrix (Opsoizete) 


说 ” 明 : 该 函数 为 一 个 过 时 的 函数 , 保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 
持 兼 容 。 一 般 情况 下 ， 该 函数 不 允许 出 现在 MATLAB V5.0 版 本 以 上 的 
MAT 文件 应 用 程序 中 , 否则 在 编译 时 系统 将 报错 .在 MATLAB V5.0 以 上 
的 版 本 中 ， 为 了 完成 同样 的 功能 ， 可 以 使 用 函数 matPutArray 来 替代 。 
如 果 需 要 使 用 已 经 存在 对 函数 matPutMatrix 调用 的 MAT 文件 应 用 程序 ， 
而 不 希望 对 涉 程 序 进行 修改 ， 那 么 在 对 这 类 MAT 文件 应 用 程序 进行 编译 
时 ， 必 须 使 用 mex 命令 参数 -V4， 声 明 编译 为 与 MATLAB V4. 0 版 本 兼容 
的 MAT 文件 应 用 程序 。 


19. matPutString 《Opsotete) 


说 ” 明 :, 该 函数 为 一 个 过 时 的 函数 , 保留 它 的 目的 是 为 了 同 MATLAB V4. 0 版 本 保 
持 兼容 。 一 般 情 况 下 ， 该 函数 不 允许 出 现在 MATLAB V5. 0 版 本 以 上 的 
MAT 文件 应 用 程序 中 , 否则 在 编译 时 系统 将 报错 .在 MATLAB V5.0 以 上 
的 版 本 中 ， 为 了 完成 同样 的 功能 ， 可 以 使 用 函数 以 下 的 语句 来 替代 : 


提 include "matrix hy7 

##include "mat.h” 

ImxArray xy taxCreateString 〔char *SstT) 

int matPutArray (MATFile * mmfp ，const mxArray # ImP)5 


void mxDestroyArray (〈(ImXAArray 4 array 、Btt) 
如 果 需 要 使 用 已 经 存在 对 函数 matPutString 调用 的 MAT 文件 应 用 程序 ， 
而 不 希望 对 源 程 序 进行 修改 ， 那 么 在 对 这 类 MAT 文件 应 用 程序 进行 编译 
时 ， 必 须 使 用 mex 命令 参数 -V4， 声 明 编译 为 与 MATLAB V4. 0 版 本 兼容 
的 MAT 文件 应 用 程序 。 


5.4.2 FORTRAN 语言 MAT 文件 函数 的 使 用 说 明 


在 MAT 文件 函数 库 中 , 总 共 提 供 了 11 个 FORTRAN 语言 的 引擎 函数 ， 它们 的 声明 
分 别 如 下 : 
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integet #+ 4 functicon matClose 《mtip) 

subroutine matDeleteMatrix 〔《mfp，namey》 

integer x* 4 fnction matGetDir (mifp，numy) 

integer # 4 function matGetFull (mfp ，name， m，n， pr，pi) 
integet # 4 function matGetMattix 《mfp，name) 

integer #x 4 function matGetNextMatrix 《m 即 ) 

integer x* 4 function tmatGetString 〔(mfp ，name，str，sttten) 
integer x 4 funetion ImatOpen 《flename，made) 

integer x 4 function matPutFull (mfp，namey， tm n，pr，Ppi) 
integer # 生 function tmatPutMatrix 〈《mfp，mb) 


integer *+ 4 function imatPutString 《mfp，natme，stt)》 


下 面 我 们 对 这 些 函 数 进行 逐一 说 明 。 


1.tmmatClose 


功 能 ,关闭 MAT 文件 。 
语 法 ， integer * 4 function matClose (tmfp) 


integer k 4 mfp 


说 “了 明 ， 函 教 matClose 为 一 个 FORTRAN 语言 函数 子 程序 ， 如 果 需 要 使 用 其 返回 
值 ， 必 须 在 程序 中 对 函数 加 以 类 型 说 明 。 该 函数 的 功能 为 关闭 一 个 已 经 打 
开 的 MAT 文件 。 末 数 仅 有 一 个 输入 参数 mfp， 为 一 个 MATFile 类 起 的 指 
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针 , 指向 开启 的 MAT 文件 。 如 果 函 数 执行 成 功 ， 其 返回 值 为 0; 否则 将 返 


回 一 个 写 文件 错误 。 
举例 ，matdemol.f 是 MATLAB 提供 的 一 个 范例 程序 ， 位 于 目录 
MATLAB 根 目 录 \externNexatmplesNeng _tmnatN 


中 ， 它 对 画 数 matClose ，matGetMatrix ，tnatPutMatrix，matDeleteMatrix 


和 matOpen 的 使 用 给 出 了 样 例 ,其 源 代码 如 下 , 我 们 将 在 程序 中 对 各 语句 


的 功能 加 以 注释 ， 


program ratdetmol 
C 对 程序 中 使 用 变量 和 函数 子 程序 的 类 型 进行 声明 
integer ImatDpen，ImxCreateFutl， mxCreateString 
integer matGetMatrix ，tmxUerPr 
integer mp ，pal，pa2，pa3 
integer status，ImatClose 
doeuble precision dat 〈9》 
data dat / 1.0，2.0，3.0，4.0,，5.0，6.0， 7.0，8.0，9.0 7 


C 使 用 函数 matOpen 开启 MAT 文件 ， 并 判断 函数 是 否 执行 成 功 


write (6，# )rCreating MAT-file matdemo, mat .，， 
mp 一 tnat(Open 〈'matdetno. pmat' "ww )》 
主 (mp .eq、0) then 
write 《6，x ) Canlt open ”matdemo, mat* for writing 
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Write 〔《6，# ) 《Deo you have Write bermisgsion in this directory?) 


atDP 
end 这 


创建 输 和 人 到 MAT 文件 中 的 mxArray 结构 体 变 量 pal 
pbal 一 InxCreateFull (3，3，0) 
call mxSetName 《pal，'Numeric'》 


创建 输 人 到 MAT 文件 中 的 mxArray 结构 体 变 重 pa2 
pa2 = mxCreateString ('MATLAB The language of comptutiag' ) 
call mxSetNarmne 〈pa2，'String') 


创建 输 和 人 到 MAT 文件 中 的 mxArray 结构 体 变 量 pa3 
pa3 一 InxCreateString ('MATLAB: The language of cotnputing ) 
call mxSetName 〈pa3，'Stting2:) 


调用 子 例 行程 序 matPutMatrix 将 mxArray 结构 居 变 量 pat、pa2 
和 pa3 输 人 到 MAT 文件 中 

call matPutMatritx (mp ，pal) 

call matPutMatrix (imp，pa2》 

call matPutMattrix (mp ，pba3) 


给 mxAarray 结构 体 夸 值 ， 并 重新 将 pal 输入 到 MAT 文件 中 
call mmxCopyReal8ToPtr (dat，tnxGetPr 《pal)，9) 
call matPutMatrixz 〔mp 。，paly》 


调用 子 例 行 程 序 mmatDeleteMatrix 从 MAT 文件 中 删除 名 为 String2? 
的 mxArray 结构 体 变 量 
cail matDeleteMatrix 《mp，'String2 ) 


使 用 函数 matClose 关闭 MAT 文件 

statusg 一 tmatClose 《mp) 

这 (status . ne。0) then 
write 《6，# ) ?Error closing MAAT-file 
stop 

end 主 


再 次 开 和 肯 MAT 文件 ， 并 判断 函数 是 否 执行 成 功 

mp 一 matOpen 《matdemo. mat' tr) 

让 《status ,ne，1) theq 
write (6，y# ) ICan't open "mnatderno. Imaty for reading. 
Stop 

end 让 


使 用 函数 子 程序 matGetMatrix 从 MAT 文件 中 读 取 阵列 
pal 一 matCGetMatrixz 《mp， Numeric') 
让 (mxIsNumeric (pal》.eq， 0) then 
write 〔6，，# 》7Invaiid non-numeric matrixz written to MAT-Hile' 
stop 
end 证 
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pa2 一 matGetMatrix (Imp ，'String' ) 

让 (mxJsString (pa2) .eq，0) then 
write 《6，* ) "IJnvalid nen-numeric Imatrix written to MAT-ier 
Stobp 

end 这 


pa3 一 matCGetMatrix mp，'String27》 

让 《pa3 . me，0) then 
write (6，# ) String2 not deleted from MAT-file: 
atotp 

end 计 


志 释放 内 存 
call mxFreeMattix 《pal) 
cali mxFreeMatrix 《pa2) 
call mxfreeMatrix 〈pa3) 


C 关闭 MAT 文件 
status 一 matCtosge 〈mp) 
计 《status ,me。0) then 
write (6，=* ) "Error rlosing MAT-iie' 
stop 
end 下 


Wiite 〔6，# ) "Don't creating MT- 提 e: 
stoP 
end 


对 该 程序 编译 后 执行 将 创建 一 个 名 为 matdemo. mat 的 MAT 文件 ， 在 
MATLAB 命令 提示 符 下 键 人 如 下 命令 可 以 查看 文件 的 内 容 ， 


? whos -和 ee matdetmno. mat 

Natme Size Bytes Class 

Numeric 3x3 72 double array 

String 1x33 66 char array 

Grand total is 42 elements using 138 bytes 


2. matDeleteMatrix 


功 能 , 从 MAT 文件 中 删除 一 个 阵列 。 

谐 ” 法 ，subroutine matDeteteMatrix (mfp ，name) 
integer # 4 mip 
character x 《 闪 ) name 

说 “” 明 , 该 函数 为 一 个 FORTRAN 语言 子 例 行 程序 ,通过 该 函数 ,用 户 可 以 从 一 个 
开启 的 MAT 文件 中 删除 一 个 指定 名 字 的 阵列 。 输 入 参数 mfp 为 一 个 指向 
MAT 文件 的 MATFile 类 型 的 指针 , name 为 一 个 字符 串 变量 , 包含 了 希望 
删 队 的 阵列 名 。 如 果 函 数 执行 成 功 ， 返 回 值 为 零 ， 否 则 返回 值 为 非 零 。 
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参见 函数 子 程序 matClose 的 范例 程序 matdemol.f。 


3. tmatCetDir 


功 能 : 
语 法 : 


说 . 明 ， 


获得 MAT 文件 中 所 有 阵列 的 目录 。 

integer xx 4 function tmatGetDir (mfp，nhutn) 

integer x 4 mfp ，num 

函数 matClose 为 一 个 FORTRAN 语言 数 子 程序 ， 如 果 需 要 使 用 其 返回 
值 ， 必 须 在 程序 中 对 函数 加 以 类 型 说 明 。 通 过 该 隔 数 ， 用 户 可 以 获取 一 个 
处 于 开启 状态 的 MAT 文件 中 的 所 有 阵列 的 月 录 。 如 果 函 数 执行 成 功 将 返 
回 一 个 指针 , 指向 一 个 内 部 数组 , 数组 的 每 一 个 元 素 均 为 指向 MAT 文件 中 
阵列 名 字 的 指针 , 同时 必须 说 明 的 一 点 是 该 内 部 数组 通过 函数 mxCalloc 分 
配 内 存 , 在 程序 结束 之 前 ,必须 使 用 函数 mxFree 进行 释放 , 否则 将 导致 内 
存 浊 漏 ;数组 元 素 的 个 数 存 储 在 指针 nurm 所 指向 的 内 存 区 域 中 。 如 果 函 数 
执行 失败 ， 返 回 参 数 num 中 的 值 将 为 -1， 并 且 返 加 一 个 空 指针 数组 。 如 果 
返回 参数 num 中 的 值 为 0， 表 示 MAT 文件 中 没有 包含 任何 阵列 。 


;matdemo2.f 是 MATLAB 提供 的 一 个 范例 程序 ， 位 于 目录 


MATLAB 根 和 目录 \externNexamplesNeng _matN 
中 ,， 它 对 函数 matClose , matGetDir ,matGetNextMatrix 和 matOpen 的 使 
用 给 出 了 样 例 , 其 源 代码 如 于 ,我们 将 在 程序 中 对 各 语句 的 功能 加 以 注释 ; 


brogram Imatdemo2 

C 对 程序 中 使 用 变量 和 函数 子 程序 的 类 型 进行 声明 
integer matCOpen ，matGetDir，rmatGetNEeXxtMatrix 
integer mp，dir，adir (1007》，Pa 
记 teger ImxGetM ，mxGetN ，matClose 
integer ndir ，1，stat 
character x 32 names 《100] ，natme ，mXxCGetNarme 


CC 使 用 函数 matOpen 开启 MAT 文件 matdemo. mat， 并 判 斯 
C 函数 是 否 执行 成 劲 
mp 一 matOpen 《matdemo. mat  ，'r“) 
话 ftmnp .eq， 0) then 
Write 《6G，+ )》1Can'rt open "atdemo, paat" 
stoP 
end 计 
C 读 人 MAT 文件 的 目录 
dir 一 ImatGetDir 《mp，ndir) 
谋 〈dir ,eq，0) then 
Write (6，# 》 ICan't read directory,， 
stop 
end 于 
C ”将 dir 指向 的 数据 拷贝 到 一 个 FORTRAN 语言 指针 数组 中 
call mxCopyPtrTointeger4d〔 dir ，adir ，ndqdir 》 
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C 从 指针 数组 元 素 指 向 的 内 存 中 读 取 出 字符 串 
do 20 ti 一 1，ndir 
cail mmxCopyPtrToChatractet 《adir 〈i)，natnes 〈《i) ，327) 
20 contintue 


CC 输出 MAT 文件 阵列 的 名 字 
write 〔6，# ) :Direetory of Mat-file: 
do 30 i= 王 1，ndir 
Witite 〔〈6，+ ) natnes 《ii) 


30 cohntinue 


C ”使 用 函数 matCiose 关闭 MAT 文件 ， 并 判断 成 功 与 否 
stat 一 matClose 〈Imp) 
许 (stat . ne、0) then 
Wtite 〔6，+# )》 /Error closing ”natdermo. mat"、 
stop 
end 让 


尼 再 次 开启 MAT 文件 
mp 一 tnatOpen 〔:matdemo. mat' ，'r ) 
详 (tmp .eq，0) then 
write (6，= ) Can't open "matdermo. mat" 
stop 
end 计 


C 通过 使 用 函数 matGetNextMatrix 恢 次 从 MAT 文件 中 读 取 所 有 阵 
C 列 

Write 〔6， +# 》'Getting full array coatents 

pa 一 ImatGetNextMatrix 《mp) 

de while (pa .ne，0》 


C 获取 阵列 名 字 
name 一 ImXGetName 〈pba) 
i 王 mxtCGetM (〈Ppa) 
Wiite 〔《 关 并 》1 
Wiite 〈6，+ )] /Rettieved " ，naTmne 
write (6，x ) 上 名 ith size !，mxGetM 《pa)，'-by-'，ImxGetN 〈pa) 
call tmxFreeMatrix 《pay》 
pa 一 matGetNextMatrix 《mp》 
end do 


C ”关闭 MAT 文件 
stat 一 maatClose 《tmpy》 
计 《stat .ne，0) then 
write (6，x 》!Error closing natdermno, rmat"， 
stob 
end 这 


Stobp 
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end 


对 该 程序 编译 后 执行 ， 将 显示 如 下 内 容 ， 


4, matGetFull 


也， NMATLABYNexternNexaTmplesNeng _mat>> matdermo2 
Directory of Mat-file : 

String 

Numeric 


Getting fuil array contents : 


1 


Retrieved String 


权 ith size 1-by- 33 
3 


Retrieved Numetic 


With size 3-by- 3 


功 能 : 从 MAT 文件 中 读 取 一 个 存储 类 型 为 满 的 阵列 。 


语 法 ， integerx 4 function matGetFull (mfp ，name，m， n，pr，Ppi) 


integerx 上 4 imfp， mn，pbr，Ppi 


characterf kx 【《 关 ) name 
说 “” 明 :函数 matGetFull 为 一 个 FORTRAN 语言 函数 子 程序 , 如 果 需 要 使 用 其 返回 
值 ， 必 须 在 程序 中 对 函数 加 以 类 型 说 明 。 通 过 该 函数 ， 用 户 可 以 方便 地 从 
MAT 文件 中 提取 出 一 个 存储 类 型 为 满 的 阵列 ， 而 且 不 需要 使 用 mxArray 
结构 体 对 象 ， 可 以 直接 得 到 有 关 阵 列 的 信息 ， 包 括 m、n、PpPr 和 pi， 这 一 点 
与 函数 matGetMatrix 不 同 。 函 数 matGetFull 几 个 形式 参数 的 含义 分 别 如 


下 ; 
。mfp 为 一 个 指向 MAT 文件 的 指针 ， 为 一 个 输入 参数 ; 
。，name 为 希望 从 MAT 文件 中 读 取 的 阵列 的 名 字 ， 为 一 个 输入 参数 ; 
。m 为 从 MAT 文件 中 提取 出 阵列 的 行 数 ， 为 一 个 输出 参数 ; 
.mn 为 从 MAT 文件 中 提取 出 阵列 的 列 数 ， 为 一 个 输出 参数 ; 
。pr 为 指向 一 片 内 存 区 域 的 指针 , 该 内 存 区 域 通过 使 用 函数 mxCalloc 


进行 分 配 ， 其 中 存放 着 从 MAT 文件 中 提取 出 阵列 的 实数 部 分 的 数 
据 , 在 程序 结束 前 ,该 内 存 区 域 必须 使 用 函数 mxFree 进行 释放 , 否 
则 将 导致 内 存 汽 潮 ， 该 参数 为 一 个 输出 参数 ， 


。Ppi 为 指 向 一 片 内 存 区 域 的 指针 ， 该 内 存 区 域 通过 使 用 函数 mxCalloc 


进行 分 配 ， 其 中 存放 着 从 MAT 文件 中 提取 出 阵列 的 虚数 部 分 的 数 
据 , 在 程序 结束 前 ， 该 内 存 区 域 必须 使 用 函数 mxFree 进行 炙 放 , 大 
则 将 导致 内 存 洪 漏 ; 如 果 希 望 提 取 的 阵列 为 实数 阵列 , 那么 pi 为 零 ; 
该 参数 为 一 个 输出 参数 。 


如 果 函 数 执行 成 功 ， 函 数 将 返回 0， 否 则 将 产生 一 个 读 文 件 错误 。 这 里 必须 
注意 的 一 点 是 ,该 函数 在 后 续 的 MATLAB 版 本 中 , 将 成 为 过 时 的 苦 数 ， 它 
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的 功能 完全 可 以 通过 函数 matGetMatrix ,mxGetPr ，mxGetPi ，mxGetM 和 
mxGetN 的 组 合 使 用 来 替代 。 
举例， 参见 画 数 子 种 序 matPutFull 的 范例 程序 。 


5. rnat(GetMatrix 


功 能 从 MAT 文件 中 读 取 出 一 个 阵列 。 

语 法 ，integer * 4 function matGetMatrix 《imfp，hnatrme ) 
integer x 4 mfp 
character x 《# ) name 

说 ” 明 ， 函 数 matGetMatrix 为 一 个 FORTRAN 语言 函数 子 程序 ， 如 果 需 要 使 用 其 
返回 值 ， 必 须 在 程序 中 对 函数 如 以 类 型 说 明 。 通 过 该 函数 ， 用 户 可 以 从 
MAT 文件 中 获取 一 个 阵列 , 如 果 函 数 成 功 执行 , 将 返回 一 个 指向 新 分 配 的 
mxArray 结构 体 对 象 的 指针 ， 如 果 函 数 执行 失败 , 将 返回 0。 必须 注意 , 在 
程序 结束 前 , 必须 对 函数 matGetMatrix 分 配 的 mxArray 结构 体 进行 删除 ， 
和 谷 则 将 导致 内 存 泄漏 ， 

举例 ,参见 函数 子 程序 matClose 的 范例 程序 matdemol.f。 


6. matGetNextMatrix 


功 能, 读 取 MAT 文件 中 的 下 一 个 阵列 。 

语法 ， integer * 4 function matGetNextMatrix (mfp ) 
integer < 4 mfp 

说 “ 明 , 函数 matGetNextMatrix 为 一 个 FORTRAN 语言 函数 子 程序 ， 如 果 需 要 使 
用 其 返回 值 , 必须 在 程序 中 对 函数 加 以 类 型 说 明 。 该 函数 的 功能 为 读 取 输 入 
参数 mfp 指向 的 处 于 开启 状态 的 MAT 文件 中 的 下 一 个 阵列 的 数据 ， 并 将 
返回 一 个 新 分 配 的 mxArray 结构 体 的 指针 。 通 过 该 郴 数 ， 用 户 可 以 通过 一 
个 循环 过 程 , 依次 访问 MAT 文件 中 所 有 的 阵列 。 不 过 必须 注意 的 一 点 是 ， 
对 函数 matGetNextMatrix 的 使 用 必须 紧 接 在 函数 matDpen 之 后 ， 也 就 是 
说 在 两 者 之 间 不 能 加 入 其 他 的 MAT 文件 操作 函数 ， 否 则 函数 matGet- 
NextMatrix 将 不 知道 “下 一 个 (next)” 的 定义 。 如 果 到 达 文 件 结尾 或 者 酚 
数 执行 出 错 , 函数 将 返回 0。 在 程序 结束 之 前 , 必须 将 函 孝 matGetNextMa- 

trix 分 配 的 mxArray 结构 体 删 除 ， 否 则 将 导致 内 存 泄 沁 。 

举例 , 参见 函数 子 程序 matGetDir 的 范例 程序 matdemo2.f。 


7, matGetString 


功能， 从 MAT 文件 中 读 取 一 个 字符 串 类 型 的 阵列 。 
语法 ，integer * 4 function matGetString 《tmfp ，name，stT， strlen ) 
integet 关 4 mfp，strlen 


chaTacterf 闪 【 攻 基 》Tarne stT 


说 “” 明 ;函数 matGetString 为 一 个 FORTRAN 语言 函数 子 程序 , 如 果 需 要 使 用 其 返 
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回 值 ， 必 须 在 程序 中 对 函数 加 以 类 型 说 明 。 适 过 该 函数 ， 有 用户 可 以 从 MAT 
文件 中 提取 指定 名 字 的 字符 串 类 型 的 阵列 ， 函 数 定 义 中 的 各 形式 参数 的 含 
义 分 别 如 下 : 
。tmfp 为 一 个 指向 MAT 文件 的 指针 ， 为 一 个 输 和 人 参数 ; 
。，name 为 希望 从 MAT 文件 中 读 取 的 字符 串 类 型 的 阵列 的 和 名字, 为 一 
个 输 人 参数 ; 
。str 为 一 个 字符 串 变 量 , 从 MAT 文件 中 读 取 的 字符 串 类 型 的 阵列 的 
内 容 就 存放 在 该 变量 中 ， 为 一 个 输出 参数 ; 
。strlen 为 一 个 整 型 数量 ， 代 表 了 用 户 希 望 从 字符 串 类 型 的 阵列 读 取 
出 字符 的 长 度 ， 一 般 将 strien 的 大 小 设置 为 阵列 的 元 素 个 数 ， 如 果 
strlen 小 于 阵列 的 元 素 个 数 , 那么 将 只 有 前 strlen 个 元 素 被 读 取 ; 如 
果 阵 列 由 若干 行 组 成 , 那么 读 取 时 将 按 列 读 取 , 并 存放 为 一 行 ; 该 参 
数 为 一 个 输入 参数 。 
画 数 在 不 同 的 情况 下 有 不 同 的 返回 值 ， 代 表 了 不 同 的 含义 ， 分 别 如 下 : 
。10 代表 薄 数 成 功 返 右 ; 
。1 代表 函数 执行 失败 ， 因 为 希望 读 取 的 阵列 不 是 字符 串 类 型 ; 
。2 代表 字符 串 阵 列 的 元 素 个 数 大 于 strlen， 
。，3 代表 函数 执行 出 错 。 
举 ， 例 ， 参 见 函 数 子 程序 matPutString 的 范例 程序 。 


8. matODPen 
功能， 开启 一 个 MAT 文件 。 


语法，integer x* 4 function matOpen 《filename，mode) 
integer x 4 tmfp 
character x 【=# ) filename，mode 
说 “ 明 ， 函 数 matOpen 为 一 个 FORTRAN 语言 函数 子 程序 ， 如 果 需 要 使 用 其 返回 
值 ， 必 须 在 程序 中 对 函数 加 以 类 型 说 明 。 通 过 该 函数 ， 用 户 可 以 开局 一 个 
MAT 文件 , 如 果 函 数 执行 成 功 , 将 返回 一 个 指向 MAT 文件 的 指针 ,否则 
将 返回 0。 函 数 拥 有 两 个 输入 人 参数， 其 中 flename 为 一 个 字符 串 变 量 ， 字符 
串 中 包含 了 希望 开启 的 MAT 文件 的 文件 名 , mode 为 一 个 字符 变量 ， 用 来 
说 明 开启 MAT 文件 的 类 型 ， 它 有 以 下 几 种 取 值 : 
。“r”， 表 示 使 用 只 读 方 式 开启 MAT 文件 ; 
。“uw, 表示 以 可 读 和 可 写 方式 开启 文件 , 即 可 以 对 文件 中 的 某 一 些 阵 
列 进行 更 新 ; 
。“w>， 表 示 以 只 写 方式 开启 文件 ， 如 果 磁 盘 中 存在 同名 的 MAT 文 
件 ， 那 么 以 这 种 方式 开启 MAT 文件 将 删除 原 有 文件 中 的 所 有 内 
容 ; 如 果 原 来 不 存在 同名 的 MAT 文件 , 那么 将 创建 一 个 新 的 文件 ; 
。ww4”， 表 示 创 建 一 个 MATLAB 4.X 版 本 的 MAT 文件 。 
举例 ， 参 见 函数 子 程序 matClose 的 范例 程序 matdemol.f。 
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9. matPutFull 


功 能 : 向 MAT 文件 中 写 人 一 个 存 情 类 型 为 满 的 矩阵 。 

语 ”法 ，integer * 4 function matPutFull (mfp ，name， my，n，pr，Pi) 
integerx 4mfp,， mn pr，Ppi 
charactef x 【# ) name 

说 ”了 明 , 函数 matPutFuli 为 一 个 FORTRAN 语言 函数 子 程序 , 如 果 需 要 使 用 其 返回 
值 ， 必 须 在 程序 中 对 函数 加 以 类 型 说 明 。 通 过 该 函 数 ， 用 户 可 以 方便 地 向 
MAT 文件 中 写 人 一 个 存储 类 型 为 满 的 阵列 ， 而 且 不 需要 使 用 mxArray 结 
构 体 对 象 ， 而 可 以 直接 使 用 有 关 阵 列 的 信息 ， 包 括 症 、n、pPr 和 pi， 这 一 点 
与 函数 matPutMatrix 不 同 。 函 数 matPutFull 几 个 形式 参数 的 食 义 分 别 如 
下 ; 


mfp 为 一 个 指向 MAT 文件 的 指针 ， 为 一 个 输入 参数 ; 

。name 为 希望 写 人 MAT 文件 的 阵列 的 和 名字， 为 一 个 输入 参数 ; 

。m 为 希望 写 人 MAT 文件 的 阵列 的 行 数 ， 为 一 个 输 人 参数 ; 

bn 为 希望 写 人 MAT 文件 的 阵列 的 列 数 ， 为 一 个 输 人 参数 ; 

pr 为 指向 一 片 内 存 区 域 的 指针 ， 该 内 存 区 域 中 存放 着 希望 写 人 

MAT 文件 的 阵列 的 实数 部 分 的 数据 ;该 参数 为 一 个 输 人 参数 ; 

pi 为 指向 一 片 内 存 区 域 的 指针 ， 该 内 存 区 域 中 存放 着 希望 写 人 

MAT 文件 的 阵列 的 虚数 部 分 的 数据 ;该 参数 为 一 个 输入 参数 。 
如 果 函 数 执行 成 功 ， 函 数 将 返回 0， 否则 将 产生 一 个 写 文 件 错误 。 如 果 在 
MAT 文件 中 已 经 存在 同名 的 阵列 ,那么 函数 将 覆盖 原来 的 阵列 ， 如 果 不 存 
在 , 将 在 MAT 文件 的 尾部 写 人 一 个 新 的 阵列 。 这 里 必须 注意 的 一 点 是 ， 该 
函数 在 后 续 的 MATLAB 版 本 中 , 将 成 为 过 时 的 函数 , 它 的 功能 完全 可 以 通 
过 函数 matPutMatrixz ，mxSetPr ，mxSetPi ，mxSetM 和 mxSetN 的 组 合 使 
用 来 替代 。 

举 ， 例 ; 下 面 是 一 个 简单 的 范例 程序 , 该 程序 从 一 个 MAT 文件 中 读 取 一 个 阵列 , 然 
后 写 和 到 另 一 个 MAT 文件 中 ， 程 序 的 源 代 码 如 下 : 


progratm mmain 


C “，” 枚 序 中 使 用 的 函 教 和 变量 的 声明 


integer mat(Open ，tmatClose，matPutFull， matGetFult 


integer mfl ，mf2 ，stat 
integer tm，n， Pr，Bpi 
integer Imfp 
double precision Areal 〈6) 
data Areal / 1.0，2.0，3.0，4.0，5.0，6.0 7 
创建 一 个 名 为 foo. mat 的 MAT 文件 ， 并 使 用 函数 matPutFull 写 人 一 个 阵 
C ” 列 ， 然 后 关闭 该 MAT 文件 
mfjp 一 tnatDpen 《〈'foo.rmat'， 吧 ) 
stat 一 matPutFull (mfp,"A' ，3，2，AAreal，0) 


虽 
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stat 一 tatCjose (imftp) 


C 有 从 MAT 文件 foo.amt 中 读 取 阵列 ， 热 后 写 人 MAT 文件 foo2, mat 
mfl 一 tnatOpen 《foo maat' ,r )》 
mfi2 王 matOpen 〔《foo2. mat' sw ) 
stat 一 InatGetFuil (mftl， 大 ' ，m，n，br，Pi) 
stat 一 matPutFull 《mtf2,/A，m，n，pr，pi) 
stat 一 matClose 《tmftl1) 
stat 一 matClose 《mi2) 
stoOp 
end 


10. mmatPutMatrix 


功 能 : 向 MAT 文件 写 人 一 个 mxArray 结构 体 类 型 的 对 象 . 

语 法: integerx 4 function matPutMatrix (mfp，mp) 
integer x 4 mp，znfp 

说 “” 明 ,函数 matPutMatrix 为 一 个 FORTRAN 语言 函数 子 程序 ， 如 果 需 要 使 用 其 
返回 值 ， 必 须 在 程序 中 对 函数 加 以 类 型 说 明 。 通 过 该 函数 ， 用 户 可 以 向 
MAT 文件 写 人 一 个 mxArray 结构 体 类 型 的 对 象 , 如 果 函 数 成 功 执行 ,将 返 
回 1， 如 果 函 数 执行 失败 ， 将 返回 0。 必须 注意 ， 如 果 在 MAT 文件 中 已 经 
存在 同名 的 阵列 , 那么 函数 将 覆盖 原来 的 阵列 , 如 果 不 存在 , 将 在 MAT 文 
件 的 尾部 写 人 一 个 新 的 阵列 。 新 上 阵列 的 维 数 可 以 不 一 致 。 

举例， 参见 画 数 子 程序 matClose 的 范例 程序 matdemocl.f。 


11. matPutString 


功 能 ,向 MAT 文件 写 人 一 个 字符 串 类 型 的 阵列 ， 
语 法 ，integer * 4 function matPutString (mfp，nhame，str) 
integer kx 4 mfp 
character x 《 兴 ) namey，Str 
说 “ 明 , 函数 matPutString 为 一 个 FORTRAN 语言 函数 子 程序 , 如 果 需 要 使 用 其 返 
回 值 ， 必 须 在 程序 中 对 函数 加 以 类 型 说 明 。 通 过 该 函数 ， 用 户 可 以 向 MAT 
文件 写 人 一 个 字符 串 类 型 的 阵列 。 如 果 函 数 执行 成 功 ， 函 数 将 返回 0， 否则 
为 1。 天 数 的 各 输入 参数 的 含义 如 下 : 
。mfp 为 一 个 指向 MAT 文件 的 指针 8 
。name 为 希望 写 人 MAT 文件 的 字符 串 类 型 的 阵列 的 名 字 :; 
。astr 为 一 个 字符 引 变 量 , 它 包 含 了 希望 写 人 MAT 文件 的 字符 串 类 型 
的 阵列 的 内 容 ， 
举 ” 例 ， 下 面 是 一 个 简单 的 范例 程序 : 


Prograrmn main 


C ”程序 中 使 用 的 变量 和 函数 的 声明 


integer taatOPen ，matClose，matPutString， tmatCretSttin 作 
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character # 100 Stt 
integer mipl1，stat，tmftp2 


向 MAT 文件 string, mat 写 人 一 个 字符 串 

Imfp] 一 和 aatDOpen (〔'string. tmat' ，! ww ) 

stat 一 matPutString (mfpl， AHello，world' ) 
stat 一 tmatClose {imfpl) 


从 MAT 文件 string, mat 读 取 一 个 字符 串 
tmfp2 一 matOpen 《string. mat' ，5T )》 
Stat 一 rmatGetString (ifp2， 太 ，str，10) 
stet 一 rnatClose 《mtp2》 

write (6，# ) The String ig “，str 

stotb 


end 
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本 章 内 容 分 为 三 节 , 首先 分 别针 对 C 语言 和 FORTRAN 语言 , 以 MATLAB 提供 的 
示范 程序 为 例 ,对 MATLAB 引擎 的 使 用 进行 详细 的 介绍 , 然后 对 MATLAB 引擎 程序 的 
建立 进行 说 明 ， 最 后 分 类 对 MATLAB 引擎 数 库 中 的 库 函 数 进行 全 面 的 介绍 。 


6.1 MATLAB 引 警 的 鳄 用 


MathWorks 公司 为 了 方便 用 户 对 MATLAB 引擎 的 学 习 , 提供 了 三 个 典型 的 范例 程 
序 ， 分 别 是 基于 C 语言 的 engdemo.c 和 engwindemo. ce 以 及 基于 FORTRAN 语言 的 
fengdemo.f， 它 们 均 存 放 在 吴 录 
MATLAB 根 目 录 \EXTERNNEXAMPLESNENG _MAT 
下 。 本 节 将 分 别 以 程序 engwindemo.e 和 程序 fengdemo.f 为 例 ， 对 基于 C 语言 和 FOR- 
TRAN 语言 的 MATLAB 引擎 的 使 用 进行 讲解 


6.1.1 基于 C 语言 的 MATLAB 引 巷 的 使 用 


1.engwindemo.e 源 代 码 


7:# 程序 段 (1) * 7/ 

六 include <winpdows,h>> 
#include <<atdiib,h> 
#include <stdio. h>> 

共 include <string.h> 
include "engine. hy 


sftatic dotuble 二 real [6] 二 { 1，2，3，4，5，6 1 


/+# 程序 段 (2》 * 7 
int PASCAL 到 inMain (HANDIE hinstance， 
HANTDLE hPrevyInstance， 
工 PSTR 1pszCmdIinpey，int nCimdShowy》 
{ 
/* 程序 段 (3? * 7 
了 ngine #epi 
ImxArray + 了 一 NULL，xa 一 NULL，*d 一 NULLIi 
char buffer [301]; 
double * Dreal，* Dimagi; 
deubie time [10] = (0，1，2，3，4，5，6，7，8，9 }5 


/+x 程序 绒 (4) * 7 
il (ep 一 engOpen 《NUILD))》 
{ 
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MessageBox (CHWND) NULI.， 
(LPSTR)*Can't start MATLAB engine"， 
(LPSTR) 宅 ngwindetno. c"，MB _ OK7; 
exit 《-1)5 
} 
/* 第 一 部 分 : 向 MATLAB 发 送 数据 ， 并 在 MATIAB 中 分 析 数 据 ， 
对 结果 进行 绘图 * / 
/+# 程序 段 (5) * 7 
T = mxCreatePoubleMatrix (1，10，mxR 王 和 AL》 
mxSetName 〈T，" 工 7)4 
tmemcpy 〔((〈char * ) mxGetPr (T)，(char * ) time，10x#sizeof (double))#; 
/* 程序 段 (6) * 7/ 
engPutArray (ep， 工 ); 
/* 程序 妖 (7》* / 
engEvalString (ep，oD 一 .5, *# 《-9.8) .xxT， ”23 
/* 程序 颖 (8) * 7 
engEvajString 《ep，%plot (CT，D)37); 
eng 它 valString 《ep ，*title 〈!Position vs，Time for a falling objeet' 3532) 
engEvalString 〔(ep， 史 label (Time (seconds》 7)3 7 
engEvalString (ep， 史 labei 《'Position (meters》)5 4 


/1x* 第 二 部 分 ,构造 一 个 mxArray 结构 体 ， 并 将 其 传送 给 MATLAB， 
然后 计算 该 矩阵 的 特征 值 ， 并 显示 在 Windows 徐 晶 中。 * / 

/x# 程 译 段 (9 * 7/ 

a 一 mxCreateDoubleMattiz 〔(3，2，mxREAEL 7)# 

metncpy 《〈char * ) mmxGetPr (a)。(char * ) Areal，6# sizeof 《double)7D]# 

mxSetName 《a，"AA")3 


/+ 程序 侨 〈10) * 7 
ergPutArray (ep，3)4 


/* 程序 段 (11) *7 
engEvalString 《ep，"d 一 eig 《六 半 由 7) 


/+ 程序 侦 (12》* 7 
engOutputBufter (ep，buffer，300)# 


/+ 程序 段 (13》 * 7 
engEvalString 《ep ，"whos )# 
MessageBox〔 (〈HWND) NULL，(LPSTR)》bufter， 
(LPST 尽 ) MATLAB - whos”，MB _ OKR)+ 


/# 程序 侨 (14》 =* 7/ 

一 engGetArray 《epb， d2)5 
/x 程序 段 (15》*7 
engClose (epP7H 
/+# 程序 眉 (16) “7 
这 (qd 王 王 NULL) 
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”MeasagesEBox ( 〈(HYWND) NULL，(LPSTR)y"Get Array Failed"， 
(LPSTR)"Engwindemo, c"，MB _OK); 


else 


Dreail = mxGetPr (d); 
Dimag 三 mxGetPi 《dy)# 
诗 (Dimag) 
sprintf 《buifer ;nyEigenval 2: %%g 十 %%gi"，Dreal [1]，Dimag [1])， 
else 
sprintf 《buifer ”PEigenval 2，%g，Dreal [1]); 
MessageBox ( (HWND) NULL，《LPSTR)》 buftfer， 
{(LPSTRJ) Engwindetmno.c"，MB _OK); 
mxDesttoyArray 《d)# 
} 


/x# 程 库 氏 《17) * 7 
tnxDestroy 上 Array 〔 工 )# 
ImXDestroy 凡 rray 《8a)5 


return 《07; 


} 
2. 程序 说 明 


engwindemo.e 是 一 个 基于 Windows 操作 系统 ， 使 用 C 语言 开发 的 调用 MATLAB 
引擎 的 Windows SDK 应 用 程序 。 该 程序 从 总 体 上 可 以 分 为 两 个 部 分 , 第 一 个 部 分 构造 了 
一 个 名 为 工 的 mxArray 类 型 结构 体 ， 并 传送 给 MATLAB,， 进行 了 一 定 的 数据 分 析 和 给 
图 操作 ; 第 二 部 分 则 利用 MATLAB 引擎 完成 了 一 个 矩阵 的 特征 计 值 计算 任务 ,并 将 结果 
回 传 给 客户 应 用 程序 , 在 允 indows 窗口 中 显示 。 下 面 按 程序 中 的 标号 ， 对 程序 中 的 各 段 
代码 进行 详细 的 解释 ， 说 明 MATLAB 引擎 的 使 用 : 

程序 段 〈1) 为 头 文件 和 全 局 变量 的 定义 ， 它 对 程序 中 所 必需 的 一 些 头 文件 进行 了 包 
含 , 其 中 最 为 重要 的 是 头 文件 windows.h 和 头 文 件 engine- h。 头 文 件 windows.h 中 包含 
了 编写 允 indows 应 用 程序 所 必需 的 一 些 安 、 数 据 类 型 以 及 函数 的 定义 ， 缺 少 了 它 ，Win- 
dows 的 应 用 程序 根本 无 法 运行 ;而 engine-h 中 则 包含 了 MATLAB 引擎 函数 库 中 所 有 
函数 及 相关 数据 类 型 的 定义 ， 同 时 对 头 文件 matrix.h 进行 了 包含 , 缺少 了 它们 ， 将 无 法 
使 用 MATLAB 引擎 。 此 外 , 该 程序 段 还 定义 了 一 个 double 类 型 的 静态 数组 Areal, 其 作 
出 域 和 生存 周期 均 为 全 局 。 

程序 仆 (2) 为 主 函 数 的 定义 , 该 语句 定义 了 程序 engwindemo.e 的 主 函 教 友 ipMain， 
该 函数 是 程序 运行 时 的 人 口 ， 这 与 非 玖 indows 程序 相 比 有 较 大 不 同 , 在 非 Windows 程序 
中 ， 主 函数 名 为 main。 主 琐 数 双 inMain 有 四 个 参数 ， 在 编写 Windows 程序 时 ， 必 须 按 
格式 写 人 , 至 于 各 个 参数 的 含义 ,有 兴趣 的 读者 可 以 自行 参考 有 关 Windows 编程 方面 的 
书籍 ， 若 仅仅 想 使 用 MATLAB 引擎 ， 按 上 面 的 程序 照抄 即 可 。 语句 中 的 关键 字 PAS- 
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CAL， 声 明了 应 用 程序 所 使 用 的 参数 传送 方式 。 

程序 段 (3) 为 变量 的 初始 化 ， 它 对 程序 中 需要 的 一 些 变量 进行 了 定义 ， 其 中 较为 关 
键 的 是 引擎 指针 ep 的 定义 和 mxArray 结构 体 指 针 工 、a、 d 的 定义 。 这 里 必须 注意 一 点 ， 
在 一 般 情 况 下 ， 最 好 将 引擎 变量 和 mxArray 结构 体 变 量 都 声明 为 指针 类 型 ， 因 为 几乎 所 
有 的 应 用 程序 接口 库 中 的 库 函 数 均 以 指针 变 基 为 参数 ， 这 样 操作 起 来 比较 方便 。 如 果 一 
定 要 声明 为 普通 变量 ， 也 可 以 ， 不 过 操作 时 需要 使 用 取 地 址 运算 符 &&。 

程序 段 (4) 为 MATLAB 引擎 的 启动 , 这 是 非常 关键 的 一 个 步骤 , 在 使 用 MATLAB 
引擎 之 前 , 必须 首先 启动 它 , 启动 MATALB 引擎 可 以 使 用 引擎 函数 库 中 提供 的 函 数 en- 
gOpen， 该 函数 若 成 功 执行 ， 将 返回 一 个 Engine 类 型 的 指针 变量 ， 在 程序 由， 将 这 个 变 
量 赋 给 了 指针 ep; 若 函 数 执行 失败 , 将 返回 一 个 空 指 针 。 有 关 该 函数 的 具体 使 用 方法 , 请 
参见 6.3 节 。 

程序 段 (5) 为 搜 阵 的 构造 和 赋值 , 这 段 代码 首先 使 用 了 两 个 以 mx 为 前 缀 的 函 歼 mx- 
CreateDoubleMatrixz 和 tmxSetNarme, 创建 了 一 个 大 小 为 1X10 的 双 精 度 类 型 的 mxArray 
结构 体 变量 工 , 并 将 该 结构 体 变量 命名 “T”, 有 关 函 数 的 详细 使 用 说 明 请 读者 参见 3. 8 节 
(有关 mxArray 结构 体 的 定义 请 读者 参阅 前 面 的 章节 ): 然后 使 用 C 语言 的 内 存 拷贝 函数 
metmcpy 对 所 构造 的 结构 体 进行 了 赋值 ， 这 里 必须 非常 注意 函数 参数 中 的 指针 类 型 的 强 
制 转换 。 

程序 段 (6) 通 过 使 用 MATLAB 引擎 库 的 库 函 数 engPutArray 将 程序 段 〈5) 中 定义 
的 变量 工 输送 到 MATLAB 的 工作 空间 ， 供 后 面 的 计算 使 用 。 

程序 投 (7) 则 通过 MATLAB 引擎 库 的 库 函 数 engEvalString 税 MATLAB 发 出 一 个 
计算 指令 ， 并 且 在 MATLAB 中 计算 完成 。 

程序 段 (8) 则 通过 函数 engEvalString 调用 了 MATLAB 中 的 一 些 内 建 的 绘图 函数 ， 
用 于 绘制 程序 段 (7) 中 的 计算 结果 。 

至 此 ， 程 序 engwindemo.e 的 第 一 部 分 结束 ， 下 面 为 程序 的 第 二 部 分 ， 其 中 ， 

程序 段 (9) 完 成 的 功能 与 程序 段 (5) 相 同 , 它 定 义 了 另外 一 个 大 小 为 3X2 的 双 精 度 类 
吾 的 mxArray 结构 体 变量 a， 并 且 对 其 进行 了 赋值 ， 然 后 命名 为 “A”。 

程序 绒 (10) 则 将 变量 A 输送 到 MATLAB 的 工作 空间 ， 供 后 续 的 计算 使 用 ; 

程序 段 (11) 使 用 了 MATLAB 引擎 库 的 库 函 数 engEvalString 来 调用 MATLAB 的 
内 建 数 学 函数 sig， 用 于 计算 矩阵 a 的 特征 值 。 

程序 段 (12) 通过 MATLAB 引擎 库 的 库 函 教 engOutputBuffer 定义 了 一 个 大 小 为 
300 的 字符 类 型 的 缓 神 内 存 区 域 ， 用 于 存放 下 一 条 MATLAB 指令 的 输出 。 

程序 段 (13) 通过 函数 engEvalString 调用 了 MATLAB 的 内 建 函 数 whos,， 用 于 查看 
当前 MATLAB 工作 空间 中 的 各 变量 信息 , 这些 输出 的 信息 都 将 输出 到 缓存 buffer 中 ,并 
且 使 用 到 indows 的 API 函数 MessageBox 将 信 息 显 示 在 一 个 对 话 框 中 。 

程序 段 (14) 用 于 从 MATLAEB 环境 中 获得 程序 段 (11) 执行 后 输出 的 结果 ,类 型 为 
mxArtray 结构 居 。 

程序 段 (15) 与 程序 段 (4) 相对 应 , 用 于 关闭 MATLAB 引擎 , 这 里 使 用 了 MATLAB 
引擎 库 的 库 函 数 engClose。 

程序 段 〈16) 为 一 个 让 语句 ， 这 段 程序 代码 主要 用 来 完成 对 程序 段 〈14》 的 执行 结 
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果 进 行 判 断 ， 若 程序 段 〈14) 执行 不 成 功 ， 将 显示 错误 信息 ， 报 告 程序 员 获取 数 据 出 现 
问题 ; 若 执行 成 功 ， 则 分 别 从 该 结构 体 中 获取 矩阵 的 实 部 和 虚 部 ,并 且 在 双 indows 对 话 
框 中 显示 这 些 数 据 ， 然 后 对 结构 体 进 行 了 析 构 。 

程序 段 (17》 完成 的 工作 是 对 前 面 所 定义 的 结构 体 变 量 进 行 了 析 构 ， 释 放 内 存 。 


3. 运行 结果 


对 engwindemo, ec 进行 编译 后 ,得 到 一 个 名 为 engwindemo. exe 的 可 执行 程序 , 直接 
在 Windows 下 运行 该 程序 ， 将 依次 显示 以 下 的 图 形 和 对 话 框 : 
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图 6.1 程序 engwindema 调用 MATLAB 绘制 的 图 形 





ame Size Byrtas [1583sS 

委 3x2 4 dotble array 
也 1x10 80 doabje arrey 
了 lxtO 80 doubie arr 凶 
对 3xr1 24 double array 


Eggetrden2 





Gramrd total is 28 elements tiB 儿 232 bytes 
了 iegenyalL 2: 日 .597327 





图 6.2 程序 engwindemo 显示 的 MATLAB 图 6.3 程序 engwindemo 调用 
的 whos 命令 的 输出 MATLAB 计算 特征 值 的 输出 结果 


第 6 章 MATILAB 引擎 函数 库 的 使 用 "311 。 





6. 1.2 基于 FORTRAN 语言 的 MATLAB 引 摹 的 使 用 


1, fengdemo.f 源 代 码 


忆 fengdemo.f 
Program mmair 


C 程序 角 〈1) 
integer engDpen ，engGetMatrix，tmxCreateFull ，mxGetPr 
C 程序 段 (2》 


integer ep， 开 ，D,，result 

double precision time 《10) ，dist 〈10》 

integer stat ，termp 

data titme / 1.0，2.0，3.0，4.0，5.0，6.0，?.0，8.0,， 9.0，10.0 7 


C 程序 段 〈3) 
ep 一 engOpen 《"matlab ) 
让 (ep ,edq，0) then 
write 《6，# ) Caa't statt MATLAD engine' 
stop 
end 让 


C 程序 侦 〈4》 
T = mxCreateFull (1，10，0) 
call mxSetNatme (T，!T) 
call ImnxCopyReal8ToPtr (time，mxGretPr (IT)，10》 


C 程序 段 〈5) 
call engPutMatrix (ep， 了 T) 
C 程序 段 〈6) 


call engEyalString (ebp,，' 了 一 .5.# (〔(-98)》. < 工 ”27)》 
call engEvalString (ep，"plot (T，D)7i 》 

call engRvalString (ep ，rtitle (〈Position vs，Titme") ) 
call engEvalString 〈ep ，'xlabel (*Time 《seconds)")) 

cail engEvatString (ep ，'ylabel 〈"Position 《meters)"》 ) 


C 程序 段 〈7) 
print + ，'Type 0 必 tetuzn > tc 下 xit' 
print * ，!Type 1 <<return>> to continue” 
read 【xy 关 》temp 
证 (temp, eq. 0) then 
Print # ，!' 下 XITT 
stOP 
end 计 


C 〇 程序 段 〈8) 
catl engEvalStting 《ep "close) 
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D 一 engGetMatrix (ep，'D') 
call ImxCopyPtrToReal8 (mxGetPr (TD)，dist ，10) 
print < ，'" MATILAB computed the following distances3: 
Print # ，” time 〔s》dstance 《tm】 
de 10i 王 1，10 
prtint 20，time (i)，dist 〈i) 
20 format ( ， G10,3，G10. 3) 
10 continue 


C ”程序 段 〈9) 

call mxFreeMatrix 〔〈T》 
cal] rnxFreeMatrix (result》 
stat 一 engClose 《ep》 


stoP 


emd 


2. 程序 说 明 


fengdemo.f 是 MATLAB 提供 的 一 个 基于 FORTRAN 语言 使 用 MATLAB 引擎 函 
数 库 的 范例 程序 ， 它 的 编写 方法 与 普通 的 FORTRAN 语言 应 用 程序 的 编写 方法 完全 一 
致 ， 没 有 任何 的 特殊 之 处 ， 惟 一 的 不 同 是 程序 中 使 用 了 大 量 的 MATLAB 引擎 函数 和 
MATLAB mx- 函 数 ， 用 于 完成 MATLAB 引擎 的 开启 ， 构 建 mxAxrray 结构 体 对 象 ， 向 
MATLAB 引擎 传送 数据 ,计算 和 关闭 MATLAB 引擎 等 任务 .下面 按 程序 中 的 编号 , 对 
程序 中 的 各 段 代 码 进行 详细 的 解释 ， 说 明 MATLAB 引擎 的 使 用 ， 

程序 段 (1) 对 程序 中 所 使 用 到 的 MATLAB 引擎 库 中 的 函数 子 程序 和 一 些 mx- 函 数 
子 程序 进行 了 类 型 声明 ,这 对 于 使 用 函数 名 进行 值 传递 的 FORTRAN 语言 本 数 子 程序 来 
说 是 非常 关键 的 步骤 。 

程序 段 (2) 对 程序 中 所 使 用 到 的 变量 进行 了 类 型 声明 ， 其 中 变量 ep 为 引擎 指针 , 工 
和 D 为 指向 mxArray 结构 体 对 象 的 指针 ，time 和 dist 为 双 精 度 的 浮 点 数组 。 

程序 段 (3) 完成 的 主要 功能 是 通过 调用 MATLAB 引擎 函数 engOpen ， 用 于 开启 
MATLAB 引擎 ， 并 对 函数 执行 的 成 功 与 否 进 行 判断 ， 

程序 段 (4) 通过 调用 MATLAB mx- 函 数 子 程序 mxCreateFull 构造 了 一 个 存储 类 型 
为 满 的 mxArray 结构 体 对 象 ， 并 使 用 mx- 子 例 行 程序 mxSetName 和 mxCopyRe- 
al8ToPtr 对 该 对 象 进行 了 命名 和 赋值 。 
”程序 段 5) 完成 的 功能 为 使 用 MATLAB 引擎 子 例 行 程序 engPutMatrix 将 程序 段 
《4) 中 创建 的 结构 体 对 象 传送 到 MATILAB 的 工作 空间 中 。 

程序 段 (6) 通过 多 次 调用 MATLAB 引擎 子 例 行 程序 engEvaliString, 完成 了 一 定 的 
计算 和 绘图 任务 。 

程序 豚 〈7) 为 一 段 人 机 交互 程序 ， 当 程序 执行 至 此 ， 将 要 求 用 户 输入， 以 确定 下 一 
步 程序 的 走向 ， 若 用 户 键 人 0， 则 程序 退出 ， 键 入 则 继续 执行 。 

程序 段 〈8) 主要 完成 了 三 个 任务 ， 首 先 通过 调用 子 例 行 程序 engEvalString 关闭 前 
面 生成 的 图 形 窗口 , 然后 使 用 函数 子 程序 engGetMatrix 从 MATLAEB 的 工作 空间 中 获取 
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程序 段 (6) 的 计算 结果 D, 最 后 调用 了 子 例 行 程序 mxCopyPtrToRealg 从 mxArray 结构 
体 对 象 D 中 获取 数据 并 输出 。 

程序 段 (9) 为 一 些 后续 的 处 理 过 程 , 包括 释放 mxArray 结构 体 对 象 占 用 的 内 存 和 关 
闭 MATLAB 引擎 。 

程序 中 使 用 到 的 MATLAB 引擎 函数 子 程序 和 子 例 行程 序 将 在 本 章 的 第 三 节 中 详细 
进行 说 明 。 

3. 执行 结果 


对 程序 fengdemo.f 进行 编译 后 , 得 到 一 个 名 为 fengdemo. exe 的 可 执行 程序 , 执行 该 
程序 ， 将 首先 启动 MATLAB， 在 程序 向 其 传送 数据 之 后 ，MATLAB 将 有 显示 如 下 图 形 : 
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图 6.4， 程序 fengdemo 调用 MATLAB 绘 币 的 图 形 
然后 程序 将 在 DOS 框 中 显示 如 下 内 容 : 


Type 0 <return>> to 忆 xit 


Type 1 <Tretutn>> to continue 


当 用 户 键 人 1 后 ， 程 序 将 显示 以 下 计算 结果 ， 


MATLAB cotmputed the fcollowing distances : 
titne 《s) 出 stance 《my) 

1. 00 -4. 90 

2.00 -19. 6 

3.00 -44, 1 

4.00 -78. 革 

5. 00 -123. 
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6.00 -176. 
7. 00 -240， 
8. 00 -314. 
9. 00 -397. 
10.0 -490， 


最 后 程序 将 在 释放 内 存 ， 并 关闭 MATELAB 引擎 后 终止 运 行 。 


6.2 MATLAB 引擎 程序 的 建立 和 调试 


在 本 节 中 ,我们 将 分 别 基 于 C 语言 和 FOTRAN 语言 ,对 MATLAEB 引擎 程序 的 建立 
和 调试 方法 进行 介绍 ， 并 给 出 直接 在 Microseft VC 十 十 6.0 集成 环境 和 Microsoft Foer- 
tran PowerStation 集成 环境 中 建立 和 调试 MATLAEB 引擎 程序 的 方法 。 


6.2.1 CC 语言 MATLAB 引 敬 程序 的 建立 和 调试 


1.C 语言 MATLAB 引擎 程序 的 建立 


在 indows 操作 杀 统 上 ，C 语言 MATLAB 引擎 程序 的 建立 极为 简单 ,用户 在 编写 
好 海 程序 后 , 只 需 在 MATLAB 命令 提示 符 下 键 人 命令 mex 并 辅 以 参数 -f 和 相应 的 选项 
文件 以 及 需要 编译 的 源 程序 名 即 可 ， 格 式 如 下 ， 

mex -f <<matlab>>NbinNotbtslenayae bat 万 zerazae ,ec 
其 中 optsPyename. bat 为 与 用 户 系 统 中 C 语言 编译 器 相对 应 的 选项 文件 名 ，.Pererre.c 
为 用 户 编写 的 MATLAB 引 敬 程序 的 源 文件 和 名， 参数 -f 的 含义 为 使 用 指定 的 选项 文件 对 
.Pilenamaesec 进行 编译 。 关 于 选项 文件 的 选择 , 读 老 可 以 参见 本 书 的 第 2. 4. 1 节 。 若 引擎 程 
序 编译 成 功 , mex 命令 将 不 返回 任何 信息 , 直接 回 到 MATLAB 命令 提示 符 下 , 否则 将 给 
出 一 定 的 错误 原因 。 


2.C 语言 MATLAB 引擎 程序 的 调试 


C 语言 MATLAB 引擎 程序 在 编译 链接 通过 后 ， 并 不 意味 着 已 经 完全 没有 错误 ， 这 一 点 
对 于 有 经 验 的 程序 员 来 说 是 显而易见 的 , 如 果 程 序 在 运行 时 发 生 错 误 , 最 简单 直接 的 查 错 方法 
就 是 调试 (DEBUG) ， 在 一 般 的 应 用 程序 编制 过 程 中 ， 这 是 一 个 必 不 可 少 的 步 又 。 下 面 我 们 
以 Microsoft VC 十 十 6. 0 为 例 ， 对 f 语言 MATLAB 引擎 程序 的 调试 进行 讲解 。 

从 大 体 上 整个 过 程 可 以 分 为 两 步 ， 首先 开启 集成 编译 环境 ， 选 择 需 要 调试 的 MAT- 
LAB 引擎 程序 的 执行 文件 , 将 其 调 人 到 集成 环境 中 , 这 时 VC 将 为 其 创建 一 个 工作 空间 ! 
其 次 选择 MATLAB 引擎 程序 的 源 文 件 , 将 其 调 人 到 当前 工程 中 .至 此 就 完成 了 全 部 的 设 
置 工作 ， 接 下 来 就 可 以 在 程序 中 设置 断 点 进行 调试 了 。 关 于 调试 器 的 使 用 ， 请 读者 自行 
人 参见 相关 调试 器 的 联机 帮助 

这 里 必须 非常 注意 一 点 ， 如 果 希 望 对 一 个 C 语言 MATLAB 引擎 程序 进行 调试 ， 那 
么 在 使 用 mex 命令 进行 编译 时 ， 必 须 同时 加 入 命令 参数 -g ， 格 式 如 下 : 

mex -多 二 <<matlab>N\binNopis 疡 eraazzze bat .六 ZezzazztE-C 
其 中 参数 -g 的 含义 为 告诉 编译 器 在 编译 链接 程序 时 包含 调试 信息 ， 否 则 程序 将 无 法 调 
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试 。 强 询 建 议 用 户 在 首次 调试 程序 时 使 用 -g 参数 ， 
3. Microsoft VC 十 十 6. 0 集成 环境 中 MATLAB 引擎 程序 的 建立 和 调试 


习惯 了 使 用 各 种 集成 环境 的 读者 ， 可 能 会 觉得 MATLAB 提供 的 这 种 程序 开发 方法 
非常 的 不 方便 .建立 一 个 MATLAB 引擎 程序 , 首先 必须 在 某 个 编辑 器 中 进行 源 代码 的 编 
写 , 然后 存盘 后 回 到 MATLAB 的 工作 环境 中 进行 编译 , 若 发 现 错误 , 则 必须 回 到 原来 的 
文件 编辑 器 ， 按 照 MATALB 的 错误 提示 ， 逐 行 地 对 源 代 码 进行 查 错 修改 ， 之 后 再 回 到 
MATLAEB 的 工作 环境 中 进行 编译 ， 如 此 往复 ,直至 程序 没有 错误 为 止 ， 一 个 MATLAB 
引擎 程序 才 宣告 完成 。 整 个 过 程 需要 来 回 地 在 文件 编辑 器 和 MATLAB 工作 环境 之 间 切 
换 ， 非 常 不 方便 ， 而 且 过 程 中 还 没有 加 人 调试 步骤 ， 否 则 将 更 加 麻烦 。 

为 了 方便 读者 ,我 们 将 给 出 一 种 在 Microsoft VC 十 十 6. 0 你 成 环境 中 的 建立 和 调试 
MATLAB 引擎 程序 的 方法 ， 其 基本 步 观 如 下 ， 

第 一 步 ， 启 动 Microsoft VC 十 十 6. 0 集成 环境 ， 选 择 File 下 拉 式 菜单 中 的 New 选 
项 ， 这 时 将 弹出 如 图 6. 5 所 示 的 对 话 框 ， 用 户 可 以 选择 其 中 三 种 类 型 的 应 用 程序 创建 工 
程 ， 分 别 为 MFC AppWizard (exe)，Win32 Appjication 和 Win32 console Application， 
为 了 简便 起 见 ， 我 们 以 机 in32 console Application 为 例 进 行 说 明 。 选 择 下 inp32 console 
Application 项 目 ， 并 在 Proiect name 编辑 框 中 输入 项 目 名 ， 并 点 击 OK 按钮 ; 
Fiee -Pieds | Wepeecre | petDecomeate | 人 


1， 
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图 6.5 VC 二 十 6.0 File New 对 话 杠 


第 二 步 ， 完 成 以 上 操作 后 ，VC 十 十 6. 0 编译 器 将 弹出 如 图 6. 6 所 示 的 对 话 框 ， 提 示 
用 户 选 择 创建 in32 console Application 程序 的 类 型 ， 这 里 我 们 选择 其 中 的 最 为 简单 的 
类 型 An Empty project， 然 后 选择 Finish 按钮 ， 创 建 该 项 目 。 

第 三 步 ， 在 项 目 工程 创建 完毕 之 后 选择 下 拉 式 菜单 Tools 中 的 东单 项 Options， 将 
弹出 ODptions 对 话 框 ， 选择 其 中 的 Ihrectories 属性 页 ， 如 图 6. 7 斯 示 ， 在 其 中 的 Show di- 
rectories for 下 拉 式 选项 框 中 分 别 选 择 Include Files 和 Library Files, 在 下 部 的 编辑 框 中 
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图 6.6 到 in32 console Application 程序 的 类 型 选择 对 话 杠 
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图 6.7 Options Directorties 属性 页 


输入 以 二 路径， 
MATILAB 根 目 录 NEXTERNNINCLUDE 
MATLAB 根 目 录 NEXTERNNLIB 


然后 选择 OK 按钮 
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第 四 步 , 在 DOS 命令 框 状态 下 , 进入 用 户 安装 Microsoft VC 十 十 6.0 的 目录 , 如 d， 
NPogram filesNMicrosoft Visual StudioNVC98， 并 且 进 人 该 目录 下 的 子 目 录 N\hbin,， 按 下 面 
的 格式 运行 该 目录 下 的 命令 lihb， 

lib /def ，%%MATLAB 上 NexternNincludeNlibmx. def /machine，ix86 /OUT:， LIB _ 
NAME1.lib /NOLOGO 

lib /def ，%MATLAEB%NexternNincludeNibeng. def /machine: ix86 /OUT: LDB_ 
NAME2,. lib /NOLOGO 

lib /def，%MATLABW%NexternNincludeNibmat. def /machine:， ix86 /DODUT:， LIB _ 
NAME3.lib /NOLOGO 

执行 完 这 三 条 命令 后 ， 用 户 可 以 得 到 三 个 静态 链接 库 文件 ,分 别 为 LIB _ 
NAME1.lib、LIB_NAME2.lib 和 LIB__NAME3.lib。 命 令 中 %MATLAB% 代 表 本 机 上 
安装 MATLAB 的 根 目录 , 在 执行 这 些 命令 的 过 程 中 , 必须 加 以 替换 , 如 D: NMATLABi; 

这 里 可 以 明确 一 点 ， 一 旦 三 个 静态 链接 库 文 件 生成 后 ， 就 可 以 反复 使 用 ， 而 无 须 对 
每 一 个 项 目 进 行 重新 建立 ; 

第 五 步 ， 选 择 下 拉 式 荣 单 Project 中 的 荣 单项 Add To Project 盖 >>Files 将 第 四 步 中 
生成 的 三 个 lib 库 文件 添加 到 当前 项 目 中 , 同时 将 用 户 编写 的 MATLAB 引擎 程序 的 源 文 
件 也 添加 到 当前 项 目 中 。 

当 完 成 了 以 上 五 步 工 作 之 后 ， 用 户 就 可 以 在 VC 十 十 中 对 MATLAB 引擎 程序 进行 
编译 和 调试 了 。 对 于 MEFC AppWizard (exe) 和 Win32 Application 类 型 的 MATLAB 引 
擎 程序 ， 步 双 大 致 相同 。 


6 和 2.2 FORTRAN 语言 MATLAB 引 获 程序 的 建立 和 调试 


1.FORTRAN 语言 MATLAB 引擎 程序 的 建立 


在 Windows 操作 系统 上 ，FORTRAN 语言 MATLAB 引擎 程序 的 建立 与 C 语言 
MATLAB 引擎 程序 的 建立 过 程 极 为 相似 。 用 户 在 编写 好 源 程 序 后 , 只 需 在 MATLABH 命 
令 提 示 符 下 键入 命令 mex 并 辅 以 参数 -f 和 相应 的 选项 文件 以 及 需要 编译 的 源 程 序 名 即 
可 ， 格 式 如 下 ， 

mex -f <matlab>NbinNopts 户 iexraxae. bat 太 1enazzte 
惟一 的 不 同 就 是 命令 中 optsjiiename. bat 为 与 用 户 系 统 中 FORTRAN 语言 编译 器 相对 
应 的 选项 文件 名 ,Fizename.f 为 用 户 编写 的 MATLAB 引擎 程序 的 源 文件 名 , 参数 - 的 含 
义 为 使 用 指定 的 选项 文件 对 .Aienarne.f 进行 编译 。 关 于 选项 文件 的 选择 ， 读者 可 以 参见 
本 书 的 第 2. 4.1 节 ,。 车 引擎 程序 编译 成 功 , mex 命令 将 不 返回 任何 信息 ， 直接 回 到 MAT- 
LAB 命令 提示 符 下 ， 和 否则 将 给 出 一 定 的 错误 原因 。 


2.FORTRAN 语言 MATLAB 引擎 程序 的 调试 


与 C 语言 MATLAB 引擎 程序 类 似 , FORTRAN 语言 MATLAB 引擎 程序 在 编译 链 
接 通 过 后 , 并 不 意味 着 已 经 完全 没有 错误 , 同样 需要 一 个 调试 过 程 。 下 面 我 们 以 Micresoft 
Fortran PowerStation 为 例 ， 对 FORTRAN 语言 MATLAB 引擎 程序 的 调试 进行 说 明 。 

整个 调试 过 程 具 体 可 以 分 为 两 步 : 首先 进 和 人 Microsoft Fortran PowerStation 集成 环 
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境 ,选择 下 拉 式 菜单 File 中 的 菜单 项 Open 色 orkspace, 这 时 将 弹出 一 个 文件 选择 对 话 框 ， 
用 户 从 中 选择 希望 调试 的 MATLAB 引擎 程序 的 可 执行 文件 ,将 其 调 人 当前 工作 空间 ! 第 
二 步 ， 选 择 下 拉 式 菜单 File 中 的 菜单 项 Open 将 MATLAB 引擎 程序 的 狐 程 序 调 人 工作 
空间 。 至 此 就 完成 了 全 部 的 设置 工作 ， 接 下 来 就 可 以 在 程序 中 设置 断 点 进行 调试 了 。 关 
于 调试 器 的 使 用 ， 请 读者 自行 参见 相关 调试 器 的 联机 帮助 。 
这 里 同样 必须 非常 注意 一 点 ,如 果 希 望 对 一 个 FORTRAN 语言 MATLAB 引擎 程序 
进行 调试 ， 那 么 在 使 用 mex 命令 进行 编译 时 ， 必 须 同 时 加 人 命令 参数 -5， 格 式 如 下 : 
mex -g 二 <matlab>>\binopts 记 emaxae bat . 户 Ferazzte-c 
其 中 参数 -g 的 含义 为 告诉 编译 器 在 编译 链接 程序 时 包含 调试 信息 ， 否 则 程序 将 无 法 调 
试 。 强 烈 建 议 用 户 在 首次 调试 程序 时 使 用 -g 参数 。 


3. Mierosoft Fortran PowerStation 集成 环境 MATLAB 引擎 程序 的 建立 和 调试 


出 于 同样 的 目的, 即 为 了 简化 整个 FORTRAN 语言 MATILAB 引擎 程序 的 建立 和 调 
试 过 程 , 我 们 将 给 出 一 种 在 Microsoft Fortran PowerStation 集成 环境 中 完成 整个 程序 纺 
译 和 调试 过 程 的 方法 。 其 具体 步 又 如 下 ， 

第 一 步 ， 进 人 Microsoft Fortran PowerStation 集成 环境 ， 从 下 拉 式 菜单 File 选取 
Nevw 菜单 项 ， 系 统 将 弹出 一 个 如 图 6.8 所 示 的 选项 框 ， 选 择 其 中 的 “Project 
机 orkspace” 项 ， 并 点 击 OK 按钮 ， 用 于 创建 一 个 新 的 项 目 空 间 ; 







Resource Script 


Resource Termplate 翔 elp 


6.8 ”New 选项 杠 
第 二 步 ， 在 关闭 New 选项 框 之 后 ， 系 统 将 弹出 New Projeet Workspace 选项 框 ， 如 
加 6. 9 所 示 , 用 户 可 以 选择 其 中 多 种 类 型 的 项 目 用 于 创建 MATLAB 引擎 程序 , 例如 可 以 
为 Application 或 Console Application， 也 可 以 为 QuickWin Application 或 Standard 
Graphics Application ,为 了 说 明 方 便 ,这 里 我 们 使 用 Console Application 类 型 点 取 Type 
选项 框 中 的 Consele Application 项 ， 并 在 Name 编辑 框 中 输入 项 目 名 字 后 ， 单 击 Create 


按钮 ， 创 建 项 目 ; 
第 三 步 , 在 项 目 工程 创建 完毕 之 后 ， 选 择 下 拉 式 菜单 Tools 中 的 菜单 项 Options, 将 
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6.9 New Project 柚 orkspace 选项 框 


Editor | Tabs | Debug | Compatihitty Directeries | Workspace | 二 





Elatform: Show directories for 


fwna3z 下 [uaray 合 志 $ | 





ancel | Help | 
6. 10 Options 对 话 框 

弹出 Options 对 话 框 ， 选 择 其 中 的 Directories 属性 页 ， 如 图 6. 10 所 示 ， 在 其 中 的 Show 
directories for 下 拉 式 选项 框 中 分 别 选择 Inelude Files 和 Library Files ， 在 下 部 的 编辑 框 
中 输入 以 下 路 径 ， 

MATLABR 根 目 录 NEXTERNNNCLUDE 

MATLAB 根 目录 NEXTERNNLIB 
然后 选择 OK 按 鱼 ; 

第 四 步 ， 在 DOS 命令 框 状态 下 ,进入 用 户 安装 Microsoft FORTRAN PowerStation 

的 目录 ， 如 d:Nmsdev， 并 且 进 入 该 目录 下 的 子 目 录 \bin， 按 下 面 的 格式 运行 该 目录 下 的 
命令 lib:， 


lib /deft;%MATLAB%Nextern Ninclade N\dimx. def /machinet ix86 OUT: LIB _ NAME1.lib 7/ 
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NOLOGO 

lib /def: WMATLABNextern NihcludeN\dfmat def /machine ix86 OUT:，LIB NAME2.lib / 
NOLOGO 

lib /def :%MATILAB%Nextern Ninclude Ndieng, def /machinetix86 /OUT: LIB _NAME3.1]ib 7/ 
NOLOGO 


以 产生 三 个 分 别名 为 LIB _NAME1.lib, LIB _NAME2.lib 和 LZ _NAME3.lib 的 静态 
链接 库 文件 ,其 中 %MATLAB 多 表示 用 户 安装 MATLAB 的 根 目 录 ， 如 d， Nmatiab, 一 
且 库 文件 成 功 生 成 后 ,可 以 应 用 在 所 有 的 MATLAB 引擎 程序 的 工程 之 中 , 而 无 须 重 复生 
成 ; 

第 五 步 , 选择 下 拉 式 菜单 msert 的 菜单 项 Files into Project, 选择 库 文 件 第 四 步 中 生 
成 的 三 个 lib 文件 , 将 它们 芋 入 到 当前 的 工程 中 , 同时 选择 用 户 的 MATLAB 引擎 程序 的 
源 文 件 ， 将 其 也 庶 人 到 当前 的 工程 中 。 

完成 了 以 上 五 步 工作 之 后 , 用 户 就 可 以 在 Microsoft Fortran PowerStation 集成 环境 
中 对 MATLAB 引擎 程序 进行 编译 和 调试 了 . 对 于 其 他 项 目 类 型 的 MATLAEB 引擎 程序 ， 
步骤 大 致 相同 。 


6.3 MATLAB 引擎 函数 


本 节 将 分 别 基 于 C 语言 和 FORTRAN 语言 ,对 MATLAB 引擎 函数 库 中 的 画 数 使 用 
进行 说 明 。 


6.3.1 C 语言 引 敬 函 数 的 使 用 说 明 


在 MATLAB 引擎 函数 库 中 , 总 共 提 供 了 13 个 C 语言 的 引擎 函数 , 它们 的 声明 分 别 
如 下 : 


int engClose 〈Engine *# ep) 

it engEvalString 《Engine # ep，const char #string) 
InxArray + engGetArray 〔Engine * ep，const chay #Damec) 
engGetFull (CObsoiete) 

engGetMatrix 〈Obsolete) 

Engine * en&Open 〔consgt char # startcrmd) 

int engOutputBuffer (Engine * ep， char # pint ny》 
int engPutArray (Engine # ep，Cconst ImXArray <IDPp) 
engPutFull (Opsoiete) 

engPutMatrix 《Opbsodete) 

engsSetEvalCallback 〈O5soiete ) 

engSetEvalTimeout 〈Obsoyete) 

engWinInit (OZsofete) 


所 有 这 些 函 数 均 在 头 文件 sngine.h 中 予以 声明 ,在 使 用 它们 时 ， 必 须 对 该 头 文件 进 
行 包 含 。 下 面 我 们 对 这 些 函 数 进行 逐一 说 明 。 
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1.engCjlose 


功 能 : 关闭 MATLAB 引擎 。 
语 法 ，#include "engine.h” 
int engClose(Engine #ep); 

说 ”了 明 , 通 过 该 函数 用 户 可 以 关闭 一 个 已 经 处 于 开启 状态 的 MATLAE 引擎 ,该 郴 数 
在 执行 时 ， 首 先 向 MATELAB 引擎 发 出 一 个 关闭 命令 ， 然 后 断 开 与 MAT- 
LAB 引擎 的 连结 。 若 函数 执行 成 功 将 返回 0， 否则 返回 1。 一 般 来 说 ， 导 致 
函数 执行 失败 的 主要 原因 是 试图 再 次 关闭 一 个 已 经 关闭 的 MATLAB 引擎 。 
该 函数 拥有 一 个 类 型 为 Engine 指针 的 输入 参数 ， 

举例 ， 参 见 6.1.1 节 程 序 engwindemo- c。 


2.engEvalString 


功能: 执行 一 个 用 字符 串 表 示 的 MATLAB 表达 式 。 

语 法 ，#include ”engine.h” 
int engEvalString (Engine # ep，const char # string)# 

说 “” 明 ， 函数 engEvalString 包含 两 个 输 和 参数， 其 中 第 一 个 参数 ep 为 一 个 Engine 
类 型 的 指针 , 第 二 个 参数 string 为 一 个 字符 指针 , 代表 了 一 个 字符 串 , 该 字 
符 应 该 为 一 个 合法 的 MATLAB 表达 式 . 若 该 函数 执行 成 功 将 返回 0, 否 
则 返回 1， 一 般 在 下 列 两 种 情况 下 ， 函 数 将 会 执行 失败 : 第 一 ，MATLAB 
引擎 已 经 关闭 ; 第 二 , 参数 string 所 包含 的 字符 串 为 非法 的 MATLAB 表达 
式 ,。 在 不 同 的 操作 系统 上 , 函数 与 MATLAB 的 通信 方式 也 不 相同 , 例如 在 
UNIX 系统 上 ， 范 数 通过 管道 (pipe) 连结 到 MATLAB 的 stdin 上 ， 向 
MATLAB 输入 命令 ;而 在 Windows 系统 上 ， 函 数 与 MATLAEB 的 通行 则 
是 通过 ActiveX 来 完成 的 。 

举例 ,参见 6.1.1 节 程序 engwindemo-e。 


3. engGetAArray 


功能, 从 MATLAB 的 工作 空间 中 获取 一 个 变量 。 

语 ”法 ，#inctude "engine.h” 
mIXArray x engGetArray 〔〈Engine +#ep，const char xDname)》; 

说 “有 明 ; 在 使 用 函数 engGetArray 时 必须 提供 两 个 输入 参数 , 一 个 为 指向 MATLAB 
引擎 的 指针 变量 ep， 另 一 个 为 指向 某 个 字符 串 的 字符 指针 name。 通过 这 个 
函 教 ， 用 户 可 以 从 MATLAB 的 工作 空间 中 获取 使 用 参数 name 指定 的 
mxAray 结构 体 的 内 容 , 同时 复制 给 一 个 新 分 配 mxArray 结构 体 ， 并 将 该 结 
构 体 返回 给 用 户 。 若 该 函数 执行 成 功 ， 将 得 到 一 个 mxArray 结构 体 对 象 的 
指针 , 否则 返回 值 为 NULL 。 一 般 情况 下 ， 导致 函数 执行 失 玫 的 原因 主要 有 
两 种 ,第 一 为 在 MATLAB 工作 空间 中 不 存在 指定 名 字 的 变量 ;第 二 为 在 V4 
模式 下 使 用 了 MATLAB 4.X 版 本 所 不 支持 的 数据 类 型 。 
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举 例 ; 参见 6.1.1 节 程 序 engwindemo. ce。 
4. engGetFull (Oz5sotete) 


说 有 明 : 郴 数 engGetFull 为 一 个 过 时 的 函数 ,在 MATLAB 5.X 版 本 的 引擎 程序 中 
不 应 被 继续 使 用 ， 其 功能 可 以 通过 组 合 使 用 引擎 函数 engGetArray 和 mx- 
画 数 mxGetM、mxGetN 、mxGetPr 、tmxGetPi 来 完成 ， 用 户 可 以 使 用 它们 
在 自己 的 引 歼 程序 中 自 定 义 一 个 同名 函数 , 用 于 完成 同样 的 功能 , 源 代 码 如 
下 ， 


int eng(7etFull ( 
Engine * ep，/* 引擎 指针 * 7/ 
cbar x narme，/* 满 mxArray 结构 体 对 象 名 * / 
int *ms yx 返回 的 阵列 行 数 * 7/ 
int xn yx# 返回 的 阵列 的 列 数 * 7/ 
double * + pr /* 返回 的 阵列 实数 部 分 的 指针 * / 
double * #pi y* 返回 的 阵列 虚数 部 分 的 指针 = / 
放 
{ 


ImX 生 rray 关 Ptonat# 


/*# 获取 阵列 的 副本 * 7 


pmat 一 engGetArray (epP，name7); 


As* 送 断 函数 engGetArray 是 否 执行 成 功 * / 
让 《1 pmat》 

returmn (1》; 

让 (1 mxIsDouble 《pmat)7) 

{ 


mxDesttoyArtay 《Pmat)7i; 
return 《174 
} 
/sw 获取 各 返回 值 * / 
xm 一 InxXGetM (ptmat)5 
xD 一 tnxGetN (pmat74 
x BIT 一 InxCGetPr (ptmat); 
x Pi 一 txGetPi (pmat); 
/+# 置 空 实数 和 虚数 部 分 的 指针 ， 以 便于 释放 * / 
tmxSetpPr 《pmat，NULL》; 
mxSetPi 〈praat，NULILD); 
TImXxDestroyAtray 〈《Pmat》; 
return 〔07; 
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为 了 与 已 有 的 程序 代码 保持 兼容 , 用 户 可 以 在 使 用 mex 命令 对 这 些 程序 进 
行 编译 时 使 用 -V4t 命令 参数 。 


5. engGetMatrix 〈 〇 sotete) 


说 ”了 明 : 函数 engGetMatrix 为 一 个 过 时 的 引擎 函数 , 在 MATLAB 5.X 版 本 的 引擎 
程序 中 不 应 被 继续 使 用 ， 其 功能 可 以 通过 新 的 引擎 画 数 engGetArray 所 取 
代 。 为 了 与 已 有 的 程序 代码 保持 兼容 ， 用 户 可 以 在 使 用 mex 命令 对 这 些 程 
序 进 行 编 译 时 使 用 -V4 命令 参数 。 


6. engODPpen 


功能; 启动 MATLAB 引擎 。 

请 ” 法， 并 include “engine.h” 
Engine * engOPpen 〈const char # startcrmd7 1 

说 ”了 明 , 通过 函数 engOpen, 用 户 可 以 在 自己 的 应 用 程序 中 , 在 后 台 启 动 一 个 MAT- 
LAB 进程 , 用 于 完成 一 定 的 计算 任务 ， 其 返回 值 为 一 个 Engine 类 型 的 指针 
变量 ， 若 函数 执行 成 功 将 返回 开启 的 MATLAB 引擎 的 指针 ， 否 则 为 
NULL, 其 输入 参数 为 一 个 字符 指针 startcmd， 函数 通过 使 用 该 输入 参数 指 
向 的 字符 串 所 包含 的 命令 与 MATLAB 建立 一 个 连结 ， 这 里 值得 注意 的 是 
在 Windows 操作 系统 上 , 该 字符 指针 必须 为 NULL.。 在 UNIX 操作 系统 上 ， 
如 果 输 人 参数 startemd 为 NULL 或 者 为 空 字符 训 ， 则 函数 直接 使 用 命令 
matlab 启动 本 机 上 的 MATLABi 如 果 输 入 参数 startcmd 为 一 个 主机 名 ，, 函 
数 则 将 该 主机 名 鞭 人 到 一 个 更 大 的 字符 串 


咱 sh hosgtname WA/binycsh -ec Jsetenv DISPLAYAN 


hostname :05 matlab 


中 , 用 于 启动 指定 主机 上 的 MATLAB; 如 果 输 人 参数 startcmdq 为 其 他 一 些 
字符 串 , 如 包含 了 空格 或 者 其 他 一 些 非 字符 非 数 字 的 符号 , 这 时 函数 将 对 输 
人 参数 startcmd 不 予 理 桌 , 直接 启动 MATLAB。 在 UINX 系统 上 函数 en- 
gOpen 的 执行 过 程 囊 以 分 为 如 下 步骤 ， 

。 创建 两 个 管道 ! 

。 派 生 一 个 进程 ， 并 且 通 过 两 个 管道 建立 MATLAB 和 引擎 程序 间 的 

通信 ; 

， 执 行 命令 ， 运 行 MATLAB。 
在 Windows 操作 系统 上 ， 相对 简单 许多 ， 函 数 开 启 一 个 ActiveX 通道 与 
MATLAB 进行 通信 。 

举例 ， 和 参见 6.1.1 节 程 序 engwindemo.c。 


7. engOutputBufier 
功能 ,确定 存放 MATLAB 输出 结果 的 缓冲 区 域 。 
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语 法， 并 include "engine.hy 
int eng(OutputBuffer (Engine #ep，char #+Ppy，int mn) 

说 ” 明 , 通 过 引擎 函数 engOutputBuffer, 用 户 可 以 为 由 引擎 指针 ep 所 指向 的 引擎 设 
置 一 个 输出 缓冲 区 , 将 MATLAB 输出 到 屏幕 上 的 内 容 保 存在 其 中 , 其 长 度 
可 以 由 参数 n 确定 , 位 置 由 字符 指针 p 来 确定 。 在 默认 情况 下 , 通过 引擎 材 
数 engEvalString 所 执行 的 所 有 的 MATLAB 操作 所 产生 的 屏 攻 输出 均 被 扼 
弃 , 而 函数 engOutputBuffer 则 告诉 所 有 的 后 继 engEvalString 操作 , 将 屏幕 
输出 保留 到 缓冲 p 中 。 

举 例 ， 参见 6.1.1 节 程 序 engwindemo.c。 


8. engPutArray 


功能 ,将 mxArray 结构 体 类 型 变量 输送 到 MATLAB 的 工作 空间 中 。 

语 法，#include “engine.h” 
int engPutArray (Engine #ep，const mxXArray <tmnp)5 

说 ”了 明 ; 引擎 函数 engPutArray 包含 两 个 输入 参数 , 分 别 为 引擎 指针 ep 和 tnxArray 
结构 体 对 象 指 针 。 执 行 该 函数 ， 人 允许 用 户 将 一 个 mxArray 结构 体 类 型 的 变 
量 输送 到 引擎 ep 中 , 如 果 在 当前 程序 的 工作 空间 中 不 存在 所 指定 的 mxAr- 
ray 结构 体 ， 函 数 会 自动 创建 。 如 果 函 数 执行 成 功 ， 返 回 值 为 0， 否 则 为 1 。 

举例 和 从 见 6. 1.1 节 程 序 engwindemo. ec。 


9. engPutFull 〈《O5sorete) 


说 ”有 明 , 数 engPutFull 为 一 个 过 时 的 函数 , 在 MATLAB 5.X 版 本 的 引擎 程序 中 
不 应 被 继续 使 用 ， 其 功能 可 以 通过 组 合 使 用 引擎 函数 engPutArray 和 mx- 
函数 mxCreateDoubleMatrix 来 完成 , 用 户 可 以 使 用 它们 在 自己 的 引擎 程序 
中 自 定 义 一 个 同名 函数 ， 用 于 完成 同样 的 功能 ， 源 代码 如 下 ， 


int engPutFull 〈《 
Engine * ep，/x 引擎 指针 * / 
char x name， yx 阵列 名 字 * 7 
int m，/x* 阵列 行 数 * 7/ 
int n， /+# 阵列 列 数 * 7 
double * pr，/* 实 部 指针 * / 
double *pi /* 嵌 部 指针 * / 


.tnX 太 Tray +# Pats 

int retval3 

/x# 构造 一 个 双 精 度 类 型 的 复数 矩阵 * / 

pmat 一 rnxCreateDoubljeMatrixr 〈0，0， rmXCOMPLEX71 
mxSetName 〔Praat ，marmne7# 

mxsSetM (pmat，m)75 
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ImxSetN (pmat，Dn7# 

InxSetPr 《pmat，Pr7# 

mIXSetPi 《pmat，pi)， 

7x 问 MATILAB 输出 *7 

Tetval 一 engPutArray (ep ，pmat?》1 


/+# 是 空 实 数 和 上 乔 数 部 分 的 指针 ， 以 便于 释放 * / 

tmxSetPr (pinat，NULL》+ 

mxsetPi 〈bpmat，NULL): 

ImXDesttoyArTay 《Pmat)# 

retutn 《retyal]y 

} 

为 了 与 已 有 的 程序 代码 保持 兼容 ,用 户 可 以 在 使 用 mex 命令 对 这 些 程序 进 
行 编译 时 使 用 一 V4 命令 参数 。 


10. engPutMatrix 【Opsotete) 


说 明 : 函数 engPutMatrix 为 一 个 过 时 的 引擎 画 数 , 在 MATLAB 5.X 版 本 的 引擎 
程序 中 不 应 被 继续 使 用 ， 其 功能 可 以 通过 新 的 引 束 函数 engPutArray 所 取 
代 。 为 了 与 已 有 的 程序 代码 保持 兼容 ， 用 户 可 以 在 使 用 mex 命令 对 这 些 程 
序 进行 编译 时 使 用 一 V4 命令 参数 。 


11.engSetEvalCallback 〈O5sorfete) 


说 ” 明 : 函 数 engSetEvalCallback 为 一 个 过 时 的 引擎 函数 ,在 MATLAB 5.X 版 本 的 
引擎 程序 中 不 应 被 继续 使 用 。 


12. engSetEvalTimeout 《Opsoiete) 


说 ”了 明 , 函数 engSetEvalTimeonut 为 一 个 过 时 的 引擎 函数 ,在 MATLAB 5.X 版 本 的 
引擎 程序 中 不 应 被 继续 使 用 。 


13.engWinInit (O5soiete) 


说 了 明 , 函数 engWinlnit 为 一 个 过 时 的 引擎 函数 , 在 MATLAB 5.X 版 本 的 引擎 程 
序 中 不 应 被 继续 使 用 。 


6.3.2 FORTRAN 诺言 引 敬 函数 的 使 用 说 明 


在 MATLAB 引擎 函数 库 中 , 总 共 提 供 了 8 个 FORTRAN 语言 的 引擎 函数 ,它们 的 
声明 分 别 如 下 ， 


integer * 4 function engClose (ep) 

integer * 4 function engEvalString (ep，command) 

integer * 4 funcetion engGetFull (ep，name，m， ny Pr， Pi) 
integer + 4 function engGetMatrix 《ep ，namey》 

integer x* 4 funetion engOpen 〈startcmd) 
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integer # 4 function engOutputBuffer (ep，b》 
integer 关 芭 funcrion engPutFull 《ep， name mn pr，pt 
integer # 4 funetion engPutMatrixz (ep ，mp) 


所 有 这 些 函 数 均 被 声明 为 函数 子 程序 ， 如 果 希 望 使 用 它们 的 返回 值 ， 那 么 在 使 用 前 
必须 进行 类 型 声明 。 下 面 我 们 对 这 些 函 数 进行 逐一 说 明 。 


1.engClose 


功 能 : 关闭 MATLAB 引擎 。 

语 法 : integerx4 function engClose (ep) 
inhteger # 4 ep 

说 ” 明 : 通过 该 函数 , 用 户 可 以 关闭 一 个 已 经 处 于 开启 状态 的 MATLAB 引擎 , 该 函 
数 在 执行 时 , 首先 向 MATLAB 引擎 发 出 一 个 关闭 命令 , 然后 断 开 与 MAT- 
LAB 引擎 的 连结 。 若 画 数 执行 成 功 将 返回 0， 否则 返回 1。 一 般 来 说 ， 导 致 
函数 执行 失败 的 主要 原因 是 试图 再 次 关闭 一 个 已 经 关闭 的 MATLAB 引 
擎 。 该 函数 拥有 一 个 类 型 为 Engine 指针 的 输入 参数 。 

举例 ,参见 6.1. 2 节 程 序 fengdemo.f。 


2.engEvalString 
功能， 执行 一 个 用 字符 串 表 示 的 MATLAB 表达 式 。 


请 ”法 integer * 4 function engEvalString (ep，comrmand) 
integet # 二 ep 
character t+ 《:# )》 command 

说 ” 明 :; 函数 engEvalString 包含 两 个 输 人 参数， 其 中 第 一 个 参数 ep 为 一 个 Engine 
类 型 的 指针 , 第 二 个 参数 string 为 一 个 字符 指针 , 代表 了 一 个 字符 串 , 该 字 
符 串 应 该 为 一 个 合法 的 MATLAEB 表达 式 。 若 该 函数 执行 成 功 将 返回 0, 否 
则 返回 1， 一 般 在 下 列 两 种 情况 下 ， 函 雪 将 会 执行 失败 ， 第 一 ，MATLAB 
引擎 已 经 关闭 ; 第 二 , 参数 string 所 包含 的 字符 襄 为 非法 的 MATLAB 表达 
式 。 在 不 同 的 操作 系统 上 . 函数 与 MATLAB 的 通信 方式 也 不 相同 , 例如 在 
UNIX 系统 上 ， 函 教 通过 管道 (pipe) 连结 到 MATLAB 的 stdin 上 上， 向 
MATLAB 输入 命令 ;而 在 Windows 系统 上 ， 函 数 与 MATLAB 的 通行 则 
是 通过 ActiveX 来 完成 的 。 

举 例 ， 参 见 6.1.2 节 程 序 fengdemo.f。 

3. engGetFuli 

功能 ， 从 引擎 中 读 取 一 个 满 存 储 类 型 的 mxArray 结构 体 。 

语法 ，integer * 4 function engGetFull (ep，narme， m，n，Ppr， pi) 
integet x+ 4 ep，mm， mn， pr，Ppi 


character x 〔: 关 )》 natrne 


说 ” 明 ， 函 数 engGetFull 拥有 六 个 输入 参数 ， 含 义 分 别 如 下 ， 
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"ep 为 引擎 指针 

"name 为 用 户 希 望 读 取 的 mxArray 结构 体 的 名 字 

“am 为 返回 的 指定 的 mxArray 结构 体 的 行 数 

*。n 为 返回 的 指定 的 mxArray 结构 体 的 列 数 

。pr 为 返回 的 指定 的 mxArray 结构 体 的 实数 部 分 的 指针 

。Ppi 为 返回 的 指定 的 mxArray 结构 体 的 虚数 部 分 的 指针 
如 果 该 函数 执行 成 功 ,返回 值 为 0， 和 否则 为 1。 函数 在 执行 过 程 中 ,通过 使 
用 mx- 函 数 mxCalloc 为 阵列 的 实数 和 虚数 部 分 分 配 内 存 , 用 户 在 使 用 完毕 
后 ， 必 须 使 用 mx- 函数 mxFree 对 这 些 内 存 进 行 释放 。 此 外 还 必须 明确 一 
上 点， 函数 engGetFull 只 能 对 存储 类 型 为 满 的 阵列 进行 操作 ， 
该 函数 在 后 续 的 版 本 中 ， 将 被 列 为 过 时 的 函数 ， 希 望 用 户 尽 可 能 地 不 要 使 
用 该 函数 ， 可 以 适 过 组 合 使 用 引擎 函数 engGetMatriz 和 mx- 困 数 
mxGetM、mxGetN、mxGetPr、mxGetPi 来 完成 该 函数 的 功能 。 


4. engGetMatrix 


功 能 ,从 MATLAB 引擎 的 工作 空间 中 获取 mxArray 结构 体 类 型 变量 ， 

语 法 ，integer *x 4 function engGetMatrix 《ep，name) 
integeTr # 二 ep 
character #tk 【《# ) name 

说 “” 明 , 通过 引擎 函数 engGetMatrixz， 用 户 可 以 从 MATLAB 引擎 的 工作 空间 中 获 
取 mxArray 结构 体 类 型 变量 , 输入 参数 ep 用 于 指定 MATLAB 引擎 , 为 一 
个 指针 变量 , name 用 于 确定 希望 读 取 的 mxArray 结构 体 的 名 字 , 为 字符 串 
变量 。 函数 执行 成 功 , 将 返回 一 个 指向 新 分 配 的 mxAray 结构 体 对 象 , 否则 
返回 0。 这 里 必须 非常 注意 一 点 ， 在 退出 引擎 程序 前 必须 对 新 分 配 的 
mxAray 结构 体 对 象 进行 释放 操作 。 

举 例 ， 和 参见 6.1. 2 节 程 序 fengdemo.f。 


5. engOpen 


功能 ,开启 一 个 MATLAB 引擎 。 

语 法 ，integer* 4 function engOpen 《statrtcmd ) 
integer # 4 ep 
character t 《+# ) stattcmd 

说 “ 明 , 通过 函数 engOpen, 用 户 可 以 在 自己 的 应 用 程序 中 , 在 后 台 启动 一 个 MAT- 
LAB 进程 , 用 于 完成 一 定 的 计算 任务 ,其 返回 值 为 一 个 Engine 类 型 的 指针 
变量 , 若 函 数 执行 成 功 将 返回 开启 的 MATLAB 引擎 的 指针 ， 否 则 为 0， 其 
输入 参数 为 一 个 字符 串 变 量 startcmd， 函数 通过 使 用 该 字符 串 所 包含 的 命 
令 与 MATLAB 建立 一 个 连结 。 在 UNIX 操作 系统 上 ， 如 果 输 入 参数 
startemd 为 空 字符 串 ， 则 范 数 直接 使 用 命令 matlab 启动 本 机 上 的 MAT- 
LAB; 如 果 输入 参数 startemd 为 一 个 主机 名 ,函数 则 将 该 主机 名 迁 人 到 一 个 
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更 大 的 字符 虽 

条 sh hostnatme Wy/binyecsh -ec 'seteny DISPLAYA 

hostname，0; matlab' 

中 , 用 于 启动 指定 主机 上 的 MATLAB; 如 果 输 人 参数 startcmd 为 其 他 一 些 
字符 串 , 如 包含 了 空格 或 者 其 他 一 些 非 字 符 非 数字 的 符号 , 这 时 本 数 将 对 输 
人 参数 startecmd 不 予 理 眠 ,直接 启动 MATLAB。 在 UINX 系统 上 函数 en- 
gOpen 的 执行 过 程 可 以 分 为 如 下 步骤 ， 

。 创建 两 个 管道 ; 

。 派生 一 个 进程 ， 并 且 通 过 两 个 管道 建立 MATLAB 和 引擎 程序 间 的 

通信 ， 

。 执行 命令 ， 运 行 MATLAB: 
在 Windows 操作 系统 上 ， 相 对 简单 许多 ， 函 数 开 启 一 个 ActiveX 通道 与 
MATLAE 进行 通信 。 

举 例 ， 人 参见 6,1.2 节 程 序 fengdemo,f。 


6. engOutputBuffer 


功 能 ,指定 MATLAB 的 屏幕 输出 缓冲 。 
语法 ，integer* 4 funhction engOutputBuffter 《ep，P) 
integer # 4 ep 
charactet # D DP 
说 “ 明 ; 通 过 引擎 函 数 engOutputBuffer, 用 户 可 以 为 由 引 列 指 针 ep 所 指向 的 引擎 设 
冒 一 个 输出 绥 冲 区 , 将 MATLAB 输出 到 屏幕 上 的 内 容 保存 到 其 中 , 该 缓冲 
区 通过 字符 串 变 量 p 来 指定 。 在 默认 情况 下 ， 通 过 引擎 函 数 engEvalString 
所 执行 的 所 有 的 MATLAB 操作 所 产生 的 屏 幕 输出 均 被 扫 弃 ， 而 函数 en- 
gOutputBuffer 虽 告 诉 所 有 的 后 继 engEvalString 操作 ， 将 屏幕 输出 保留 到 
缓冲 p 中 。 
举例 ,程序 代码 如 下 : 
Program Inaimn 
C 引擎 函数 类 型 声明 及 指针 声明 
integer engODpen，engGetMatrix，mxCreateFull， mxGretPr 
integet ep，T，D，resuit 
C ”相关 变量 声明 
double preciaion time 《10)，dist 《10) 
integer Stat，termp 
data time / 1.0，2.0，3.0，4.0，5.0，6.0，7,.0，8.0: 9.0，10.0 7 
character x 1000 P 
C 引 丈 开启 ， 并 判 类 成 功 与 理 
ep 一 engDpen 《matlab ') 
让 (ep .eq，0) then 


20 
10 
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Write (6，# ) Can't start MATIAB engine: 
atoPp 

endif 

创建 满 第 阵 并 输出 到 MATIAB 引擎 

T = mxCreateFull (1，10，0) 

cali mxSetName (T，'T"》 

call mxCopyReal8ToPtr (titne，txGetPr (T》，10) 

call engPutMatrix 《ep，T》 


程序 段 A 

建立 输出 缓冲 

call engOutputBuffer 《ep，P) 

计算 并 输出 MATLAB 的 显示 

call engEvalString (ep，' 卫 一 ,5.# (-9.8) ,xxT. “2 ) 
print + ，p 


绘图 操作 
call engEvalString (ep，'plot 《T，D)7，) 
cail engEvalString 《ep，'title 《"Position vs，Time”) 》 
call engEvaiString 《ep ，'xlabel (Titme (seconds) 7) 》 
call engEvalString 《ep，!ylabel 〔〈"Position 《meters)*》 ) 
流程 选择 
print * ，'Type 0 <return2> to 下 xit: 
print # ，'Type 1 <retutn> to continue: 
read 【# ， xs ) tetmmp 
i (temp. eq. 0) then 
print # ，/ 卫 XIT 上 | 
stop 
end 让 
关闭 图 形 窗口 
call eng 开 valString (ep，'closej )》 
获取 数据 并 输出 
D 一 engGetMatrix (ep，'D') 
call mxCopyPtrToReal8 (mxGetPr 〈D)，dist，10) 
print yx ，'MATILAB computed the following distances :" 
print #+ ，r titne (gs) distance 《rm) 
de 10 1 一 1，10 
brint 20，time (〈i，dist 《i) 
format ( ，G10.3，Gl10. 3) 


coOTtinue 


帮 放 内 存 并 关闭 引擎 
call mxFreeMatrix 〈T) 
call InxFreeMatrix (result) 
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stat 一 sagClose 《ep》 


stoP 
end 


读者 仔细 阅读 以 上 程序 将 会 发 现 , 该 程序 与 fengdemo.f 最 大 的 差别 在 于 程 
序 段 A。 在 该 程序 段 中 , 程序 为 MATLAB 输出 建立 了 缓冲 ， 并 将 函数 en- 
gEvalString 所 包含 命令 中 的 分 导 去 除 ， 以 使 MATLAB 产生 输出 ， 并 将 组 
冲 p 中 的 内 容 通过 print 输出 到 屏幕 上 .程序 执行 时 将 在 屏幕 上 显示 如 下 内 
容 ， 
D = 
Columns 1] through 7 
-4.9000 -19,.6000 -44,1000 -78.4000 -122.5000 -176， 4000 
-240,. 1000 
Coiumns 8 through 10 
-313. 6000 -396. 9000 -490,. 0000 


Type 0 <rfeturn > te 了 xit 
Type 1 <returfn> to continue 


7.engPutFuli 


功 能 : 向 MATLAB 引擎 写 人 一 个 满 存储 类 型 的 mxArray 结构 体 。 
语法， integer x+ 4 funetion engPutFull (ep ，name，m，n，Pr，Ppi) 
integer xx4 ep，my，n pr，Ppbi 
charactet xx 《<# ) nammne 
说 “” 明 :， 冰 数 engPutFull 拥有 六 个 输 和 人 和 参数， 含义 分 别 如 下 ; 
。ep 为 引擎 指针 
。name 为 用 户 希 望 写 人 的 mxArray 结构 体 的 名 字 
。m 为 用 户 希 望 写 人 的 mxArray 结构 体 的 行 数 
。n 为 用 户 希 望 写 人 的 mxArray 结构 体 的 列 数 
。Ppr 为 用 户 希 望 写 人 的 mxArray 结构 体 的 实数 部 分 的 指针 
。Ppi 为 用 户 希 望 写 人 的 mxArray 结构 体 的 虚数 部 分 的 指针 
如 果 在 引擎 的 工作 空间 中 不 存在 同名 的 mxArray 结构 体 对 象 , 函数 将 创建 
一 个 新 的 mxArray 结构 体 对 象 , 如 果 存 在 , 函数 将 对 盖 原 有 的 mxArray 结 
构 体 对 象 。 此 外 还 必须 明确 一 点 ， 函 数 engPutFull 只 能 对 存储 类 型 为 满 的 
阵列 对 象 进行 操作 。 
该 函数 在 后 续 的 版 本 中 ， 将 被 列 为 过 时 的 函数 ， 希 望 用 户 尽 可 能 地 不 要 使 
用 该 函数 , 厅 以 通过 组 合 使 用 引擎 画 数 engPutMatrix 和 mx- 函 孝 
mxSetM 、mxSetN、mxSetPr、mxSetPi 来 完成 该 函数 的 功能 。 


8.engPutMatrix 


功能 ,向 MATLAB 引擎 写 人 一 个 满 存储 类 型 的 mxArray 结构 体 。 
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语 法 ，integerx4 function engPutMatrix 《ep，mbp) 
inte 多 er # 4 Imp ，ep 

说 ” 明 : 通过 引擎 函数 engPutMatrix， 用 户 可 以 向 MATLAB 引擎 的 工作 空间 中 写 
人 一 个 mxArray 结构 体 类 型 的 变量 ， 输 人 参数 ep 用 于 指定 MATLAB 引 
擎 ， 为 一 个 指针 变量 ，name 用 于 确定 希望 写 人 的 mxArray 结构 体 的 名 字 ， 
为 字符 串 变量 。 如 果 在 引擎 的 王 作 空间 中 不 存在 同名 的 mxArray 结构 体 对 
象 ， 函 数 将 创建 一 个 新 的 mxArray 结构 体 对 象 ， 如 果 存 在 ， 函 数 将 覆盖 原 
有 的 mxArray 结构 体 对 象 。 若 王 数 执行 成 功 , 将 返回 0, 否则 返回 1. 同时 
必须 非常 注意 一 点 ， 在 退出 引擎 程序 前 必须 对 画 数 新 分 配 的 mxAray 结构 
体 对 象 进 行 释放 操作 。 

举 例 ， 和 参见 6.1.2 节 程 序 ftngdemo.f。 


第 7 章 客户 机 /服务 器 应 用 程序 


随 着 Internet 的 广泛 深信 和 应 用 程序 开发 的 模块 化 趋势 , 客户 机 /服务 器 这 种 应 用 程 
序 开发 模式 越 来 越 受 到 人 们 的 重视 , 以 至 于 相当 多 的 软件 都 提供 了 这 方面 的 支持 ,MAT- 
LAB 当然 也 不 例外 。 在 本 章 中 ， 我 们 将 对 MATLAB 这 方面 的 功能 进行 全 面 的 讲解 ， 第 
一 节 主 要 讲述 ActiveX 的 概念 , 第 二 节 则 讲述 MATLAB 对 ActiveX 的 支持 , 第 三 节 将 对 
动态 数据 交换 进行 讲述 。 


7.1 AcetiveX 的 基本 概念 


在 本 节 中 ， 我 们 将 对 ActiveX 术语 的 由 来 以 及 ActiveX 组 件 的 类 型 进行 介绍 。 
7.3.1 AcetiveX 的 诞生 


ActiveX 一 词 最 早 是 由 Microsoft 在 1996 年 3 月 的 Internet 专业 人 员 研 讨 会 〈(Inter- 
net PDC) 上 提出 ， 当 时 ActiveX 指 的 是 大 会 口号 “Activate the Internet”， 公 人 是 一 种 
号 召 而 远 非 具体 的 应 用 程序 开发 技术 和 体系 结构 。 

在 Internet PDC 期 间 ，Microsoft 与 Netscape 针对 Internet Web 浏览 器 市 场 的 控制 
权 展 开 了 面对面 的 交 恬 , 流露 了 对 浏览 器 市 场 的 极 大 兴趣 , 同时 Microsoft 还 展示 了 从 电 
子 存 储 前 端 到 新 型 的 OLE 控件 以 及 虚拟 实 境 交 谈 等 一 系列 软件 和 工具 。 

朋 时 间 , AcetiveX 成 了 Microsoft 的 新 的 企业 口号 , 就 好 像 20 世纪 90 年 代 初 的 OLE 
那样 ,而 且 在 很 短 的 时 间 内 ， 其 含义 就 远 远 超出 了 “Activate the Internet”， 它 成 了 定义 
Web 页 面 到 OLE (Object Linking and Embedding, 对 象 链接 和 骸 人 ) 控件 的 所 有 内 容 的 
核心 术语 。 一 方面 ， 它 意味 着 用 户 可 以 通过 一 系列 的 小 型 的 、 快 速 的、 可 重用 的 组 件 将 
自身 与 Microsoft 、Internet 和 业界 开发 的 新 技术 紧密 相连 , 另 一 方面 , ActiveX 代表 了 一 
种 Internet 和 应 用 程序 集成 的 开发 策略 . 如今, 如 果 哪 一 个 公司 或 产品 在 它们 的 术语 中 没 
有 出 更 Internet 和 ActiveX， 无 论 是 从 外 部 还 是 从 内 部 ， 那么 就 意味 着 它们 落伍 了 。 事实 
上 ， 描述 ActiveX 就 像 试图 描述 什么 是 红色 一 样 , 它 不 是 一 种 技术 或 体系 结构 , 而 是 一 种 
概念 和 潮流 。 


7.1.2 AcetiveX、OLRE 各 Interzset 


ActiveX 和 OLE 从 某 种 意义 上 说 ， 已 经 成 为 同义词 ， 人 们 以 前 所 说 的 OLE 控件 
(OCXs) 现在 已 被 称 为 了 ActiveX 控件 ,DOLE DocObjects 称 为 了 ActiveX 文档 ， 并 且 一 
些 有 关 如 何 实现 OLE 技术 的 文档 已 被 更 新 为 ActiveX 技术 , 而 仅仅 是 更 换 了 OLE 一 词 。 

但 是 事实 上 ， 人 情况 并 非 如 此 的 简单 ，AetiveX 并 不 是 为 了 替换 OLE， 面 是 基于 
COM 小 型 快速 可 重用 组 件 (Component Object Meodel)， 将 它 扩展 为 更 加 适应 Inter- 
net、Intranet、 商 业 应 用 程序 和 家 用 应 用 程序 的 开发 ， 并 且 提 供 了 相应 的 开发 工具 ， 
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7.1.3 ”AcetiveX 组 件 的 类 型 


ActiveX 组 件 的 开发 ， 可 以 分 为 以 下 六 种 类 型 ， 
。 自动 化 服务 器 

。 自动 化 控制 器 

。 ActiveX 控件 

。，COM 对 象 

。 ActiveX 文档 

。 ActiveX 容器 

下 面 我 们 将 对 这 六 种 类 型 进行 简单 的 讲述 。 


1。 自动 化 服务 器 (Automation Servers) 


自动 化 服务 器 是 一 种 可 以 由 其 他 应 用 程序 编程 驱动 的 组 件 。 自 动 化 服务 器 至 少 包含 
一 个 或 多 个 可 由 其 他 应 用 程序 创建 或 连接 的 基于 IDispatch 的 接口 。 一 个 自动 化 服务 器 
可 以 没有 用 户 界 面 (User Interface) 也 可 以 拥有 ， 这 取决 于 服务 器 的 特性 和 功能 ,， 

自动 化 服务 器 的 运行 方式 可 分 为 三 种 ， 如 下 ， 

*。 进程 内 (in-process)， 即 在 控制 器 的 运行 空间 内 运行 ; 

*。 本 地 〈local) ， 部 在 服务 器 自身 的 进程 空间 内 运行 

。 远 地 (remote)， 即 在 另 一 台 机 器 的 进程 空间 内 运行 。 

荫 务 器 的 特定 实现 方式 决定 了 它 将 如 何以 及 在 何 处 运行 ， 但 也 并 非 钨 对 如 此 ， 例 如 
一 个 DLL 肥 可 以 为 进程 内 运行 , 也 可 以 为 本 地 运行 和 远 地 运 行 , 而 exe 只 能 在 本 地 或 远 
程 运 行 。 一 般 来 说 ， 进 程 内 运行 的 自动 化 服务 器 运行 速度 最 快 ， 本 地 次 之 ， 远 地 最 差 ， 


2。 自 动 化 控制 器 〈Automation Contrcllers 》 


自动 化 控制 器 是 那些 使 用 和 操纵 自动 化 服务 器 的 应 用 程序 , 如 DLL 或 EXE, 它们 不 
但 可 以 在 进程 内 访问 自动 化 服务 器， 而 且 可 以 以 本 地 或 远程 方式 访问 自动 化 服务 器 。 典 
型 的 应 用 程序 包括 Microsoft Excel, Microsoft 鸡 ord 以 及 Visual Basic, 例如 通过 Visual 
Basic 的 编程 语言 ,用户 可 以 方便 地 生成 、 使 用 和 消除 自动 化 服务 器 ， 就 好 像 它们 是 有 机 
的 组 成 部 分 一 样 。 


3. Active 苹 控件 


AetiveX 控件 等 价 于 以 前 的 OLE 控件 (OCXs)。 一 个 典型 的 控件 包括 设计 时 和 运行 
时 的 用 户 界 面 ， 惟 一 的 IDispatch 的 接口 定义 控件 的 方法 和 属性 ， 惟 一 的 IConnection- 
Point 接口 由于 控件 可 引发 的 事件 。 除 此 之 外 , 一 个 控件 还 可 以 包含 对 其 整个 生命 周期 的 
一 致 性 支持 ， 以 及 对 剪贴 板 、 拖 放 等 用 户 界面 特性 的 支持 。 从 结构 上 看 ， 一 个 控件 有 大 
重 必须 支持 的 COM 接口 ， 以 便利 用 这 些 特 性 。 

ActiveX 控件 永远 都 是 在 其 所 放置 的 容器 中 运行 ， 控 件 的 典型 扩展 名 为 OCX， 但 是 
从 运行 的 角度 来 看 ， 它 不 过 是 一 个 标准 的 Windows 动态 链接 库 (DLL)。 
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4.COM 对 象 


COM 对 象 在 结构 上 于 自动 化 服务 器 和 自动 化 控制 器 类 似 ， 它 们 拥有 一 个 或 多 个 
COM 接口 ， 由 很 少 或 根本 没有 用 户 界面 。 然 而 ，COM 对 象 不 能 像 自动 化 服务 器 那样 被 
典型 的 自动 化 控制 器 应 用 程序 所 使 用 ， 为 了 使 用 它们 ， 控 制 器 必须 具有 和 希望 连接 接口 的 
特定 知识 , 这 往往 由 COM 对 象 的 说 明文 档 提 供 。 在 Windows 98 和 Windows NT 操作 系 
统 中 , 包含 上 百 个 COM 对 象 和 自 定 义 接口 , 用 于 对 操作 系统 进行 扩展 , 包括 了 从 控制 桌 
面 的 外 观 到 3D 图 像 的 着 色 等 各 个 方面 .COM 对 象 是 一 种 组 织 相关 功能 和 数据 的 良好 方 
式 ， 同 时 它 还 保持 了 DLL 的 高 速 性 能 。 


5. ActiveX 丈 档 


ActiveX 文档 , 即 以 前 所 说 的 OLE DecObiject , 表示 一 种 不 仅仅 是 简单 控件 或 自动 化 
服务 器 的 对 象 ， 它 可 以 是 从 电子 表格 到 财务 应 用 程序 中 全 部 发 票 的 任何 东西 。 与 控件 一 
样 , 文 档 也 有 用 户 界面 并 包含 于 雁 器 应 用 程序 中 , Microsoft Excel 和 Microsoft 碍 ord 就 
是 AetiveX 文档 服务 器 的 典型 例子 , 而 Microsoft Office Binder 和 Microsoft Internet 已 x- 
plerer 则 就 是 ActiveX 文档 容器 的 典型 例子 。 

ActiveX 文档 结构 上 是 对 OLE 链接 和 由 人 模型 的 扩展 , 并 对 其 所 在 的 容器 具有 更 多 
的 控制 权 。 一 个 显著 的 变化 是 对 菜单 的 显示 方式 , 一 个 典型 的 OLE 文档 的 菜单 将 会 与 容 
器 的 菜单 合并 成 为 一 个 新 的 菜单 集 , 而 Active 文档 将 趟 换 整 个 容器 的 菜单 系统 ,只 表现 
出 文档 的 特性 ， 而 不 是 文档 与 容器 的 共同 特性 。 文 档 特 性 的 表达 方式 是 ActiveX 文档 和 
OLE 文档 所 有 差别 的 前 握 。 和 容器 只 是 一 种 宿主 机 制 ， 而 由 文档 本 身 进 行 所 有 控制 。 另 外 
一 个 显著 的 变化 是 打印 和 存储 。 一 个 OLE 文档 被 认为 是 其 容器 文档 的 一 部 分 , 因此 是 作 
为 宿主 容器 文档 的 一 部 分 进行 打印 和 存储 的 , 而 ActiveX 文档 自身 具有 打印 和 存储 功能 ， 
而 不 是 集中 在 容器 文档 中 。 

ActiveX 文档 在 一 个 统一 的 表示 结构 中 使 用 , 而 不 是 位 于 嵌 人 式 文档 结构 中 , 后 者 是 
OLE 文档 的 基础 ，Microsoft Internet Exploretr 是 ActiveX 文档 方面 的 一 个 典型 的 例子 ， 
Explere 只 是 将 到 eb 页 面 展示 给 用 户 ， 但 它 是 作为 一 个 单一 的 实体 进行 显示 、 打 印 和 存 
储 的 ; 而 Microsoft 好 ord 和 Microsoft 忆 xcel 则 是 OLE 文档 结构 方面 的 典型 例子 ， 如 果 
将 一 个 Excel 电子 表格 蔡 人 在 一 个 丽 ord 文档 中 ， 电 子 表格 实际 上 是 存储 在 Word 文档 
中 ， 并 成 为 罗 ord 文档 的 一 个 集成 部 分 。 


6. ActiveX 客 吕 


ActiveX 容器 是 一 个 可 以 作为 自动 化 服务 器 、 控 件 、 和 AetiveX 文档 宿主 的 应 用 程 
序 ， 例 如 Visual Basic 和 ActiveX Control Pad 就 是 ActiveX 容器 的 典型 的 例子 ， 它 们 可 
以 作为 自动 化 服务 器 和 控件 的 宿主 ， 此 外 Microseft Oftfice Binder 和 Microsoft Internet 
Explorer 也 是 极为 典型 的 ActiveX 容器 的 例子 ， 它们 不 但 可 以 作为 自动 化 服务 器 和 控件 
的 宿主 ， 而 且 可 以 作为 AetiveX 文档 的 宿主 。 
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7.1.4 “小结 


总 的 来 说 , ActiveX 是 一 种 基于 Microsoft 丽 indows 操作 系统 的 组 件 集 成 协议 , 通过 
AcetiveX , 开发 者 和 终端 用 户 可 以 选择 由 不 同 的 开发 商 发 布 的 面向 应 用 程序 的 ActiveX 组 
件 ， 并 将 它们 无 链 地 集成 到 自己 的 应 用 程序 中 ， 从 而 完成 特定 的 目的 。 例 如 ， 开 发 一 个 
独立 的 应 用 程序 ， 要 求 具有 数据 库 访问 功能 、 数 值 分 析 功 能 以 及 商用 图 形 功能 ， 如 果 开 
发 者 全 部 自行 编写 , 显 见 任务 是 非常 繁重 的 , 但 是 基于 AcetiveX 组 件 , 开发 者 就 可 以 通过 
一 个 开发 高 选择 数据 库 访 问 组 件 ， 而 通过 另 一 个 开发 商 选 择 数 值 分 析 组 件 ， 再 通过 第 三 
个 开发 商 选择 商用 图 形 组 件 , 并 最 终 将 它们 集成 在 一 起 , 这 样 应 用 程序 就 开发 完毕 了 , 这 
样 不 但 提高 了 开发 效率 ， 而 且 肯 定 更 加 易于 使 用 。 

要 理解 ActiveX 必须 非常 注意 两 个 概念 ， 即 COM 和 AcetiveX 接口 。COM ， 即 微软 
组 件 对 象 模型 Component Objeet Model ， 它 是 所 有 ActiveX 组 件 的 基础 ， 它 定义 了 基本 
的 ActiveX 组 件 的 模型 ; ActiveX 接 日 ， 即 ActiveX Interface ， 是 所 有 ActiveX 组 件 的 基 
本 的 组 成 部 分 ,每 一 个 AcetiveX 组 件 至 少 拥有 一 个 或 多 个 命名 的 接口 ,每 一 个 接口 是 一 系 
列 相关 的 方法 、 属 性 和 事件 的 集合 。 方 法 非常 类 似 于 函数 ， 调 用 它们 是 为 了 要 求 组 件 完 
成 一 定 的 功能 或 动作 ;, 属性 是 声明 的 由 组 件 支持 的 变量 , 描述 了 组 件 在 一 定时 刻 的 状态 ， 
例如 文字 的 颜色 、 文 件 的 名 字 等 ; 事件 是 有 外 界 激发 组 件 时 ， 组 件 相应 产生 的 动作 。 

此 外 , COM 的 一 个 重要 特性 就 是 它 支持 多 接口 ,其 中 一 些 为 标准 接口 , 它们 被 定义 
为 ActiveX 的 组 成 部 分 ， 而 另 一 些 为 用 户 自 定义 的 接口 ， 由 各 个 开发 商定 义 。 为 了 使 用 
ActiveX 组 件 , 用户 必须 清楚 地 知道 各 组 件 所 定义 的 自 定义 接 口 及 其 方法 、 属 性 和 事件 ， 
这 些 信息 通常 由 开发 商 提供 。 

至 此 ,我 们 已 经 对 ActiveX 术语 和 AcetiveX 组 件 的 类 型 进行 了 简单 的 介绍 , 目的 是 为 
了 方便 后 续 的 讲解 ,但 是 内 容 非 常 不 全 面 ,希望 进一步 了 解 AcetiveX 的 读者 请 自行 参阅 相 


7.2 MATLAB AcetiveX 集成 


在 MATLAB 中 ， 对 两 种 类 型 的 ActiveX 技术 提供 了 支持 ， 部 ActiveX 容器 和 Ac- 
tiveX 自动 化 , 其 中 ActiveX 自动 化 包含 了 ActiveX 自 动 化 服务 器 和 ActiveX 自动 化 控制 
固 两 种 类 型 的 AcetiveX 组 件 。 通过 MATLAB ActiveX 自动 化 服务 器 技术 , 用 户 可 以 在 自 
己 编写 的 ActiveX 自动 化 控制 器 程序 或 ActiveX 容器 程序 中 对 MATLAB 进行 操纵 ， 如 
在 MATLAE 的 工作 空间 中 执行 一 定 的 命令 ， 向 MATLAB 工作 空间 输入 抢 阵 数据 和 从 
MATLAB 工作 空间 获取 矩阵 数据 ; 而 通过 MATLAB AcetiveX 自动 化 控制 器 技术 , 用 户 
可 以 在 MATLAB 中 , 通过 编写 M 函数 对 ActiveX 自动 化 化 服务 器 进行 各 种 控制 ， 包 括 
初始 化 和 删除 。 此 外 通过 MATLAB AcetiveX 容器 技术 , 允许 用 户 在 MATLAB 中 使 用 大 
量 其 他 的 ActiveX 控件 。 相 关 概念 请 读者 参见 7. 1 节 。 

这 里 必须 非常 注意 对 几 个 概念 的 区 别 ; 第 一 , AetiveX 自动 化 控制 器 所 完成 的 功能 只 
是 AcetiveX 容器 所 完成 功能 的 一 个 子 集 ; 第 二 , 所 有 的 ActiveX 控件 从 某 种 程度 上 都 可 以 
认为 是 AcetiveX 自动 化 服务 器 ， 但 是 并 非 所 有 的 AcetiveX 自动 化 服务 器 都 可 以 认为 是 


*。 336 ， MATLAB 应 用 程序 接口 用 户 指南 


ActiveX 控件 ,它们 最 主要 的 区 别 在 于 , 一 般 来 说 , 非 ActiveX 控件 的 ActiveX 自动 化 服 
务 器 不 可 以 被 作为 客户 端 应 用 程序 的 一 部 分 有 机 和 可 视 地 替 人 到 应 用 程序 ， 例 如 MAT- 
LAB 就 是 一 个 非常 典型 的 例子 ， 它 是 一 个 应 用 程序 自动 化 服务 器 ， 而 不 是 一 个 应 用 程序 
控件 ， 因 为 它 不 能 被 嵌 人 到 客户 端的 应 用 程序 中 。 

在 本 节 中 ， 我 们 将 分 别 从 客户 端 和 服务 器 端 对 MATLAB 的 AcetiveX 功能 进行 必要 
的 介绍 。 


7.2.1 MATLAB AcetiveX 自动 化 控制 器 


MATLAB 作为 ActiveX 自动 化 控制 器 时 , 就 相当 于 一 个 客户 端的 应 用 程序 , 如 果 希 
望 在 MATLAB 中 使 用 任何 的 ActiveX 组 件 ， 首 先 必 须 清楚 地 知道 该 ActiveX 组 件 的 名 
字 ,， 即 ProgID,， 其 次 必须 清楚 地 知道 组 件 所 使 用 的 各 个 接口 的 和 名字、 方法、 属性 和 事件 ， 
这 些 信 息 一 般 可 以 通过 相关 的 AcetiveX 组 件 的 文档 获得 。 一 旦 拥有 了 这 些 信息 ,用 户 就 可 
以 通过 MATLAB 提供 的 ActiveX 自动 化 榨 制 器 支持 将 ActiveX 组 件 集成 到 MATLAB 
的 环境 中 了 。 例 如 MATLAB 自身 拥有 一 个 名 为 MWSAMP. MwsampcCtrl. 1 的 料 例 控 
件 ， 其 方法 、 属 性 和 事件 分 别 如 下 : 

方法 : 

Redraw 一 一 使 控件 重 绘 
Beep 一 一 使 控件 鸣叫 
和 AboutBox 一 一 显示 “about” 对 话 框 

属性 : 

Radius 《integet) 一 一 控件 中 绘制 圆 的 半径 
Label (string) 一 一 控件 的 标题 

事件 ， 

Cliek 一 一 当 用 户 点 击 控件 时 触发 的 事件 

在 MATLAB 中 ， 用 户 可 以 通过 实例 化 一 个 MATLAB 的 activex 对 象 来 创建 一 个 
ActiveX 控件 或 AcetiveX 自动 化 服务 器 对 象 ， 这 主要 是 通过 运行 命令 actxcontrol 和 命令 
actXsSeVveLr 该 actjvexX 来 完成 ， 这 两 个 命令 的 返回 值 即 为 一 个 actiVeX 对 象 ， 该 对 象 代 表 了 
ActiveX 组 件 的 默认 接口 。 除 了 以 上 方法 获得 activex 对 象 外 ， 当 一 个 AetiveX 组 件 具 有 
多 个 接 日 时, 用户 也 可 以 使 用 愈 令 get 或 invoke 通过 已 经 存在 的 接口 获取 新 的 activex 对 
象 .MATLAB 系统 中 , 为 用 户 提供 了 功能 全 面 的 构造 activex 对 象 和 针对 activex 对 象 操 
作 的 命令 ， 详 见 表 7. 1。 

表 7.1 activex 对 象 的 构造 和 操作 盒 令 


命 令 各 功 能 
actxcoftrol 建立 一 个 ActiveX 控件 对 象 
actxseryer 建立 一 个 ActiveX 自动 化 服务 器 对 象 
set 对 和 贸 口 的 某 一 赎 性 进行 设置 
get 从 接口 获 歌 某 一 局 性 的 值 


inyoke 微 活 接 的 … 个 方法 


propeait 
Telease 
Serd 


deiete 
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续 表 7.1 
名 直 能 
要 求 控 件 显示 其 内 建 的 属性 页 
释放 一 个 activex 对 象 
显示 事件 列表 站 


是 除 一 个 activex 对 象 


下 面 我 们 对 这 些 命令 进行 全 面 的 介绍 。 


1.。actxconttol 


功能， 在 一 个 图 形 窗口 内 构造 一 个 ActiveX 控件 。 
语 法 ，h = actxconhtrol (progid[，position [，handle.，. 


人 上，caliback | { eventl eventhandler1i,.. 
eyent2 seventhanqler2;...) jj])》 


说 ” 明 , 通过 命令 actxcontrol， 用 户 可 以 在 一 个 指定 的 图 形 窗口 的 特定 的 位 置 构造 


一 个 ActiveX 控件 ， 并 且 得 到 一 个 返回 的 MATLAB activex 对 象 ， 该 对 象 
代表 了 所 构造 的 ActiveX 控件 的 默认 接口 。 如 果 用 户 指定 的 图 形 窗口 为 不 
可 见 ,， 那么 控件 也 不 可 见 。 当 命令 返回 的 MATLAB activex 对 象 不 需要 被 
继续 使 用 时 ， 必 须 使 用 release 命令 对 该 对 象 占用 的 资源 和 内 存 进 行 释放 ， 
否则 将 导致 资源 浪费 。 但 是 必须 注意 一 点 , 释放 接口 并 不 意味 着 删除 。 命令 
的 各 参数 含义 如 下 ， 

*， Progid 为 一 个 包含 用 户 希 望 创 建 控件 名 字 的 字符 串 , 一 般 该 字符 串 


由 控件 的 供应 商 提供 ; 


。 position 为 一 个 矢量 ， 其 构成 形式 为 [x，y，xsize，ysize ]， 其 中 x 


和 y 为 控件 的 起 始 坐 标 ，xsize 和 ysize 为 控件 的 宽 和 高 ， 单 位 均 为 
像素 ， 默 认 到 值 为 [20，20，60，60]; 


。handle 为 用 户 指定 的 图 形 窗 口 的 句柄 , 控件 就 是 在 该 图 形 窗 喉 中 构 


造 ; 


。callback 为 一 个 M 函数 的 名 字 ,， 当 控件 触发 了 一 个 事件 后 ， 该 函数 


将 被 调用 。 该 函数 可 以 接收 可 变数 目的 输入 变量 ， 并且 所 有 的 输入 
参数 均 被 转换 为 MATLAB 字符 串 , 其 中 第 一 个 参数 为 一 个 代表 被 
触发 事件 的 数值 的 字符 串 ， 事 件 的 数值 由 控件 定义 ; 


。event 为 被 触发 事件 的 数值 或 名 字 ， 
。eventhandle 为 一 个 可 以 接收 可 变数 目 输 人 变量 的 M 本 数 的 熙 数 


名 ， 当 与 该 函数 相 联系 的 控件 事件 被 触发 时 ， 该 丁 数 将 被 调用 ; 本 
数 的 第 一 个 参数 为 activex 对 象 , 而 第 二 个 参数 为 触发 事件 的 数值 ， 
这 里 与 callback 中 的 M 函数 不 同 ， 它 不 需要 将 数值 转换 为 字符 奸 
形式 ， 同 样 的 是 事件 的 数值 由 控件 定义 。 


命令 中 提供 了 两 种 对 触发 事件 处 理 函 数 的 定义 方法 ， 用 户 弃 可 以 通过 创建 
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一 个 单一 的 callback 处 理 函 数 来 响应 触发 事件 ， 也 可 以 通过 构造 一 个 包含 
被 触发 束 件 的 数值 或 名 字 以 及 相应 的 处 理 函 数 的 单元 阵列 ， 对 每 一 个 事件 
给 予 一 个 处 理 函 数 .。 单元 阵列 中 , 事件 及 其 处 理 函 数 的 对 数 不 受 任何 限制 。 
事件 的 数值 或 名 字 用 控件 自身 定义 。 如 果 命 令 执行 失败 将 返回 一 个 MAT- 
LAB 错误 信息 。 


:， 1) Callback 形式 的 事件 处 理 函 教 的 ActiveX 控件 建立 ， 


% 指定 图 形 窗 口 句柄 

f 一 figure《〈'pos'，[100 200 200 200])# 

% 在 图 形 窗 口中 指定 位 置 建立 控件 

h 王 actxconttol ('MWSAMP. MwsampCtrl, 1 ，[0 0 200 200]，gcf，'sampev ) 
其 中 MWSAMP. MwsampCtrl, 1 为 控件 名 字 , [0 0 200 200] 为 控件 显示 位 
置 ，gef 为 当前 默认 的 图 形 窗 口 ，sampev 为 caliback 形式 的 事件 处 理 函 数 ， 
其 定义 如 下 ， 


functiom sampev 《varargin) 


这 《str2num 《varargin !1)})》 一 一 一 600)# 
disp ('Click 了 Event Fired 7) 
end 
2) 单元 阵列 形式 的 事件 处 理 本 数 的 ActiveX 控件 建立 
% 指定 图 形 寅 口 句 柄 


f 一 fignre('pos'，[100 200 200 200])3 

% 在 图 形 窗口 中 指定 位 置 建 立 控件 

h 一 actxconttol (SELECTOR, SelectotrCttl. 必 ，. . . 
[0 0 200 200], f，{ 一 600 'myclick' ;一 601 "my2click ; 。.， 
一 605 mymoused }) 


或 者 


一 actxconttol (SELECTOR, SeiectorCtrl.1 ，,、， 
[0 0 200 200],f，(Cliek' myclick' 
:DPICliek' 'my2click' ;MouseDown “mymoused ) ) 


其 中 SELECTOR. SelectorCtrl. 1 为 控件 名 字 , [0 0 200 200] 为 控件 显示 位 
置 , ff 为 当前 的 图 形 窗 口 句 栖 ，{ 一 600 'myclick' ; 一 601 "my2click ;一 605 
'mymoused } 为 各 事件 值 及 其 相对 应 事件 处 理 函 数 构成 的 单元 阵列 ， 而 
Ciick' mycelick' ;7DblClick' my2clicek' MouseDown “ tmpymoused' } 为 各 
事件 名 字 及 其 相对 应 事件 处 理 函 数 构 成 的 单元 阵列 。 事件 处 理 函 数 
myelick,m，my2click.m 和 mymoused.m 的 定 义 分 别 如 下 : 


tmyclick. m : 
function Imyclick (varargin) 
dsp (〈'Single click functioa' ) 


tpy2click. 1 
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functioo mty2click 〔(varargin》 
disp (Double click function'》 


rmytnaoused.tin: 
funcetiot tnytnoused 〔varargin) 
disp 〔〈'TYou bave reached the tmouse down funetion' 》 
disp 〔:The X bosition is ) 
yaTargin 《57 
disp〔〈'The Y Position is: 和 
varargin 《 世 ) 


此 外 用 户 也 可 以 将 所 有 的 事件 处 理 冰 数 放 在 同一 个 函数 中 完成 ， 例 如 按 如 
下 方式 建立 控件 ， 
h 一 actxcontrol (SELECTOR, SelectorCtrl. 1，.…. 
[0 0 200 200]，f，f Click "alievents' ，，， 
'DblClick' rallevents'j MouseDowt' 'allevents }) 
其 中 对 于 所 有 事件 的 处 理 耳 数 均 为 allevents. m， 其 定义 如 下 ， 
function allevents 〔vararginy) 
让 《varargin 《2} 一 --600) 
disp《〈'Single Click 下 vent Fired ) 
elseif (varargin {t2}) 一 一 601) 
disp〔〈'Deunhble Ciick Event Fired } 
elseif (varargin !2) 一 一 605) 
disp〔'Mousedown Event Fired 》 


end 


2。 actxsetVeT 


功能 ， 开启 一 个 ActiveX 自动 化 服务 器 。 
语 法, h = actxserver (progid [，MachineName]) 
说 “” 明 ; 通过 该 命令 ,用 户 可 以 将 MATLAB 作为 一 个 客户 端 应 用 程序 用 来 开启 一 个 
AcetiveX 自动 化 服务 器 , 并 返回 一 个 activex 对 象 , 该 对 象 代表 了 所 开启 的 自 
动 化 服务 器 的 默认 接口 。 该 命令 拥有 两 个 输 人 参数 ， 含 义 分 别 如 下 ， 
。Pprogid 为 一 个 包含 用 户 希 望 开 启 的 自 动 化 服务 器 名 字 的 字符 串 ， 一 
般 该 字符 串 由 自动 化 服务 器 的 供应 商 提供 ， 例 如 微软 为 Microsott 
Excel 提供 的 progid 为 Excel, Application 
。MachineName 为 一 个 远程 运行 自动 化 服务 器 的 主机 名 。 
其 中 参数 MachineName 为 一 个 可 选 的 参数 ， 并 且 只 能 够 在 支持 分 布 式 组 件 
对 象 模型 的 环境 中 使 用 ， 既 可 以 为 一 个 卫 地 址 ， 也 可 以 为 一 个 域名 。 如 果 
命令 执行 失败 将 返回 一 个 MATLAB 错误 信息 。 
本 地 或 远程 的 自动 化 服务 器 不 同 于 ActiveX 控件 , 它们 运行 在 另外 一 个 独立 
的 地 址 空间 中 , 甚至 可 能 在 不 同 的 计算 机 上 , 不 属于 MATLAB 进程 的 一 个 
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部 分 , 并 且 自 动 化 服务 器 所 显示 的 任何 用户 界面 均 出 现在 另外 的 窗口 中 , 而 
不 与 MATLAB 发 生 联 系 ，Microsoft 玖 ord 就 是 一 种 典型 的 自动 化 服 务 嚣 。 
这 里 必须 注意 一 点 ， 自 动 化 服务 器 没有 callback 和 事件 句柄 。 
举 例 , h = actxserver (下 xcel. Applicaticn ) 
set《h ，'Visiblje' ，17; 


3，SsSet 


功能 ,用 于 将 接口 的 某 个 属性 值 设 定 为 一 个 指定 的 值 。 
语 “ 法 ，set (a [，'propertyname' [，value [，argl, arg2，-..]]]) 
说 ” 明 : 该 命令 的 输入 参数 含义 如 下 ， 
。a 为 一 个 MATLAB activex 对 象 句 柄 ， 该 值 是 由 actxcontrol、in- 
voke、aetxserver 和 get 命令 执行 返回 的 结果 ; 
。 propertyname 为 用 户 希 望 设 定 的 某 个 接 吕 属性 名 
。value 为 希望 设 定 的 属性 值 ; 
。 arg1，aIg2，..。。 8TgD 为 设置 属性 时 可 能 需要 的 参数 ， 在 某 些 情况 
下 ， 属 性 与 函数 类 似 ， 需 要 参数 。 
该 命令 没有 任何 返回 值 。 
举例 ，% 建立 图 形 窗口 
一 figure 《'pos'，E100 200 200 200])) 
% 在 图 形 窗口 的 指定 位 置 上 建立 控件 
a 一 actxcentrol ((MWSAMP,.MwsampCtrl. [00 200 200]， fi) 
% 设置 属性 值 ， 
set (ay，'Label' ，'Click to fire event' ); 
set (a，"Radius ，40)4 
儿 重 绘 控件 


invoke (ay，'Redraw' )4 
执行 以 上 这 些 命令 ，MATLAB 将 显示 以 下 图 形 〈 见 图 7. 1)。 
4。get 


功 能 ， 从 接口 获得 一 个 指定 属性 的 值 或 者 获得 一 个 属性 的 列表 。 
语法， v = get (a [,， "propertyname' [，arg1，arg2， .-.]]) 
说 “有 明 ， 该 命令 用 于 获取 接口 某 个 属性 的 取 值 ， 其 输入 参数 的 含义 如 下 
。8 为 一 个 MATLAB activex 对 象 句 柄 ， 该 值 是 由 actxcontrol 、in- 
voke、actxserver 和 get 命令 执行 后 返回 的 结果 ; 
。Ppropertyname 为 用 户 希望 获取 内 容 的 接口 的 某 个 属性 名 ; 
。 ayl1，arg2，. . . 3TSD 为 获取 属性 值 时 可 能 需要 的 参数 ， 在 某 些 情况 
下 ， 属 性 与 函数 类 似 ， 需 要 参数 ， 
在 只 给 定 人 参数 a 的 情况 下 ， 命 令 将 列 出 接 口 所 有 属性 及 其 信 ， 
举例 ，% 建立 图 形 尊 口 
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f 一 figure《'pos'，F100 200 200 200])) 
% 在 改 形 窗口 的 指定 位 置 上 建立 控件 
a 一 actxceohttol ('MWSAMP, MwsampCtrl, 1 ，[0 0 200 200]，f); 
% 获取 单个 属性 值 
sa 一 get (a，'Label ) 

8 一 

Label 
获取 全 部 的 属性 值 
get 〈a) 

Label 一 Label 

Radius 一 【20] 









File ait Teals- io 


Pilae Euit Kocls indoe 


ae ne 
| 人口 咏 加 所 IAAA。/ TY 
Label Click to fire event 


{a) 《by》 
图 ?.1 设置 属性 前 后 的 图 形 


5。 invoke 


功能 ， 激 活 接口 的 某 个 方法 并 获取 返回 值 或 者 获取 接口 的 所 有 方法 名 。 
语法 ，v = invoke (a [，'methodname' [，argl， arg2，...]]) 
说 “ 明 , 命令 invoke 用 于 激活 接口 的 某 个 方法 ， 如 果 该 方法 存在 返回 值 的 话 ， 则 获 
取 该 返回 值 ， 命 令 的 各 参数 含义 如 下 ， 
。a 为 一 个 MATLAB activex 对 象 句柄 ， 该 值 是 由 actxcontrol、in- 
voke 、actxsetver 和 get 命令 执行 后 返回 的 结果 ; 
。tmethodname 为 用 户 希望 激活 的 接口 的 某 个 方法 名 ; 
。 argTL，af 多 2Z，.. 。 aTgD 为 方法 运行 可 能 需要 的 参数 。 
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Pile Edit Tools 下 madow 
Lelp 


章 识 回信 下放 
Labei 


图 7,2 设置 属性 后 更 绘 的 图 像 
在 只 给 定 参 数 a 的 情况 下 ， 命 令 将 列 出 接口 所 有 的 方法 。 
举 例 ，% 建立 图 形 窗口 


f 一 figure (pos' ，[100 200 200 200]); 

% 在 图 形 窗口 药 指 定位 置 上 建立 控件 

a 一 actxcontrol (MWSAMP.MwsampCtrl. 1 ，[00 200 200]，f17; 
% 设置 控件 属性 

set (as。，'Radius ，1007; 

%% 激活 redraw 方法 进行 控件 便 绘 


v 一 invoke (ay，' 有 edraw') 


执行 以 上 的 这 些 命令 后 ，MATLAB 将 显示 如 图 7. 2 所 示 的 图 形 。 
如 果 仅仅 给 出 参数 a， 命 令 将 显示 接口 所 有 的 方法 的 定义 ， 如 下 ， 


invoke 《ay) 
AboutBox 一 Yoid 上 AboutEox () 
Beep 一 Void Beep 避 ) 
FireClickEvent 一 Void FireClickEvent 〈) 
SetR8 = Double SetR8 (Double) 
SetR8Array 一 Vatiant SetR8Array〔Variant) 
SetR8Veceter 一 Variant SetR8Vector 《Vartiant》 


6、propedit 


功 ” 能 ， 要求 控件 显示 其 内 建 的 属性 页 。 


语法: bropedit (a) 
说 “” 明 ;该 命令 要 求 ActiveX 控件 显示 其 内 建 的 属性 页 ， 如 果 控 件 不 存在 属性 页 , 命 
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令 将 执行 失败 ， 其 输入 参数 a 为 一 个 MATLAB activex 对 象 ， 为 aetxcon- 
trol、invoke、actxsetvet 和 get 命令 执行 后 返回 的 结果 。 
举例 % 建立 图 形 窗口 
f 一 figure〔〈“pos ，[100 200 200 200]); 
% 在 图 形 窗 口 的 指定 位 交 上 建立 控件 
a 一 actxcontrol (/MWSAMP. MywsampCtrl. 六 ，[0 0 200 200]，f)5 
%% 显示 属性 页 
propedit 《ay) 


执行 以 上 的 命令 后 MATLAB 将 显示 如 图 7. 3 所 示 的 图 形 。 






TDH8:，PLacea gonttolS5 to SmLPBOLate DOPRK 人 teS 0 Wiw Sap 罗 
Control on this 灿 ialo. 


取消 应 用 人 | 
图 7.3 控件 的 内 建 属性 页 


了。tejease 


功能， 释放 一 个 接口 。 

语 法 ,release (a) 

说 “上 明 ， 该 命令 用 来 释放 接口 所 占用 的 所 有 资源 。 如 果 对 一 个 接口 使 用 完毕 ， 必 须 
对 其 进行 释放 ， 否 则 将 导致 赛 源 浪费 。 当 对 某 个 接口 进行 资源 释放 后 ， 接 
口 将 变 为 无 效 ,所 有 的 对 该 接口 的 操作 将 会 报错 .输入 参数 a 为 一 个 MAT- 
LAB aetivex 对 象 , 为 actxcontrol、 invoke、actxsetrver 和 get 命令 执行 后 返 
回 的 结果 。 

举例 ，% 建立 图 形 窗 品 
f 一 figure (pos"，[100 200 200 200]); 


% 在 图 形 人 窗口 的 指定 位 置 上 建立 控件 
a 二 actxcontrol (CIMWSAMP,.MwsgampCtrl,1，10 0 200 200],，T1， 


%% 帮 放 接口 


Telease 〔&a》 
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一 一 一 一 


8.、send 


功 能 ， 显示 一 个 接口 事件 列表 .、 
语 法 ，send (a) 
说 ” 明 : 该 命令 用 于 显示 控件 的 所 有 事件 列表 , 输入 参数 a 为 一 个 MATLAB activex 
对 象 ， 为 actxcontrol、invoke、actxserver 和 get 命令 执行 后 返 园 的 结果 。 
举例: % 建立 图 形 窗 口 
ft 一 figure 《pos' ，[100 200 200 200]); 
%% 在 图 形 窗 只 的 指定 位 置 上 建立 控件 
和 一 actxcontrol (/MWSAMP, MwsampCtrl. 1 [0002006200], 1) 
铬 量 示 事件 列表 
senqd 〔&)》 
Click = Void Click《》 


3.、dqdelete 


功能 ,删除 一 个 AetiveX 控件 或 自动 化 报 务 器 。 

语 法 ,delete (ay) 

说 ” 明 ， 该 命令 用 于 删除 一 个 ActiveX 控件 或 自动 化 服务 器 ， 其 输 人 参数 a 为 一 个 
MATLAB activex 对 象 ， 为 actxcontrol、invoke 、actxserver 和 get 命令 执 
行 后 返回 的 结果 。 该 命令 不 同 于 命令 release， 它 将 释放 所 有 的 控件 接 剖 或 
服务 器 接口 ， 并 且 删 除 控件 或 服务 器 ， 而 release 仅仅 释放 参数 中 指定 的 接 
口 。 

举例 ，% 建立 图 形 衔 口 
f 一 fgure(〈' pos'，[100 200 200 200])， 


% 在 图 形 窗 于 的 指定 位 置 上 建立 控件 

a 一 actxcontrol ('MWSAMP. MwsarmmpCtrl, 1 、[00 200 200]，1>， 
%% 芭 放 接口 

delete (a) 


在 上 面 的 内 容 中 , 我们 对 构造 activex 对 象 和 操作 activex 对 象 的 全 令 进 行 了 介绍 , 比 


较 全 面 地 介绍 了 MATLAB 作为 客户 端 对 ActiveX 的 支持 ， 这 里 仍 有 五 点 内 容 需 要 特别 
指出 ; 


第 一 是 关于 AcetiveX 控件 事件 处 理 函 数 编写 。 当 一 个 控件 希望 告知 包含 它 的 容器 发 


生 了 一 些 其 感 兴趣 的 事情 时 ， 将 触发 一 个 事件 ， 例 如 许多 控件 在 用 户 使 用 鼠标 单 击 它们 
时 , 将 触发 一 个 single-click 事件 . 在 MATLAB 中 ,， 当 用 户 使 用 命令 actxcontrol 创建 控 
件 时 ， 可 以 通过 输入 参数 callback 或 事件 事件 处 理 函 数 单元 阵列 ， 可 选 地 将 控件 事件 与 
控件 事件 处 理 函 数 联 系 起 来 。 于 面 分 别 对 两 种 方式 进行 说 明 。 


当 使 用 ealibaek 方式 时 ,用 户 只 需 定义 一 个 事件 处 理 函 数 , 控件 在 触发 任何 事件 后 ， 


都 将 调用 该 函数 ， 其 一 般 定义 形式 为 


funetion event _process《〈vatargin》 
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计 (str2nnum《varargin {1} 一 一 一 600》 
disp(〈"Click Event Fired' ); 


机 面 转 覃 四 理 


所 有 传 向 该 函数 的 参数 均 为 字符 串 类 型 ， 并 且 其 中 第 一 个 输入 参数 包含 了 表示 被 触发 事 
件 的 数值 ， 该 数值 也 被 存储 为 字符 串 ， 因 此 在 使 用 前 必须 通过 MATLAB 内 建 西数 
str2num 进行 转换 , 如 函数 中 的 第 二 行 。 为 了 能 够 处 理 多 个 事件 , 用 户 可 以 通过 多 个 诗 语 
句 进行 判断 ， 并 且 进 行 不 同 的 处 理 ， 或 者 使 用 switch-case 语句 。 

当 使 用 事件 -事件 处 理 函 数 单元 阵列 方式 将 事件 与 事件 处 理 函 数 相 联系 时 ， 与 call- 
back 完全 不 同 ， 它 需要 对 每 一 个 事件 单独 提供 一 个 处 理 函 数 ， 当 和 触发 不 同 的 事件 时 ， 调 
用 不 同 的 处 理 函 数 。 例 如 为 鼠标 单 击 事件 提供 处 理 函 数 click1. m， 为 鼠标 双击 事件 提供 
处 理 函数 click2.m。 这 种 事件 处 理 方式 较 前 一 种 方式 易于 理解 , 并 且 利于 函数 的 修改 . 在 
特殊 情况 下 ， 用 户 也 可 以 将 所 有 的 事件 处 理 函 数 设 置 为 同一 个 画 数 ， 这 样 在 发 生 任何 事 
件 时 ， 都 将 调用 该 函数 ， 这 与 使 用 callback 方式 的 效果 相同 。 

第 二 是 关于 MATLAB 中 AcetiveX 接口 的 建立 与 释放 。 由 于 一 个 AcetiveX 对 象 可 能 
拥有 多 个 接口 ， 而 使 用 命令 actxcontrol 和 actxserver 获得 的 接口 均 为 ActiveX 对 象 的 默 
认 接 口 , 如 何 获取 ActiveX 对 象 的 其 他 接口 呢 ? MATLAB 提供 了 其 他 的 两 种 方式 ， 即 通 
过 命令 get 和 命令 invoke 获取 , 当 执 行 这 两 个 命令 的 返回 值 为 接口 对 象 时 , MATLAB 自 
动 将 返回 值 转化 为 activex 对 象 类 型 , 在 MATLAB 中 所 有 的 接口 均 用 activex 对 象 表示 。 
一 旦 实例 化 了 activex 对 象 , 在 使 用 完毕 后 一 定 要 记 住 释 放 该 对 象 , 否则 将 导致 资源 的 严 
重 浪费 . 此 外 , 为 了 避免 内 存 等 资源 的 浊 漏 , MATLAB 提供 了 自动 的 接口 释放 机 制 。 当 
存放 AetiveX 控件 的 图 形 窗 口 被 关闭 或 删除 时 , MATLAEB 会 自动 释放 所 有 的 接口 ! 同时 
在 MATLAB 被 关闭 时 ，MATLAB 同样 将 释放 所 有 的 ActiveX 自动 化 服务 器 的 接口 。 

第 三 是 关于 AcetiveX 集合 (cellection) 的 使 用 .ActiveX 集合 本 身 是 一 个 特殊 的 接口 ， 
通过 这 种 接口 , 可 以 以 组 的 方式 对 许多 相互 联系 能 够 重复 使 用 的 ActiveX 对 象 提供 支持 。 
在 该 接口 中 , 存在 一 个 只 赵 的 属性 Count, 代表 了 集合 中 ActiveX 对 象 的 数目 ; 此 外 通过 
集合 接口 的 Item 方法 , 允许 用 户 从 集合 中 获取 单个 的 ActiveX 对 象 . 通 常 在 使 用 Item 方 
法 时 , 需要 提供 一 个 索引 , 用 于 指明 希望 获取 哪 一 个 ActiveX 对 象 , 一 般 情况 下 方法 执 
行 完 毕 后 , 将 得 到 一 个 接口 对 象 . 索引 的 数据 类 型 必须 与 特定 的 ActiveX 集合 相 匹配 .下 
面 是 一 个 简单 的 使 用 ActiveX 集合 的 例子 ， 该 例子 重复 使 用 集合 中 所 有 接口 的 Redraw 
方法 ， 

hCoellection := get (hControl，'Plots')) 

for i 王 1:， get (hCollection，'Count ) 

hPtiot 一 inyoke (hColtection ， :ltem ，13 
invoke (hPlot，'Redraw' ); 
release {hPlot); 


ed 
release (hbCaolleetiom7 


第 四 是 关于 ActiveX 和 MATLAB 之 间 的 数据 类 型 转换 。 由 于 ActiveX 定义 了 一 系 


“346， MATTLAB 应用 程序 接口 用 户 措 再 


列 不 同 的 数据 格式 和 类 型 ,六 此 在 使 用 它们 前 , 必须 知道 MATLAB 是 如 何 将 这 些 数据 转 
换 到 自己 的 工作 空间 中 。 在 下 列 两 种 情况 下 ， 数 据 的 类 型 必须 被 转换 ， 
， 数 据 为 由 ActiveX 的 属性 获得 ; 








。 数据 为 调用 ActiveX 方法 的 返回 值 。 
表 7. 2 说 明了 ActiveX 数据 类 型 向 MATLAB 数据 类 型 转换 的 关系 。 
表 7.2 数据 转换 
ActiveX 数据 类 型 MATLAB 数据 类 型 
String 
File Ti 
让 0 | MaTLAB String 
Decimal Date | 
Cr | 

Hresuit 
JntAUnsigned 《2，4，8) Sealar Double 
Bool 
Reat (SigleZDouble Precision》 | 
Nuit NaN 
由 rray co 

Currency 

et Matrix of Double 

IntyUnsigned (2 4，8) 

Boel 
Variant Cell Array 

















骨 TTay of Variant 






activex 人 bject 





Idispath 


Ernpty 
Unknowan 

YVoid 

了 Ptr 

Tarray 
TJserdefined 
Blob 

Stream 

Stcrake 
Streatned Object 
Stored Object 
Blob Object 

CEF 


不 转换 《报错 ) 


第 五 是 关于 MATLAB 作为 分 布 式 COM 服务 器 客户 端的 使 用 。 分 布 式 的 组 件 对 象 
模型 (DCOM) 是 一 种 对 象 分 布 处 理 的 机 制 ， 它 允许 ActiveX 客户 端 在 网 络 上 远程 地 使 
用 ActiveX 对 象 .MATLAB 作为 一 个 DCOM 服务 器 , 已 经 在 Windows NT4. 0 上 测试 通 
过 ， 当 其 作为 一 个 远程 的 服务 器 使 用 时 ，MATLAB 将 在 远程 的 计算 机 上 局 动 。 

MATLAB 作为 一 个 ActiveX 容器 ， 虽 然 对 ActiveX 对 象 的 使 用 提供 了 大 量 的 支持 ， 
且 使 用 也 比较 方便 , 但 是 与 其 他 的 一 些 ActiveX 容器 相 比 , 仍然 存在 不 足 , 主要 表现 在 下 
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面 的 几 点 ， 
"” MATLAB 仅仅 支持 索引 的 集合 ; 
“MATLAB 不 支持 事件 参数 的 应 用 传递 ; 
”MATLAB 不 支持 从 事件 处 理 函 数 返 回 值 ; 
。 控件 的 位 置 矢量 不 能 被 改变 或 获取 ; 
*。 ActiveX 控件 不 能 随 图 形 窗 口 被 打印 。 


7.2.2 MATLAB 自动 化 服务 器 


在 indows 平台 上 ，MATLAB 不 但 对 自动 化 控制 器 功能 提供 了 支持 ， 而 且 还 可 以 
作为 自动 化 服务 器 。 当 MATLAB 作为 自动 化 服务 器 时 , 它 可 以 被 Windows 平台 上 的 任 
何 可 以 作为 自动 化 控制 器 的 应 用 程序 所 使 用 ， 一 些 典 型 的 自动 化 控制 器 包括 Microsoft 
Excel ，Microsoft Access，Wisual Basic 和 Visual C 十 十 等 。 通 过 使 用 MATLAB 自动 化 
服务 器 功能 , 用 户 可 以 在 自己 的 应 用 程序 中 执行 MATLAB 命令 ,并 从 MATLAB 的 工作 
空间 中 获取 mxArray 结构 体 数 据 以 及 向 MATLAB 输送 数据 。 

将 MATLAB 作为 一 个 自动 化 服务 器 使 用 ， 用 户 首先 必须 查阅 所 希望 使 用 的 自动 化 
控制 器 的 文档 ， 查 明 如 何在 控制 器 中 开启 一 个 自动 化 服务 器 ， 其 次 必须 知道 MATLAB 
ActiveX 对 象 在 系统 注册 表 中 定义 的 名 字 , 即 ProgID , 一 般 可 以 使 用 Matlab. Application 
或 者 使 用 Matlab. Application. Single， 它 们 分 别 代 表 了 不 同 的 含义 ， 当 应 用 程序 使 用 
Matlab. Application 作为 ProgID 启动 MATLAB 自动 化 服务 器 时 ， 表 示 将 MATLAB 自 
动 化 服务 器 作为 一 个 共享 的 服务 器 ， 当 其 他 的 应 用 程序 同样 以 Matlab. Applicaticn 作为 
ProgID 开启 MATLAB 自动 化 服务 器 时 ， 系 统 将 不 再 另外 初始 化 一 个 服务 器 ， 而 是 使 用 
同一 个 服务 器 来 完成 所 有 的 请 求 ; 而 当 应 用 程序 使 用 Matlab, Application. Single 作为 
ProgID 开启 MATLAB 自动 化 服务 器 时 ,表示 将 MATLAB 自动 化 服务 器 作为 一 个 单独 
的 服务 器 使 用 , 而 不 与 别 的 应 用 程序 共享 , 这 时 其 他 的 应 用 程序 无 论 以 何 种 ProgID 开启 
MATLAB 自动 化 服务 器 ， 系 统 都 将 重新 初始 化 一 个 新 的 MATLAB 自动 化 服务 器 。 

知道 了 这 两 方面 的 信息 , 用 户 就 可 以 开启 MATLAB 自动 化 服务 器 了 ,需要 特别 指出 
的 一 点 是 :具体 开启 MATLAB 自动 化 服务 器 的 方法 依赖 于 用 户 所 选择 的 自动 化 控制 器 ， 
但 是 用 来 标识 MATLAB ActiveX 自动 化 服务 器 的 名 字 却 是 不 会 发 生变 化 的 。 下 面 是 一 
段 VIsual Basic 的 程序 源 代 码 , 它 演示 了 如 何在 Visual Basic 中 开启 MATLAB 的 自动 化 
服务 器 功能 ， 

Dim MatLab As ODbject 

Set MatLab 一 CreateObject 〈”Mtatlab. 和 Application”) 

其 中 定义 了 对 象 类 型 数据 Matlab, 并 且 通 过 函数 CreateObject 以 Matlab. Application 为 
输入 参数 ， 开 启 了 MATLAB 自动 化 服务 器 。 当 用 户 完成 这 些 操作 后 ， 就 可 以 开始 使 用 
MATLAB 自动 化 服务 器 了 。 

此 外 除了 上 面 讲 述 的 开启 MATLAB 自动 化 服务 器 的 方法 之 外 ， 还 可 以 在 启动 
MATLAEB 时 直接 将 MATLAB 初始 化 为 一 个 自动 化 服务 器 ,只 需 在 启动 MATLAB 时 使 
用 参数 /Automation 如 可 。 这 样 在 应 用 程序 要 求 建立 一 个 ActiveX 连接 时 , 系统 将 完成 它 
们 之 间 的 连接 操作 , 而 不 会 再 重新 开启 一 个 MATLAB 自动 化 服务 器 了 ， 但 是 如 果 在 启动 
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MATLAB 时 并 没 用 使 用 参数 /Automaticn, 这 时 系 统 将 重新 初始 化 一 个 MATLAB 的 实 
例 ， 作 为 自动 化 服务 器 。 

还 有 一 点 值得 说 明 的 是 ， MATLAB 提供 了 对 PCOM 的 支持 ， 应 用 程序 可 以 通过 网 
络 远程 启动 一 个 MATLAB 自动 化 服务 器 , 用 于 完成 一 定 的 计算 功能 ,从 而 充分 利用 网 络 
资源 的 优势 。 

对 MATLAB 自 动 化 服务 器 的 使 用 ,， 必须 通过 服务 器 所 提供 的 三 个 方法 , 即 下 xecute， 
PutFullMatrix 和 GetFullMatrix。 通过 它们 , 用 户 不 但 可 以 在 MATLAB 中 执行 任何 合法 
的 命令 ， 而 且 可 以 向 MATLAB 输送 数据 ， 同 时 也 可 以 从 MATLAB 中 获取 数据 。 下 面 ， 
我 们 分 别 对 这 三 个 方法 进行 说 明 。 


1。 正 xecute 


功能， 用 于 执行 一 个 合法 的 MATLAB 命令 ， 

语 法 ，BSTR Execute (〈 [in] BSTR Commandq) 

说 ”了 明 : 方 法 Execute 的 输入 参数 为 一 个 字符 串 类 型 的 变量 , 它 可 以 包含 任何 的 合法 
的 MATLAB 命令 ， MATLAB 将 执行 该 字符 串 所 包含 的 命令 ， 并 将 结果 以 
字符 串 的 形式 进行 输出 ， 同 时 命令 所 产生 的 任何 图 形 窗 口 都 将 被 直接 显示 
在 屏幕 上 。 

举例 , 下 面 是 一 段 Visual Basic 的 代码 , 用 于 启动 MATLAB 自动 化 服务 器 , 并 且 
适 过 方法 Execute 执行 一 个 MATLAB 绘图 命令 .。 执行 该 段 代 码 后 , 将 显示 
如 图 7.4 所 示 的 图 形 。 

TDim MatLab As Object 
Dim Result 及 s String 


Set MatLab 一 CreateCObject 〔 “Matlab. Application7) 
Result 王 MatLab. Exeeute 〈《 “surf 《peaks)”) 


2，GetREullMatrix 


功 能, 用 于 从 MATLAB 的 工作 空间 中 获取 数据 。 
语 法 ， void GetFullMatrix 《 
[in] BSTR Name， 
tin] BSTR 到 orkspace， 
[in，out] SAFEARRAY 《double》 * pr， 
[in，out] SAFEARRAY 《double) * pi) 
说 “ 明 ， 通过 该 方法 用户 可 以 从 指定 的 MATLAB 的 工作 空间 中 获取 指定 名 字 的 
mxArray 结构 体 的 数据 ， 该 结构 体 既 可 以 为 一 维 也 可 以 为 二 维 ， 可 以 为 实 
数 类 型 也 可 以 为 复数 类 型 ， 但 是 该 结构 体 的 存储 类 型 必须 为 满 ， 即 该 方法 
不 可 以 对 稀 玻 类 型 的 矩阵 进行 数据 提取 。 方 法 的 各 输入 参数 的 含义 如 下 ， 
。name 为 用 户 希 望 从 MATLAB 的 工作 空间 中 提取 的 mxArray 结构 体 的 


名 字 # 
。 如 orkspace 为 用 户 指定 的 MATLAB 工作 空间 的 名 字 ， 通 常情 况 下 ,该 


第 ? 章 客户 机 /服务 器 应 用 程序 “349 





图 7.4 surf (peak) 所 产生 的 图 形 


变量 有 三 种 取 值 ， 

a) “base”， 当 变量 色 orkspace 取 该 值 时 , 表示 从 MATLAB 的 默认 的 工 
作 空 间 中 提取 数据 ! 

b) “global”， 当 变量 机 orkspace 取 该 值 时 ,表示 从 MATLAB 的 全 局 工 
作 空 间 中 提取 数据 ! 

ec) “ealler>， 除 了 在 MEX 文件 中 ， 目 前 该 取 值 并 没有 尾 何 意义 。 

。 pr 为 一 个 与 用 户 所 希望 握 取 的 mxArray 结构 体 同 样 大 小 的 实数 阵 
列 的 指针 。 在 方法 执行 完毕 后 ， 该 指针 指向 的 阵列 中 将 包含 用 户 斯 
希望 提取 的 mxArray 结构 体 的 实数 部 分 的 数据 ， 

。ji 为 一 个 与 用 户 所 希望 提取 的 mxArray 结构 体 同样 大 小 的 实数 阵 
列 的 指针 。 在 方法 执行 完毕 后 ， 该 指针 指向 的 阵列 中 将 包含 用 户 所 
希望 提取 的 mxArray 结构 体 的 虚数 部 分 的 数据 。 

举例 ,下 面 是 一 个 使 用 Visual Basic 编写 的 一 段 范例 程序 ， 


rem 变量 声明 
Dim MatLab As Object 
Dim Result As String 
Dim MReal (1，3)》 As Double 
Dim MImag 〈) As Double 
Dim RealValue As Double 
Im 1，j As Integer 
rem 启动 MATLAB 自动 化 服务 器 
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Set MatLab 一 CreateObject 〔(“Matiab. Application”) 
rem 调用 Execeute 方法 执行 一 条 赋值 命令 

Result 一 MatLab, Execute (“a 一 [123485678I]”》 


rem 调用 GetFutl]Matrix 方法 获取 数据 
Call MatLab. GetFullMattrix 〔“a”,“base”，MReal，MImag》 
rem 执行 赋值 操作 
Fori 一 0Tol 
For j 一 0To3 
RealiValue 一 MReal (i， 
Next j 
Next i 


3，PutFullMatrix 


功能: 用 于 向 MATLAB 的 工作 空间 中 输 当 一 个 指定 名 字 的 mxArray 结构 体 。 
语 法， void PutEullMatrix ( 
[in] BSTR Name， 
[in] BSTR 鸡 corkspace， 
Lin] SAFEARRAY (doubie) pr， 
[in]j SAFEARRAY (double) Pi); 
说 ”了 明 , 通 过 该 方法 ,用 户 可 以 向 指定 的 MATLAB 的 工作 空间 中 输出 一 个 指定 名 字 
的 mxArray 结构 体 , 该 结构 体 民 可 以 为 一 维 也 可 以 为 二 维 , 可 以 为 实数 类 型 
也 可 以 为 复数 类 型 , 但 是 该 结构 体 的 存储 类 型 必须 为 满 , 即 该 方法 不 可 以 向 
MATLAB 输出 稀 疏 类 型 的 矩阵 。 方 法 的 各 输入 参数 的 含义 如 下 ， 
。name 为 用 户 希 望 向 MATLAB 的 工作 空间 中 输出 的 mxArray 结构 
体 的 名 字 ; 
。 有 orkspace 为 用 户 指定 的 MATLAB 工作 空间 的 名 字 , 通常 情况 下 ， 
该 变量 有 三 种 取 值 ; 
a) “base”, 当 变 量 Workspace 取 该 值 时 , 表示 向 MATLAB 的 默认 的 
工作 空间 中 输出 数据 ; 
b)“global”， 当 变量 Workspace 取 该 值 时 , 表示 向 MATLAB 的 全 局 
工作 空间 中 输出 数据 ; 
c) “caller”， 除 了 在 MEX 文件 中 ， 且 前 该 取 值 并 没有 任何 意义 。 
pr 为 一 个 双 精 度 类 型 的 实数 阵列 ， 它 包含 了 用 户 希 望 输出 到 MAT- 
和 工作 空间 中 的 mxArray 结构 体 的 实数 部 分 的 数据 ; 
。Ppi 为 一 个 双 精 度 类 型 的 实数 阵列 ， 它 包 食 了 用 户 希 望 输出 到 MAT- 
LAB 工作 空间 中 的 mxArray 结构 体 的 虚数 部 分 的 数据 ,如果 输出 到 
MATLAB 的 mxArray 结构 体 为 实数 类 型 时 , 同样 必须 传送 此 参数 ， 
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不 过 内 容 为 空 。 
举 例 , 下 面 是 一 个 使 用 Visual Basic 编写 的 一 段 范例 程序 ， 


rem 变量 声明 
Dim MatLab As Object 
Dim MReal 《1，3) As Double 
Dim MJmag 〈《) As Double 
Dim i，j As Integer 


tretm 为 数组 变量 赋值 
Fori 一 0Tol 
For j 一 0To3 
MReal (ii i 一 TI< js 
Next j 
Next I 
retn 开启 MATLAB 自动 化 式 务 器 


Set Matiab 一 CreateObject 《"Matlab. 和 pplieationy7 


rem 向 MATILAB 输出 数据 
Call MatLab. PutFullMatrixz 〔”‰",”base”，MReal ，MImag) 


7.3 ”动态 数据 交换 


动态 数据 交换 (DDE) ， 即 Dynamic Data Exchange, 是 Window 98 支持 的 几 种 进程 
间 通 信 机 制 之 一 ， 其 他 三 种 机 制 是 Windows 剪贴 板 、 动 态 链接 库 中 的 共享 内 存 和 Ac- 
tiveX。DDE 的 功能 没有 ActiveX 那样 强大 , 不 过 相对 于 AcetiveX 来 说 , DDE 较为 容易 实 
现 。 本 节 中 , 我 们 将 首先 介绍 DDE 的 基本 概念 和 术语 ,， 然后 对 MATLAB 所 提供 的 DDE 
功能 进行 介绍 。 


7.3.1 DBDE 的 基本 概念 和 术语 


DDE 是 基于 Windows 的 消息 机 制 , 两 个 Windows 应 用 程序 通过 相互 之 间 传 递 消息 
进行 “对 话 ”， 这 两 个 程序 分 别 被 称 为 “服务 器 ”和 “客户 ”。DDE 服务 器 是 一 个 维护 着 
其 他 罗 indows 程序 可 能 使 用 的 数据 的 程序 ， 而 DDE 客户 则 是 从 服务 器 获得 这 些 数据 的 
程序 。 

DDE 对 话 是 由 客户 程序 发 动 的 。 客户 程序 将 一 条 称 为 WM _DDE _INITIATE 的 消 
息 发 给 当前 运行 的 所 有 Windows 程序 , 这 条 消息 指明 了 客户 程序 所 需要 的 数据 类 别 , 拥 
有 这 些 孝 据 的 DDE 服务 器 可 以 响应 这 条 消息 ， 这 样 ， 一 个 对 话 就 开始 了 。 

同一 个 妈 indows 应 用 程序 既 可 以 是 一 个 程序 的 客户 ， 也 可 以 是 另 一 个 程序 的 服务 
器 ， 但 这 需要 两 种 不 同 的 对 话 。 一 个 服务 器 可 以 将 数据 传 给 多 个 客户 ， 一 个 客户 也 可 以 
从 多 个 服务 器 获取 数据 ， 同 样 这 也 需要 多 种 DDE 对 话 。 一 般 来 说 ， 支 持 DDE 的 程序 将 
为 其 所 维护 的 每 种 对 话 创建 一 个 隐藏 的 子 窗口 。 
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DDE 对 话 涉及 到 的 程序 不 需要 为 了 协同 工作 而 进行 特殊 的 编程 ， 一 般 来 说 DDE 的 
作者 会 公开 数据 是 如 何 被 识别 的 ， 而 DDE 客户 程序 的 用 户 就 可 以 利用 这 些 信 息 来 建立 
两 个 程序 之 间 的 DDE 对 话 了 。 如 果 要 编写 两 个 或 多 个 必须 相互 通讯 而 不 与 其 他 Win- 
dows 程序 进行 通讯 的 丽 indows 程序 ,就 可 以 考虑 定义 自己 的 迁 讯 协议 . 但 是 如 果 两 个 或 
狗 个 程序 既 要 读 共 享 数 据 又 要 写 人 它 ， 那 么 就 必须 将 数据 存放 在 一 个 内 存 映 象 文 件 中 。 

在 客户 程序 发 送 的 WM _DDE _INITIATE 消息 中 ,不 但 指明 了 所 需要 的 数据 的 类 
型 ， 而 且 包 含 了 它 所 需要 的 服务 器 名 (service) 和 主题 (topic)， 其 中 服务 器 名 标识 了 客 
户 程序 希望 建立 对 话 的 对 象 ， 例 如 Microsoft 到 ord 的 服务 器 名 为 殉 inWord，Microsoft 
Excel 的 服务 器 名 为 Excel, 而 MATLAB 的 服务 器 名 为 Matiab; 主题 则 定义 了 对 话 的 题 
目 ， 一 般 对 于 建立 PDE 对 话 的 双方 均 是 有 意义 的 ， 并 昌 主 题 一 般 是 不 区 分 大 小 写 的 。 
MATLAB 支持 的 两 个 主题 分 别 为 System 和 Engine, 在 后 续 的 内 容 中 , 我 们 将 对 它们 进 
行 说 明 ， 对 于 大 多 数 的 应 用 程序 均 支 持 System 主题 , 并 且 支 持 至 少 一 种 其 他 的 主题 。 主 
题 所 支持 的 数据 类 型 我 们 也 称 之 为 项 (item) , 一 般 一 个 主题 支持 至 少 一 个 项 或 者 更 多 ,项 
是 否 敏 感 大 小 写 , 取决 于 应 用 程序 , 例如 MATLAB Engine 主题 的 项 如 果 是 指向 托 阵 的 ， 
那么 项 就 是 敏感 大 小 写 的 ， 央 为 MATLAB 的 矩阵 名 是 敏感 大 小 写 的 。 

DDE 通过 Windows 的 剪贴 板 的 数据 格式 对 数据 进行 格式 化 ， 然 后 在 应 用 程序 间 进 
行 传递 。 在 MATLAEB 作为 客户 程序 时 ， 它 仅仅 支持 文本 格式 的 数据 传输 ， 而 当 MAT- 
LAB 作为 服务 器 应 用 程序 时 ， 却 可 以 支持 三 种 格式 的 数据 待 输 ， 分 别 为 文本 格式 、 元 文 
件 图 〈MetaFilepict) 格式 和 XLTable 格式 ， 分 别 描述 如 下 ， 

。 文 本 格式 : 以 文本 格式 存放 的 数据 是 一 个 以 空 字 符 结束 的 字符 缓冲 ,缓冲 中 存在 
以 行 存放 的 数据 ， 则 在 每 一 行 的 结束 以 一 个 回 车 符 和 一 个 换行 符 来 标识 ; 如 果 组 
冲 中 存在 以 列 存放 的 数据 , 则 在 每 一 列 的 结束 以 一 个 tab 符 来 标识 .MATLAB 通 
过 支持 文本 格式 来 获得 远程 的 EvalString 命令 执行 的 结果 , 同时 也 可 以 用 来 请 求 
矩阵 数据 。 此 外 矩阵 数据 也 可 以 使 用 文本 格式 发 送 给 MATLAB; 

。 元 文件 图 (MetaFilepict) 格式 ,元 文件 图 格式 是 一 种 用 来 存放 图 形 数 据 的 格式 ， 
它 不 同 于 位 图 文件 通过 存放 每 一 个 像素 点 的 数据 来 存放 图 形 的 方式 , 它 是 记录 绘 
制图 形 过 程 中 所 使 用 的 图 形 命令 和 函数 的 方式 来 描述 图 形 的 。 简 而 言 之 ,元 文件 
图 格式 是 由 一 系列 的 二 进 制 形式 的 编码 图 形 函 数 的 集合 。MATLAB 支持 元 文件 
图 格式 是 为 了 获取 一 些 远 程 执行 的 图 形 命令 执行 的 结果 ! 

。XLTable 格式 ，XLTable 格式 是 一 种 剪贴 板 支持 的 Microsoft Excel 使 用 的 数据 
格式 ， 使 用 这 种 数据 格式 的 主要 目的 是 方便 与 Microsoft 正 xcel 的 数据 交换 和 提 
高 与 Mierosoft Excel 数据 交换 的 效率 。XLTable 格式 是 一 个 拥有 数据 头 的 二 进 
制 的 缓冲 ， 数 据 头 描述 了 缓冲 中 存放 的 数据 。 


7.3.2 MATLAB 的 服务 医 程 序 功 能 


1. 与 MATLAB 服务 器 通信 的 原理 


一 个 客户 程序 可 以 通过 建立 DDE 对 话 的 方法 ,将 MATLAB 作为 一 个 服务 器 程序 来 
进行 访 条 。 建 立 DDE 对 话 的 方法 主要 有 以 下 几 种 , 具体 选用 何 种 方法 建立 对 话 ， 取决 于 
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所 使 用 的 应 用 程序 ， 
。 如 果 用 户 使 用 的 应 用 程序 提供 了 支持 DDE 的 函数 或 者 安 ， 那 么 用 户 可 以 直接 使 
用 这 些 宏和 函数 来 建立 与 MATLAB 间 的 DDE 对 话 ， 典 型 的 应 用 程序 包括 Mi- 
crosoft Basic, Microsoft Visual C 十 十 ,Microsoft 妈 ord 以 及 Microsoft Excel 等 ; 
。 如 果 用 户 希望 通过 自己 的 应 用 程序 建立 与 MATLAB 之 间 的 连接 , 可 以 通过 使 用 
MATLAB 引擎 函数 库 或 者 直接 使 用 DDE， 

图 7. 5 描述 了 应 用 程序 是 如 何 同 作为 服务 器 的 MATLAB 通信 的 原理 。 两 者 之 间 的 
通信 实际 上 是 通过 客户 应 用 程序 中 的 DDE 函数 模块 与 MATLAB 中 的 DDE 服务 器 模块 
之 间 的 通信 来 完成 的 。 客户 应 用 程序 中 的 DDE 本 数 模块 既 可 以 由 应 用 程序 提供 , 也 可 以 
由 MATLAB 的 引擎 函数 库 提供 。 














MATLAB 客户 端 应 用 程序 


图 7.5 MATILAB 服 务 器 原理 加 


2.MATLAB 服务 器 的 构成 及 说 明 


在 用 户 将 MATLAEB 作为 服务 器 进行 访问 时 , 必须 提供 服务 器 的 名 字 、 主题 和 项 , 这 
是 非常 必须 的 。 在 前 面 我 们 已 经 对 MATLA 提供 的 主题 进行 了 一 定 的 讲解 ,下面 我 们 将 
对 MATLAB 所 提 的 全 部 DDE 服务 器 功能 进行 说 明 ， 图 7. 6 为 其 结构 图 。 


Itema 





iopies 
Service Topice 
MATLAB 瑟 ngEvalString 
EngStringRestult 
[es 
ngFigureResult 
《taattiX Darmey》 


图 ?7.6 MATLAB DDE 结构 图 
由 上 图 可 以 看 出 ，MATLAB 一 共 支 持 两 种 类 型 的 主题 ， 分 别 为 System 和 Engine 
。System 主题 包含 了 三 个 项 ， 分 别 为 Sysltems ，Format 和 Topics ， 其 中 SysItems 
项 提供 了 一 个 以 tab 字符 结尾 的 包含 了 System 主题 所 支持 的 全 部 项 的 列表 ; 
Format 项 提供 了 一 个 以 tab 字符 结尾 的 包含 MATLAB DDE 服务 器 支持 的 全 部 
数据 格式 名 的 字符 串 的 列表 ，MATLAB 服务 器 共 支 持 三 种 类 型 的 数据 格式 ， 分 
别 为 文本 格式 、 元 文件 图 格式 和 XLTable 格式 , 关于 这 些 格式 在 前 面 我 们 已 经 进 
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行 了 讲述 ， 而 Tepics 项 提供 了 以 tab 字符 结尾 的 包含 MATLAB DDE 服务 器 文 
持 的 全 部 主题 名 的 列表 。 通 过 它们 ， 用 户 可 以 浏览 服务 器 所 提供 的 主题 的 列表 ， 
System 主题 提供 的 项 的 列表 和 服务 器 支持 的 格式 的 列表 。 

。Engine 主题 对 三 种 客户 映 应 用 程序 中 可 能 的 DDE 操作 提供 了 支持 ， 这 些 操作 包 
括 发 送 命令 到 MATLAB 中 执行 、 从 MATLAB 中 请 求 数据 和 向 MATLAB 发 送 
数据 ， 

旦 发送 命 令 到 MATLAB 中 执行 ， 客 户 端 应 用 程序 可 以 通过 DDE 执行 操作 向 
MATLAEB 发 送 命令 进行 执行 .在 MATLAB 的 引擎 主题 中 ， 支 持 两 种 形式 的 
DDE 执行 操作 ， 这 是 因为 一 些 客户 端 应 用 程序 在 执行 DDE 执行 操作 时 不 但 要 
求 用 户 提供 项 的 名 字 ， 而 生还 要 求 用 户 提供 相应 的 希望 执行 的 MATLAB 命令 
的 名 字 ， 而 一 些 客户 端 应 用 程序 只 要 求 用 户 提供 希望 执行 命令 的 名 字 。 在 两 种 
形式 中 ， 命 令 名 必须 以 文本 格式 进行 存放 。 对 于 绝 大 多 数 的 客户 程序 来 说 ， 它 
们 均 以 文本 格式 为 默认 的 传送 DDE 执行 命令 的 格式 , 也 就 是 说 , 如 果 用 户 不 清 
楚 具 体 的 数据 格式 ， 那 么 在 一 般 情 况 下 应 该 为 文本 格式 。 

从 MATLAB 中 请 求 数据 ， 客 户 端 应 用 程序 可 以 通过 DDE 请 求 操作 向 MAT- 
LAB 服务 器 请 求 数据 。 在 MATLAB 的 引擎 主题 中 ， 支 持 三 种 类 型 的 数据 请 求 
操作 ,分别 为 文本 格式 数据 的 请 求 操作 、 图 形 数 据 的 请 求 操 作 和 指定 矩阵 的 数据 
请 求 操 作 ; 

生 通过 使 用 文本 格式 数据 的 EngStringResult 项 , 用 户 可 以 请 求 DDE 执行 命令 
的 字符 串 结果 ; 

生 通过 EngFigureResult 项 , 用 户 可 以 请 求 一 个 DDE 执行 命令 的 图 形 结 果 ; 这 
里 必须 注意 的 是 EngPFigureResult 项 可 以 配合 两 种 格式 的 数据 进行 使 用 ， 即 
文本 格式 和 元 文件 图 格式 。 当 使 用 文本 格式 的 数据 时 ,命令 执行 返回 的 结果 
为 字符 串 “yes” 或 “no*， 如 果 返 回 的 字符 串 为 “yes”， 则 表示 当前 图 形 的 
元 文件 已 经 被 存放 于 剪贴 板 中 ; 如 果 返 回 的 字符 串 为 “no”, 则 表示 剪贴 板 中 
没有 数据 。 这 项 功能 主要 是 提供 给 那些 智能 接收 文本 格式 数据 的 客户 端 程序 
使 用 ， 例 如 Microsoft Word。 当 使 用 元 文件 图 格式 的 数据 时 ，EngFigureRe- 
sult 项 将 直接 返回 包含 当前 图 黎 的 元 文件 。 

私 当 用 户 希望 请 求 某 个 符 阵 的 数据 时 , 可 以 直接 将 该 矩阵 的 和 名字 作 为 项 传递 给 
MATLAB 服务 器 ， 这 时 可 以 使 用 两 种 不 同 的 数据 格式 ， 分 别 为 文本 格 武 和 
XLTable 格式 。 

中 向 MATLAB 发 送 数据 ,客户 应 用 程序 通过 使 用 DDE 发 送 操作 可 以 人 向 MAT- 
LAB 发 送 数 据 . 在 MATLABE 的 引擎 主题 中 ， 支 持 两 种 类 型 的 DDE 传送 操作 ， 
即 在 MATLABE 的 工作 空间 中 创建 新 的 矩阵 和 更 新 已 经 存在 的 抢 阵 ， 项 用 来 表 
示 用 户 希 望 创建 或 更 新 的 矩阵 名 。MATLAB 服务 器 通过 判断 用 户 确 定 的 丈 阵 
名 在 工作 空间 中 是 否 存 在 ,来 决定 是 创建 操作 还 是 更 新 操作 .用 户 传 递 给 MAT- 
LAB 的 数据 既 可 以 存放 为 文本 格式 ， 也 可 以 存放 为 XLTable 格式 。 
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3.MATLAB DDE 服务 器 的 使 用 举例 


为 了 演示 MATLAB DDE 服务 器 的 使 用 ,MATLAB 提供 了 一 个 典型 的 Visual Basic 
同 MATLAB DDE 服务 器 通信 的 程序 。 下 面 我 们 一 步 一 步 地 引导 用 户 建立 该 程序 。 

首先 ， 启 动 Visual Basic， 进 入 集成 工作 环境 ， 创 建 一 个 新 的 工程 ; 

其 次 , 在 Form1l 窗 体 上 ， 放 置 两 个 编辑 框 控 件 ， 并 且 分 别 将 名 字 改 为 TextInput 和 
TextOutput ， 人 参见 图 7.7; 

再 次 , 选择 TextInput 编辑 框 控 件 , 单 击 鼠 标 右键 , 将 弹出 一 个 浮动 的 菜单 , 选择 其 
中 的 View Code 菜单 项 ， 这 时 将 出 现代 码 编辑 框 ; 

第 四 步 , 从 代码 编辑 框 上 方 的 下 拉 式 选项 杠 中 选择 KeyPress 事件 ,这 时 Visual Basic 
将 自动 产生 事件 处 理 函 数 的 框 课 ， 如 下 ， 

了 rivate Sub TextInput _ 开 eyPress (KeyAscii As Integer) 


rr 本 ve YY io 





7.7 窗 居 样 式 
End Sub 
用 户 可 以 在 它们 之 中 添加 代码 ， 完 成 事件 处 理 任务 ; 
事件 处 理 的 代码 如 下 : 


Rem ”判断 输入 的 字符 是 否 为 回 车 ， 如 果 是 ， 则 进行 后 续 的 操作 ， 
如 果 不 是 则 直接 返回 


If KeyAseii 一 vbKeyReturn Thben 
Rem 如 果 用 户 键入 回 车 符 ， 执 行 前 面 的 操作 


Rem 首先 断 开 控 件 TextInput 与 其 他 所 有 DDE 服务 器 的 过 接 
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Textlnput. LinkMede 一 vbLinkNone 


Rem 将 控件 TextInput 的 DDE 连接 对 象 和 主题 设置 为 MATLAB|Engine 
TextInput. LinkTopic 一 “MATILABiEngine” 


Rem 将 控件 TextInput 的 DDE 连接 司 用 的 项 设置 为 EngEvalString 
TextInput. LinkItem 一 “EngEvalString?” 


Re 建立 连接 
TextInput, LinkMeode 一 vbLinkManual 


Rem 执行 控件 TextInput 中 包含 的 命令 
szCommand 一 TextJnput,. Text 


TextInput. Link 素 xecute 〈szComirmand) 


Rem 断 开 控件 TextInput 与 MATLAB 服务 器 的 连接 
TextInput. LinkMede 一 vbLinkNone 


Rem 首先 断 开 控件 TextOutpnut 与 其 他 所 有 DDE 阴 务 器 的 连接 
TextOutput. LinkMode 王 vbLinkNone 


Rem 将 控件 TextOutput 的 DDE 连接 对 象 和 主题 设置 为 MATLAB1Engine 
TextOutpbut, LinkTopic =“MATILAB1Enagine” 


Renm 将 控件 TextOutput 的 DIDE 连接 使 用 的 项 设置 为 EngStringResult 
TextOutpuat. LinkItem 一 “EngStringResult” 


Rem 建立 连接 
TextOutput, LinkMaode 一 vbLinkManual 


Rem 获取 数据 
TextOutpbut. LinkRequest 


Rem 断 开 控件 TextOutput 与 MATILAB 服务 器 的 连接 
TextOutput,. LinkMeode 一 vbLinkNone 
End 于 

其 完成 的 主要 功能 为 ， 当 用 户 在 编辑 框 TextInput 中 键 人 一 个 MATLAB 命令 并 回 
车 后 ， 将 该 命令 传送 给 MATLAB 执行 ， 然 后 将 MATLAB 的 输出 结果 显示 在 编辑 杠 
TextOutput 中 。 图 7. 8 为 该 程序 执行 的 结果 。 

这 里 必须 非常 注意 一 点 , 也 是 与 MATLAB 引擎 极为 不 同 的 一 点 是 在 执行 该 程序 时 ， 
MATLAB 必须 已 经 处 于 开启 状态 ， 这 主要 是 因为 DDE 只 是 一 种 进程 间 通 信 的 手段 ， 它 
不 负责 对 为 开启 的 进程 进行 启动 。 如 果 在 执行 该 程序 之 前 , 没有 启动 MATLAB， 程序 将 
报错 ， 如 图 7.9 所 示 。 


第 7 章 客户 机 /服务 器 应 用 程序 357， 





B*8 


ss | 允 - 届 


图 7.8 执行 结果 





RUn-time error 282: 


Ne foreign application responded to a DDE initiate 





Cnprtinge | End 


图 7.9 错误 消息 


7.3.3 MATLAB 的 客户 端 程序 功能 


MATLAB 通过 自身 的 DDE 客户 端 模块 与 服务 器 应 用 程序 的 DDE 服务 模块 进行 通 
信 ， 其 原理 图 如 图 7. 10 所 示 

MATLAB 中 的 DDE 客户 端 模块 包含 了 一 系列 的 函数 〈 见 表 7. 3)， 通 过 这 些 函 数 ， 
用 户 可 以 方便 地 将 MATLAB 作为 DDE 的 客户 端 与 服务 器 应 用 程序 相连 接 。 
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表 7.3 DDE 客户 端 函数 










adeadv 
ddeexec 
adetnit 
ddepoke 
dudeyeg 


在 MATLAB 同 DDF 服务 器 应 用 程序 之 闸 建 立 一 个 顾 癌 连 接 
向 DDE 服务 器 应 用 酚 序 发 送 用 于 执行 的 命令 

初始 化 MATLAB 同 另 ~- 个 应 用 程序 间 的 DDE 对 话 

从 MATLAB 向 DDE 服务 器 应 用 程序 发 送 数据 
从 DDF 服 务 器 应 用 程序 请 求 数 据 
终止 DDE 服务 器 应 用 程序 与 MATLAB 间 的 DDE 对 话 
大 放 MATLAB 网 PDF 服务 器 应 用 程序 之 间 建 立 的 顾问 连接 
















服务 只 应 用 程序 


DDE 客户 端 模 块 DDE 服务 器 模块 





图 7. 10 ”MATLAB 服 务 器 原理 区 


理解 了 这 些 函 数 ,也 就 理解 了 MATLAB 的 客户 端 功能 ,下面 我 们 将 对 这 些 函 数 进行 
逐一 的 讲解 。 


TI1，ddeinit 
功 能: 初始 化 MATLAB 辐 另 一 个 应 用 程序 间 的 DDE 对 话 。 


语 ”法 ，channel 一 dqeinit 《service，topic) 

说 “” 明 ,函数 ddeinit 的 执行 需要 两 个 输入 参数 ， 一 个 为 服务 器 应 用 程序 的 标识 名 
service, 另 一 个 为 对 话 主题 的 标识 名 topoie 。 如果 函 数 执行 成 功 , 将 返回 一 
个 标识 通道 的 值 channel, 该 值 可 以 为 其 他 的 MATLAB DDE 函数 所 使 用 。 

举例，% 初始 化 一 个 MATLAB 同 Microsoft Excel 间 的 DDE 开 
M% 对 象 为 Microsoft Excel 的 文件 forecast. xls 


channel 一 ddeinit (rexcel' ，!'forecast. xls' )# 
2，ddeexec 
功能 ,向 DDE 服务 器 应 用 程序 发 送 用 于 执行 的 命令 。 


语法 ，re = ddeexec (channel ，command，item， timecut) 
说 “ 明 , 函数 ddeexee 通过 已 经 建立 起 的 MATLAB 同 服务 器 应 用 程序 阿 的 对 话 , 向 
DDE 服务 器 程序 发 出 一 条 用 于 执行 的 命令 ， 它 的 各 输 和 人 参数 的 含义 如 下 : 
。channel 为 前 面 使 用 函数 ddeinit 建立 的 DDE 对 话 ; 
。zcotnmand 为 用 户 希望 执行 的 命令 ; 
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。 item 为 一 个 可 选 的 参数 ， 为 用 于 数据 传输 的 DPE 项 ， 决 定 了 传输 数 
据 的 格式 ， 对 于 大 多 数 的 应 用 程序 均 不 使 用 该 参数 ; 
。timeonut 同样 为 一 个 可 选 参数 ， 它 是 一 个 用 于 指定 超时 时 间 长 短 的 数 
量 ， 单 位 为 微 秒 ， 黑 认 情 况 下 为 3000ms ， 即 三 秒 。 
如 果 该 函数 执行 成 功 ， 其 返回 值 为 1， 否则 为 0。 
举 例 ，% 通过 已 经 建立 的 通道 channel 向 Excel 发 送 一 个 执行 命令 


rc 一 ddeexec (channel,，′ [formula, goto 《他 1c1 四 7]); 
3，ddepoke 


功 能 , 从 MATLAB 向 DDE 服务 器 应 用 程序 发 送 数据 。 
谐 法 ,rc 一 ddepoke (channel，item，data ，format，titmeout) 
说 ” 明 , 通过 函数 ddepoke, 用 户 可 以 使 用 已 经 建立 起 的 MATLAB 同 服务 器 应 用 程 
序 间 的 对 话 ， 向 DDE 服务 器 程序 发 送 数据 。 在 发 送 数据 时 ， 函 数 将 按 下 面 
的 要 求 对 数据 格式 进行 转换 ; 
。 对 于 字符 串 和 矩阵， 下 数 一 个 元 素 一 个 元 素 地 将 矩阵 转化 为 字符 并 存 
放 在 一 个 缓冲 之 中 ， 然 后 将 缓冲 发 送 到 服务 器 应 用 程序 中 ; 
。 对 于 数值 矩阵 ， 函 数 将 矩阵 的 内 容 转 组 织 为 用 tab 字符 表示 列 结束 
和 用 画 车 换行 表示 行 结束 的 数字 传送 到 服务 器 应 用 程序 中 ; 并 且 训 
求 只 能 传送 非 稀 朴 矩 阵 的 实数 部 分 的 数据 。 
函数 ddepoke 的 各 输 人 参数 的 含义 如 下 
。ehannel 为 前 面 使 用 函数 ddeinit 建立 的 DDE 对 话 ; 
。item 为 用 于 数据 传输 的 DDE 项 ， 决 定 了 传输 数据 的 格式 ; 
。 data 为 用 户 希 望 传送 的 数据 ; 
。format 为 一 个 可 选 的 参数 , 是 一 个 数量 , 用 于 指定 Windows 剪贴 板 
的 数据 格式 , MATLAB 作为 客户 端 时 , 只 支持 文本 格式 的 剪贴 板 数 
据 ， 相 应 的 值 为 1; 
。timeout 同样 为 一 个 可 选 参数 , 它 是 一 个 用 于 指定 超时 时 间 长 短 的 数 
量 ， 单 位 为 微 秒 ， 默 认 情 况 下 为 3000ms， 即 三 秒 。 
如 果 该 函数 执行 成 功 ， 其 返回 值 为 1， 否则 为 0。 
举例 ，% 通 过 已 经 建立 的 通道 channel 向 Excel 发 送 一 个 5X5 的 矩阵 
re 一 ddepoke (channel，'rYlel，r5c5'，eye 〈57)5 


4。ddereq 
功能， 从 DDE 服务 器 应 用 程序 请 求 数据 


语法 ,data = ddereq 《channel，item，format，timeonut) 

说 “了 明 ， 通过 函数 ddereq， 用 户 可 以 使 用 已 经 建立 起 的 MATLAB 同 服务 器 应 用 程 
序 间 的 对 话 ， 向 DDE 服务 器 程序 请 求 数 据 。 如 果 函 数 执行 成 功 , 将 返回 一 
个 包含 请 求 的 数据 的 矩阵 ;如 果 函 数 执行 失败 ， 将 返回 一 个 空 徐 阵 。 顶 数 
的 各 输入 参数 的 含义 如 于 : 
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。 channe]l 为 前 面 使 用 函数 ddeinit 建立 的 DDE 对 话 ; 

"item 为 用 于 数据 传输 的 DDE 项 ， 决 定 了 传输 数据 的 格式 ; 

，format 为 一 个 可 选 的 参数 , 是 一 个 数量 , 用 于 指定 允 indows 剪贴 板 
的 数据 格式 ，MATLAB 作为 客户 端 时 ， 只 支持 文本 格式 的 剪贴 板 
数据 ， 相 应 的 值 为 1; 

。，timeout 同样 为 一 个 可 选 参数 ， 它 是 一 个 用 于 指定 超时 时 间 长 短 的 
数量 ， 单 位 为 微 秒 ， 默 认 情 况 下 为 3000ms， 即 三 秒 。 

举例，%% 通 过 蕊 经 建立 的 通道 channel 向 Excel 请 求 数据 


inytntXx 一 Yidereq 〈channel，'rlcl，rlocl073 
5。ddetetrtm 


功 能 ,终止 DDE 服务 器 应 用 程序 与 MATLAB 间 的 DDE 对 话 

:tc 一 ddeterm 〔channei) 

: 通过 函数 ddeterm， 用 户 可 以 终止 服务 器 应 用 程序 与 MATLAB 间 的 DDE 
对 话 ， 该 函数 仅 由 一 个 输入 参数 ， 即 用 于 标识 已 经 建立 的 通道 的 channel。 

: 电 袋 止 DDE 对 话 


re 一 ddetetrm 〔《channel) ; 


媒 瀛 站 
空 加 六 


6，daqeadv 


功 能 :, 在 MATLAB 同 DDE 服务 器 应 用 程序 之 间 建 立 一 个 顾问 连接 
语 法 ; rc = ddeadv (channel，item ，callback ，upmtx，format ，timecut ) 
说 ”了 明 ， 在 通过 函数 ddeinit 在 MATLAB 同 DDE 服务 器 应 用 程序 之 间 建 立 起 一 个 
DDE 对 话 之 后 ， 通 过 函数 ddeadv， 用 户 可 以 在 MATLAB 同 DDE 服务 器 
应 用 程序 之 间 针 对 某 些 数据 ， 建 立 起 一 个 顾问 连接 。 通 过 顾问 连接 ， 用 户 
可 以 在 服务 器 程序 的 数据 发 生变 化 时 ， 通 知客 户 程序 即 MATLAB。 在 
MATLAB 作为 客户 端 程序 时 , 支持 两 种 类 型 的 顾问 连接 , 它们 分 别称 为 热 
连接 (hot link》 和 温 连 接 (warm link) ， 它 们 之 间 的 区 别 在 于 当 数 据 发 生 
改变 时 ， 热 连接 将 导致 服务 器 立即 向 MATLAB 发 送 数据 ， 而 温 连 接 仅 在 
MATLAB 请 求 数 据 时 才 通 知 MATLAB 数据 已 经 发 生 了 变化 。 画 数 
ddeady 的 各 输入 参数 的 含义 如 下 ， 
。channel 为 前 面 使 用 画 数 ddeinit 建立 的 DDE 对 话 ! 
。item 为 用 于 数据 传输 的 DDE 项 ， 决 定 了 传输 数据 的 格式 
。ecallback 为 服务 器 数据 发 生变 化 时 ， 服 务 器 通知 MATILAB， 
MATLAB 的 响应 动作 ; 
。upmtx 为 一 个 可 选 参数 ， 是 一 个 用 来 存放 更 新 数据 矩阵 名 字 的 字符 
串 ， 当 使 用 该 参数 时 ， 如 果 服 务 器 的 数据 发 生变 化 ， 将 导致 tpmtx 
表示 的 被 更 改 的 数据 所 更 新 如果 在 工作 空间 中 存在 同名 的 矩阵 , 那 
么 该 矩阵 将 被 杆 盖 ， 如 果 不 存在 己 名 和 矩阵， 将 创建 一 个 新 的 矩阵 ; 
。format 为 一 个 可 选 的 参数 ,是 一 个 数量 , 用 于 指定 允 indows 剪贴 板 
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的 数据 格式 ，MATLAB 作为 客户 端 时 ， 只 支持 文本 格式 的 剪贴 板 
数据 ， 相 应 的 值 为 1; 
。 timeout 同样 为 一 个 可 选 参数 ， 它 是 一 个 用 于 指定 超时 时 间 长 短 的 
数量 ， 单 位 为 微 秒 ， 默 认 情 况 于 为 3000ms ， 即 三 秒 。 
如 果 该 函数 执行 成 功 ， 其 返回 值 为 1， 和 否则 为 0。 
举例 : 下 面 是 一 个 由 MATLASB 提供 的 示例 程序 , 其 源 代码 如 下 , 我 们 对 其 加 以 注释 ， 


%% 初始 化 与 Excel 的 DDE 对 话 
chan 一 ddqeinit 〔'excel ，'Sheet1')) 


% 设置 输出 数据 的 范 转 
range 一 'Tlel+ r20c20 5 
%% 产生 一 个 图 形 窗口 ， 并 得 到 用 于 输出 的 矩阵 > 
和 一 St (peaks 〈2077)8 
z 一 get (h，'zdqata' ); 
史 将 矩阵 z 输出 到 Excel 的 电子 表格 中 
rc 一 ddepoke 〈chan ，range，z)3 
% 针对 数据 z 在 MATLAB 同 Excel 之 间 建 立 一 个 热 连接 ， 
% 往 时 通过 回调 函数 利用 数据 zdata 和 cdqata 对 曲面 h 重 给 
rc 一 ddeadvy 〈chan，rangey'set 《hzdata' ，z)# Set 《hycdata  ，z)51 2 
% 在 图 形 窗 口中 建立 一 个 按钮 ， 并 提供 响应 函数 ， 用 于 终止 热 连接 
% 并 且 关 闭 图 形 窗 口 
ec 一 uicontrol ('String' ,"R&uClose' Position' ，[5 5 80 30],..-. 
ICallback' ,rrc 一 ddeunadv (chan ,range);ddeterm(chan)yclose 拓 ?1 


执行 上 面 的 代码 后 ，MATLAB 将 显示 冉 7. 11 所 示 的 图 形 ， 

这 寺 在 Excel 中 对 数据 进行 修改 , 将 会 导致 该 图 形 的 变化 .例如 将 电子 表格 
中 的 第 一 个 数据 改 为 10, 图 形 将 变 为 如 下 形式 〈 见 图 ?7.12)， 在 坐标 (0,，0， 
0) 处 图 形 有 一 个 明显 的 突起 。 


7 了 7。 ddeunadv 
功能: 释放 MATLAB 同 DDE 服务 器 应 用 程序 之 间 建 立 的 顾问 连接 。 


语 法 , tc = ddeunadv (channel， item，format，timeout) 
说 “ 明 ， 该 函数 用 于 释放 MATLAB 同 DDE 轨 务 器 应 用 程序 之 间 建 立 的 问 连接 ， 
它 的 各 输 和 人 参数 含义 如 下 
@ channel 为 前 面 使 用 函数 ddeinit 建立 的 DDE 对 话 
@ item 为 用 于 数据 传输 的 DDE 项 ， 决 定 了 传输 数据 的 格式 ; 
盏 format 为 一 个 可 选 的 参数 , 是 一 个 数量 ,用 于 指定 Windows 剪贴 板 
的 数据 格式 , MATLAB 人 只 支持 文本 格式 的 剪贴 板 数 


据 ， 相应 的 值 为 13 
一 timeout 辐 尖 为 一 人 机 通 基 下 它 是 一 个 用 于 指定 超时 时 间 长 短 的 数 


量 ， 单 位 为 微 秒 ， 默 认 情 况 下 为 3000ms ， 即 三 秒 。 
如 果 该 函数 执行 成 功 ， 其 返回 值 为 1， 否则 为 0。 
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图 7.12 数据 变化 后 的 图 形 
举例 ， 见 函数 ddeadv 的 举例 。 
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MATLAB CAC 十 十 数学 函数 库 是 MATLAB 为 C 语言 和 C 十 十 语言 提供 的 两 个 用 
于 阵列 运算 的 数学 函数 库 , 是 MATLAB 产品 家 族 的 重要 组 成 成 员 .准确 地 说 ,MATLAB 
CC 十 十 数学 函数 库 不 是 MATLAB 应 用 程序 接口 的 组 成 部 分 , 而 是 属于 “MATLAB 扩 
展 ”部 分 的 内 容 ， 这 从 本 书 的 第 一 章 的 图 1. 3 可 以 明显 看 出 。 我 们 之 所 以 将 它 放 在 本 书 
中 进行 讲述 揭 主 要 原因 是 , 从 某 种 程度 上 说 , MATLAB CAC 十 十 数学 函数 库 所 提供 的 功 
能 与 MATLAB 应 用 程序 接口 提供 的 功能 非常 类 似 ， 即 可 以 充分 地 利用 MATILAB 所 所 
供 的 高 效 的 面向 阵列 的 数值 计算 能 力 和 大 量 的 内 建 函 数 ， 从 而 大 大 地 提高 算法 开发 的 速 
度 , 缩短 开发 抽 期 .当然 MATLAB CAC 十 十 数学 函数 库 积 MATLAB 应 用 程序 接口 作为 
MATLAB 产品 家 族 的 不 同 成 员 ， 它 们 之 间 的 差异 也 是 相当 巨大 的 ， 
首先 ,基于 二 者 开发 的 应 用 程序 的 目的 完全 不 同 .基于 MATLAB 应 用 程序 接口 开发 
应 用 程序 的 目的 一 般 来 说 可 以 分 为 三 点 :第 一 ,是 为 了 建立 MATLAB 与 其 他 应 用 程序 间 
的 数据 交换 , 这 主要 是 MAT 文件 应 用 程序 来 完成 的 ; 第 二 , 是 为 了 充分 利用 其 他 应 用 程 
序 的 优点 如 计算 速度 快 和 已 有 的 算法 程序 , 从 而 避免 重复 的 开发 ,这 主要 是 通过 MEX 文 
件 来 完成 的 ; 第 三 , 是 为 了 拓 广 MATLAB 的 应 用 范围 和 应 用 手段 , 如 在 Visual Basic 和 
Visual C 十 十 中 对 MATLAB 进行 调用 ,这 主要 是 通过 MATLAB 引擎 和 MATLAB Ac- 
tiveX 来 完成 的 , 而 基于 MATLAB C/C 十 十 数学 函数 库 开 发 应 用 程序 的 目的 相对 来 说 就 
简单 许多 了 ， 就 是 为 了 利用 现 有 的 MATLAB 所 提供 的 功能 ， 简 化 在 C 语言 和 C 十 十 语 
言 中 对 和 矩阵 的 处 理 。 
其 次 , 基于 二 者 开发 的 应 用 程序 的 执行 方式 也 完全 不 同 . 基 于 MATLAB 应 用 程序 接 
口 开发 的 应 用 程序 主要 可 以 分 为 三 种 ，、 即 MEX 文件 .MAT 文件 应 用 程序 和 MATLAB 
引擎 应 用 程序 , 其 中 MEX 文件 为 一 种 动态 链接 库 程 序 , 它 不 能 脱离 MATLAB 的 工作 环 
境 而 执行 ,必须 在 MATLAB 的 工作 环境 内 部 , 通过 MATLAB 调用 才能 运行 MAT 文 
件 应 用 程序 是 一 种 可 以 独立 执行 的 应 用 程序 ， 但 它 完成 的 芭 能 非常 有 限 ， 只 能 用 于 数据 
交换 , 而 不 能 利用 MATLAB 所 提供 的 功能 来 完成 计算 任务 ;: MATLABS 引擎 应 用 程序 也 
是 一 种 可 以 独立 执行 的 应 用 程序 , 但 是 在 应 用 程序 执行 时 , 将 在 后 台 启 动 一 个 MATLAB 
进程 ， 用 于 接收 从 应 用 程序 发 送 来 的 指令 并 执行 ， 然 后 按 要 求 返 回 计算 结 果 。 综 上 所 述 ， 
可 以 看 出 ， 基 于 MATLAB 应 用 程序 接口 开发 的 应 用 程序 并 不 是 一 种 独立 可 执行 的 应 用 
程序 ,仍然 需要 依 知 MATLAB。 而 基于 MATLAB C/C 二 十 数学 函数 库 开 发 的 应 用 程 冶 
则 完全 不 同 , 一 旦 它们 建立 成 功 , 就 无 需 依靠 MATLAB, 可 以 完全 独立 地 执行 , 与 MEX 
文件 和 MATLAB 引 警 应 用 程序 相 比 ， 它 们 主要 具有 以 下 几 个 明显 的 优点 : 
。 抽 行 速度 快 ; 
和 内 存 需 求 小 ; 
。 可 以 发 布 给 没有 MATLAB 的 用 户 使 用 。 
但 是 ， 也 正 是 由 于 基于 MATLAB C 十 十 数学 函数 库 编 写 的 应 用 程序 的 独立 可 执行 
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性 ， 导 致 了 它们 具有 议 下 的 缺点 ， 

* 用 户 不 能 在 基于 MATLAB C 十 十 数学 函数 库 的 应 用 程序 中 使 用 MATLAEB 的 函 
数 eval () 和 input (〈)， 

。 用户 不 能 在 基于 MATLAB C 十 十 数学 函数 库 的 应 用 程序 中 调用 MATLAB 的 图 
形 句 柄 系统 的 函数 ; 

。 用 户 不 能 在 基于 MATLAB C 十 十 数学 函数 库 的 应 用 程序 中 调用 MATLAB 工具 
箱 的 酚 数 ; 

。 用户 不 能 在 基于 MATLAB C 十 十 数学 函数 库 的 应 用 程序 中 访问 Simulink; 

。 MATLAB 中 的 一 些 语法 在 C 语言 和 C 十 十 语言 中 得 不 到 支持 ， 例 如 “:” 和 
[| 

由 于 以 上 的 优 缺 点 ， 基 于 MATLAB C++ 十 数学 区 数 库 编 写 的 应 用 程序 非常 适合 应 
用 于 需要 进行 大 规模 计算 并 且 没 有 图 形 输 出 的 场合 ， 当 然 用 户 也 可 以 使 用 第 三 方 的 图 形 
系统 来 显示 MATLAB C 十 十 数学 函数 库 的 计算 结果 。 

总 体 说 来 ,基于 MATLAB C 十 十 数学 函数 库 和 基于 MATLAEB 应 用 程序 接口 编写 的 
应 用 程序 各 有 所 长 ， 用 户 可 以 根据 需求 进行 实际 选择 。 

在 本 章 中 , 我 们 将 对 MATLAB C 十 十 数学 函数 库 进 行 一 些 简单 的 介绍 , 使 读者 掌握 
基本 的 MATLAB C 十 十 数学 函数 库 的 概念 和 使 用 方法 , 能 够 编写 简单 的 程序 , 而 对 一 些 
较 为 深入 的 内 容 不 予 说 明 ， 因 为 这 部 分 内 容 并 不 是 本 书 的 重点 。 同 时 本 书 忽 略 了 
MATLABC 数 学 函数 库 的 讲解 ， 这 主要 是 因为 MATLAB C 十 十 数学 函数 库 完全 构建 在 
MATLAB C 数学 函数 库 的 上 层 , 通过 C 十 十 的 类 的 机 制 , 对 原 有 的 MATLAB C 数学 天 
数 库 的 内 容 进 行 了 封装 ， 使 得 函数 库 更 加 易于 使 用 。 


8.1 MATLABC 十 十 数学 函数 库 简 介 


8.1.1 什么 是 MATLAB C 十 十 数学 函数 库 


简 而 言 之 , MATLAB C 十 十 数学 函数 库 就 是 一 个 由 MATLAB 提供 的 基于 C 十 十 请 
言 的 数学 函 教 库 ， 其 中 包含 了 大 约 400 个 MATLAB 的 数学 函数 ， 不 但 包括 了 大 量 的 
MATLAB 内 建 数学 函数 ,而 且 包含 了 许多 在 MATLAB 中 被 声明 为 M 文件 的 数学 函数 ， 
为 C 十 十 语言 中 矩阵 的 计算 和 处 理 提供 了 方便 而 快捷 的 手段 。MathWorks 公司 提供 
MATLAB C 十 十 数学 函数 库 主 要 是 出 于 两 个 方面 的 目的 ， 
。 对 于 编写 M 文件 的 MATLAB 程序 员 来 说 ， 可 以 利用 已 有 的 编写 M 文件 的 知识 
和 和 经验， 花费 极 小 的 代价 ， 利 用 该 数学 函数 库 来 编写 代码 极为 类 似 于 MATLAB 
的 M 文件 的 , 而 性 能 却 显 著 提 高 的 , 并 且 可 以 脱离 MATLA8B 的 解释 性 环境 独立 
执行 的 应 用 程序 ; 
。 对 于 C 十 十 的 程序 员 来 说 ,该 数学 函数 库 则 提供 了 一 个 非常 自然 面 又 非常 牢固 的 
编程 接口 和 大 量 的 功能 丰富 的 矩阵 计算 和 处 理 函 数 , 可 以 使 C 十 十 程序 员 方便 快 
着 地 利用 其 获得 MATLAB 所 提供 的 强大 的 矩阵 计算 和 处 理 能 力 , 从 而 大 大 地 提 
高 程序 设计 的 效率 。 此 外 ， 该 数学 函数 库 还 对 程序 员 隐蔽 了 大 量 的 编程 细节 , 例 
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如 内 存 管理 等 ， 可 以 使 程序 员 用 一 种 非常 简单 直接 的 语法 按 他 们 的 想法 去 编程 ， 
集中 全 力 去 解决 问题 ， 而 无 须 考虑 工具 本 身 。 


S, 1.2 ”类 mwArray 


为 了 方便 线性 代数 算法 的 开发 , 在 MATLAB C 十 十 数学 画 数 库 中 , 定义 了 大 量 相关 
的 类 和 函数 ， 其 中 最 为 重要 和 最 为 基础 的 类 就 是 类 mwArray， 它 相对 应 于 MATLAB 中 
的 阵列 数据 类 型 , 是 MATLAB C 十 十 数学 函数 库 中 最 为 基本 的 数据 类 型 , 也 是 用 户 学 习 
使 用 MATLAB C 十 十 数学 函数 库 的 关键 。 类 mwArray 支持 大 部 分 的 MATLAB 运算 符 
和 所 有 的 MATLAB 数学 函数 ， 不 支持 的 MATLAB 运算 符 仅 有 以 下 玫 种 ; 

NA 
这 主要 是 因为 在 C 十 十 语法 中 , 它们 为 非法 的 标识 符 , 不 过 在 MATLAB C 十 十 数学 函数 
库 中 提供 了 相应 的 函数 来 替代 这 些 运 算 符 完成 相应 的 功能 .这 里 必须 明确 指出 的 一 点 是 ， 
千 万 不 要 将 类 mwArray 与 前 面 的 在 MATLAB 应 用 程序 接口 中 的 mxArray 结构 体 相 混 
应 ，mxArray 结构 体 是 基于 C 语言 定义 的 相对 应 于 MATLAB 阵列 的 数据 类 型 ， 而 类 
mwArray 则 是 利用 C 二 十 语言 的 类 机 制 对 结构 体 mxArray 和 一 些 相应 的 函数 进行 封装 
后 的 结果 。 

在 每 一 个 mwArray 的 类 对 象 的 内 部 , 均 包 含 了 一 个 指向 MATLAS 阵列 的 指针 ， 也 
正 是 思 为 这 个 产 因 ,一 个 mwArray 类 对 象 的 属性 是 一 个 MATLAB 阵列 属性 的 超 集 ,其 
中 包括 了 所 指向 的 MATLAB 阵列 的 所 有 属性 。 在 这 些 属 性 中 , 不 但 包括 了 人 阵列 的 大 小 、 
形状 ， 即 阵列 的 维 数 和 各 维 的 大 小 ， 而 且 还 包括 了 一 个 或 两 个 数组 的 数据 ， 这 主要 由 阵 
列 的 类 型 来 确定 。 当 阵列 为 复数 类 型 时 , 其 中 第 一 个 数组 用 来 存放 复数 实数 部 分 的 数据 ， 
而 第 二 个 数组 则 用 来 存放 复数 虚数 部 分 的 数据 ， 当 阵列 为 实数 类 型 时 ， 属 性 中 仅 包含 第 
一 个 数组 用 于 存放 数据 ， 而 不 包含 第 二 个 数组 。 必 须 注意 的 一 点 是 ， 在 两 个 数组 中 数据 
均 以 列 优先 的 原则 存放 。 

在 MATLAB C 十 十 数学 函数 库 2. 0 版 本 中 , 对 类 mwAtray 的 功能 进行 了 进一步 的 
扩展 ， 使 得 类 mwArray 能 够 对 应 于 更 多 的 MATLAB 阵列 类 型 ， 而 且 还 包括 了 对 一 些 
MATLAB V5.X 才 具 有 的 阵列 类 型 提供 了 支持 , 例如 多 维 阵列 、 单 元 阵列 .MATLAB 结 
构 体 和 稀 琢 和 矩阵。 不 过 ， 在 MATLAB C 十 十 数学 函数 库 2. 0 版 本 中 ， 类 mwArray 并 没 
有 对 MATLAB 的 整数 类 型 的 阵列 提供 支持 ,主要 包括 intg、int16、int32、unit8、uint16 
和 uint32 类 型 的 阵列 , 同时 在 MATLABC- 二 十 数学 函数 库 中 , 也 没有 提供 对 MATLAB 
中 有 关 处 理 整 数 类 型 阵列 的 数学 函数 的 封装 ， 所 以 用 户 不 能 利用 MATLAB C 十 十 数学 
秀 数 库 来 处 理 整数 类 型 的 阵列 ， 这 一 点 必须 引起 注意 。 

总 的 来 说 , 类 mwArray 是 一 个 极为 精简 的 类 , 其 中 仅 包含 了 一 些 与 阵列 操作 紧密 相 
关 的 成 员 函 数 ， 如 构造 函数 、 析 构 函 数 、 转 换 函 数 、 内 存 管理 函数 、 赋 值 函 数 、 输 入 输 
出 函数 .索引 函数 等 , 而 不 包括 任何 的 与 数学 运算 相关 的 函数 和 运算 符 。 同 时 类 mwArray 
为 所 有 的 这 些 数学 函数 和 运算 符 提供 了 一 个 统一 的 接口 ， 通 过 这 个 接口 ， 外 部 的 数学 函 
数 和 运算 符 可 以 相当 方便 地 对 类 mwArray 的 对 象 进行 数学 计算 。 这 种 方法 使 得 类 
mwAsray 的 实现 变 得 相当 简单 , 无 论 是 对 于 类 mwArray 的 开发 者 还 是 对 于 类 mwArray 
的 使 用 者 来 说 ， 都 可 以 从 这 种 方法 获得 极 大 的 利益 。 首 先 对 于 开发 者 来 说 ， 只 要 在 不 修 
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改 接 口 的 前 握 下 , 可 以 任意 对 类 mwArray 的 内 容 进 行 修 改 , 而 无 须 对 外 部 的 数学 函数 和 
运算 符 进 行 修 政 ,为 以 后 的 升级 提供 了 方便 ; 而 对 于 使 用 者 来 说 , 类 mwArray 的 实现 越 
简单 ， 越 有 利于 用 户 的 学 习 和 使 用 。 除 此 之 外 ,类 mwArray 的 这 种 实现 方法 ,还 可 以 避 
免 由 于 MATLAB 函数 的 多 种 形式 调用 和 多 输出 而 造成 的 混淆 和 冲突 。 

有 关 类 mwArray 中 各 成 员 函 数 的 定义 ， 读 者 可 以 参见 目录 


MATLABE 根 目录 \EXTERNNINCLUDENCPP 


下 的 头 文 件 dublmtrs.h, 对 类 mwArray 进行 深 入 的 理解 , 非常 有 利于 对 MATLABC 十 十 
数学 函数 库 的 学 习 。 
下 面 我 们 将 对 类 mwArray 的 成 员 函 数 分 类 进行 讲解 。 


1. 构造 通 数 
在 类 mwArray 中 ， 共 提供 了 18 个 不 同 的 构造 函数 ， 它 们 的 定义 分 别 如 下 : 


rawArray 〔)]+ 
mw 和 Array 《const chac # Str) 
Paw 和 rray 《PiWString Str25 
mwArray 【Ditmnension ，Ditmension，mwNutrnericInitArctiorn) ; 
ImwArray〔Dimensiom。、Dirmension，double * realy double # imag 一 0， 
int copy 一 1)4 
mwArray 〔Dimension，Dimension ,int # realy int ximag 一 0)3 
mwArray ( Dimension 、Dimension，unsigned short * real， 
unsigned short * imag 一 0)i 
ImwArray 【const InWATTray Btntrx)f 
tnwArray 【const MatlabKMatrix * tmtrx，mwBool fresflg 一 1)， 
mwArray 〔(eonst MatiabMatrix *x mtrx，mwBool freeflg，PawwBool static 抽 E7; 
mw 上 Array 《double start，double step，double stop7# 
mwAArray 【const mwArrayIndex &jiqx)? 
ImWwArray 【const mwNurmaeticSubArray 入 a) 
tmwAtrray 《MatrixRef * matref); 
IRwWAxzray 《double ); 
mwArray (double，double》 
tmwArray (int)3; 
tmwArray 〔int，const char 关 ); 


其 中 Dimension 和 mwNumericInitAction 的 定义 分 别 如 下 : 


typedef int Dintensiomt# 
enlima mmWNumericJnjitAction 


{ 


mwEyeAct， /7 Places ones on the Imnain diagonal 
Inwf)nes 由 ct， /7 Fiil array with Ones 
ImwZerosAct， AAA Fill array with zeros 
ImwRandAct， /7 Fill array with fandom hutmbers 


InwRandnAct， ARill array with normaliy disttibuted random nurmbers 
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mwMagicAAct /17 Make a Imagic sqtate〔Dniy werks for matrices) 。 


} 


通过 以 上 的 这 些 构造 本 数 ， 用 户 可 以 使 用 各 种 不 同 的 方式 ， 构 造 各 种 不 同 数据 类 型 
的 .与 MATLAB 中 各 种 不 同类 型 阵列 相对 应 的 mwArray 类 对 象 . 下面 我 们 对 其 中 一 些 
较为 常用 的 构造 本 数 进行 说 明 。 

”mwArray 《)5 

该 函数 为 类 mwArray 的 默认 构造 画 数 , 通过 它 , 用 户 可 以 创建 一 个 未 初始 化 
的 mwArray 类 对 象 (或 称 为 阵列 ) ， 例 如 
mwArray 内 
当 将 该 对 象 作 为 参数 传递 给 MATLAB C 十 十 数学 函数 库 中 的 函数 时 ， 将 产生 一 
个 警告 信息 ， 因 为 在 对 象 中 不 包含 任何 的 信息 ， 所 以 在 将 由 此 构造 函数 创建 的 类 
对 象 传送 给 MATLAB C 十 十 数学 函数 库 中 的 函数 之 前 ， 必 须 进行 赋值 。 请 读者 
注意 一 点 ， 这 里 我 们 将 mwArray 类 对 象 称 为 了 阵列 ， 主 要 是 出 于 描述 方便 和 与 
MATLAB 中 概念 统一 的 目的 ， 在 后 续 的 内 容 中 ， 我 们 都 将 采用 这 种 说 明 方法 ; 
。 ImwArray (const char #str)# 
通过 该 函数 ,用户 可 以 构造 一 个 字符 串 类 型 的 阵列 ， 并且 通过 输入 的 字符 串 
指针 指向 的 字符 串 进 行 初 始 化 ， 例 如 


twWArtray 胡 《"MATLAHB Rules7)， 


。IwWArray 《int32，int32，dqdouble * ，double * )5 
通过 该 函数 , 用户 可 以 创建 一 个 指定 行 数 、 列 数 以 及 虑 部 和 实 部 数据 的 二 维 
复数 阵列 ， 例 如 
double real [] 一 11，2，3， 4 上 
double imag [] 一 {15，6,，7,， 8 j; 
nthwArtay 上 太 〔2，2，real，imag)# 
这 里 必须 明确 的 一 点 是 ， 数 组 中 实 部 和 虚 部 的 数据 必须 以 列 优先 的 原则 存 
放 ; 此 外 函数 声明 中 的 最 后 一 个 参数 为 一 个 可 选 参 数 , 当 用 户 没有 给 出 该 参数 时 ， 
函数 将 创建 一 个 实数 类 型 的 阵列 ; 
=。 taW 太 TTayY 《const mmXArray 头 )5 
通过 该 函 教 ， 用 户 可 以 通过 一 个 现成 的 mxArray 结构 体 对 象 来 创建 一 个 阵 
列 ， 该 mxArray 结构 体 对 象 既 可 以 为 MATLABC 数学 函数 库 中 函数 的 返回 结 
果 ， 也 可 以 为 MATLAEB 应 用 程序 接口 中 函数 的 返回 结果 ， 例 如 
mxArray#+ m 一 tlfScalar 《171 


mwWATray mat 《rmm)3 
，mwArtray (const mwArray&); 
通过 该 函数 , 用 户 可 以 通过 一 个 输入 的 阵列 来 构造 一 个 新 的 阵列 ， 并 且 将 输 
和 人 阵列 的 内 容 复 制 到 新 创建 的 阵列 中 ， 例 如 


tmwArray 入 一 rand 《4)5 
TDwATTYaY 已 【〈 太 7 
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实际 上 ， 该 函数 并 没有 将 对 输入 阵列 的 内 容 进行 复制 ， 而 只 是 通过 一 个 指针 
进行 引用 ， 直 至 数据 被 修改 时 ， 才 进行 真正 的 拷贝 ; 


”ImwArray 《doupble ，double ，double ); 


通过 该 函数 ,用 户 可 以 创建 一 个 元 素 间 等 差 值 的 阵列 ， 例 如 用 户 希 望 创 建 一 
个 形 如 [1.0,， 1.5,，2.0,，2.5, 3.0, 3.5 ] 的 阵列 , 则 可 以 通过 下 面 的 语句 来 完成 ， 


mWArray 入 〈《1.0，0,5，3.5); 
。，tIwArray (int32，int32，int327， 


通过 该 函数 ,用户 可 以 创建 一 个 元 素 间 等 差 值 且 元 素 为 整 型 的 阵列 ， 例 如 用 
户 希 望 创建 一 个 形 如 [1,，5，9,， 13] 的 阵列 ， 则 可 以 通过 下 面 的 语句 来 完成 : 
mwArray 〈1，4，13) 
"tnwArray 《const mwSubArray 和 7) ， 
通过 该 函数 ， 用 户 可 以 由 输入 的 mwSubArray 类 对 象 来 构造 一 个 新 的 阵列 ， 
例如 
mwArray 点 一 rand 【4)# 
ImwAAtrray 了 〈 上 《3，3775 
，ImwArray 《double)3 


通过 该 函数 ， 用 户 创建 一 个 1X1 的 双 精 度 浮 点 类 型 的 阵列 ， 例 如 
mwArray 全 〈17. 5)5 
。， TawWwArray 〈int); 
通过 该 函数 ， 用 户 可 以 从 一 个 输 人 的 整数 创建 一 个 1X1 的 阵列 ， 例 如 
mwAtrray 和 《17) 1 


2， 索 引 和 下 标 邓 教 


类 mwArray 中 ， 提 供 了 三 个 关于 对 阵列 〈 即 mwArray 类 对 象 ) 元 索 进 行 索引 和 下 
标 操作 的 函数 和 运算 符 ， 分 别 为 operater ()，cell () 和 fietd (7)， 它 们 的 功能 各 不 相同 : 
。 obperator 〔) 
operator 〈) 是 类 mwArray 定义 的 用 来 对 多 维 阵 列 的 元 素 进 行 索引 的 运算 符 ， 同 
时 还 可 以 用 来 对 由 结构 体 阵 列 和 单元 阵列 的 元 素 进行 索引 。 在 MATLAB C 十 十 数 
学 函数 库 中 ， 对 阵列 的 索引 操作 通过 三 个 类 ， 即 类 mwArray、 类 mwNumericSub-~ 
Array 和 类 mwIndex 的 交 瑟 来 完成 。 
在 类 mwArray 的 声明 中 . 包含 了 一 系列 经 过 重 载 的 operator () 运算 符 ， 允 许 
用 户 对 从 一 维 到 32 维 的 阵列 进行 索引 操作 ， 它 们 的 定义 如 下 : 
/x 1 维 *7 
tawWAArray pperator 〔) (const mwWVarargin 必 a) const# 
mwNumericSubArray operator 〈) 〈const mwVarargin &a)i 


/xx 2Z 维 */ 
mwArray operator 〔) 〔const mWATTray 人 al，Cconst Imw 凡 rrayv&a2)》 consti 
mwNumericSobArray operatot 〈) 〈const ImwArray &al，const InwArtray 吕 a2) 
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国生 和 本 有 


7x 32 维 =/ 
mw 六 rray Operator 〔) (const IFRwAYT8y Bal ，const ImwATrray 久 a2， 
censt tnwAtrtay 名 8a3，const mw 胡 rray &ad， 


cohst mwArray &a32) corst; 
tnwNumericSubArray operator 《》 const ImwArTay &al，const mwArtay &a2， 
const mwArray &a3，const mwArray &ad4， 


const Imw 生 rrTay 以 a32); 


其 中 在 每 一 维 的 索引 操作 中 均 包 含 一 对 operator () 。 
*。 cejl (》 
cell () 是 类 mwArray 定义 的 用 来 对 单元 的 内 容 进行 索引 操作 的 函数 ， 在 类 
mwArray 的 声明 中 ， 它 们 的 定义 如 下 ， 
mwArray cell (copst mwVarargin gwRIL，const mwArray KOI2 一 mwArray:: DIN， 
const tmwArITray &OIT3 一 tmwArrayit DIN， 
cotat ImwArtTay &DI4 一 mwArraytt DIN， 


ceonst mwWATray g0OI32 一 mwArray:: DIN ) consti 
mwNumericSubArray cell (const mwVarargin &RI1， 
const mwArray &(OI2 一 mwArray::，DIN， 
const mwArray &0OI3 一 mwArray:: DIN， 


censt tmwArTay &DI32 一 mwArray:: DIN 7 


函数 允许 用 户 向 其 传递 32 个 参数 ， 当 用 户 希望 对 超过 32 维 的 单元 进行 索引 时 ， 则 
用 户 必须 构造 一 个 类 mwVarargin 的 对 象 ， 并 将 其 作为 第 一 个 参数 传送 给 函数 cell ()。 


。 field 《) 
field () 是 类 mwArray 定义 的 用 来 对 结构 体 的 域 进行 索引 操作 的 下 数 ， 在 类 


mwArray 的 声明 中 ， 它 们 的 定义 如 下 : 


InwArTray fielq 《const char x fielidnatme) const; 


mwNumericSubArray field 《const char # fieldnatme》5 


3. 转换 函数 
在 类 mwArray 的 声明 中 ， 仅 包含 一 个 转换 函数 ， 其 定义 如 下 ， 


operator double 〈) const; 


通过 该 函数 , 用 户 可 以 将 一 个 1X1 的 非 复数 的 数值 阵列 , 转换 为 一 个 双 精 度 浮 点 类 
型 的 实数 。 

4 内存 管 理 阴 数 

由 于 MATLAB C 十 十 数学 本 数 库 拥有 其 自身 的 内 存 管 理 机 制 ， 因 此 运算 符 new 和 
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运算 符 delere 在 类 mwArray 中 被 进行 了 重 载 .它们 的 定义 和 实现 分 别 如 下 ; 
inline void + InwWwArray:: Opetateor newW (slze TSize) 
{ 
asseTt 《size 一 一 sizecof (mwWATray]) 


retutn InXRIailoc 【〔size7; 


imliae void mwArrayi::， Dperatotr delete 〔〈void # ptr) 
! 
ImXFree (ptr》; 
} 


5. 输入 和 输出 函数 


为 了 完成 对 mwArray 类 对 象 即 阵列 的 输入 和 输出 任务 ， 类 mwAray 对 输出 运算 符 
“< 一 <” 和 输 人 运算 符 “>>>” 进 行 了 重 载 ， 它 们 的 声明 和 定义 分 别 如 下 : 
friend inline ostreatm& operater 忆 < (osrreatm &os，const mwWATray 以 ); 


inline oatream&. .operator 民 < 所 (〈ostream Bos， const mw 人 ArTay &my) 
了 
1 
im Write 〔0sJ+ 


Teturn os 


inline ostream& operator< 居 所 (ostream &ps，const mwNutmericSubArray &a) 


{ 
o5 < 必 《mwWATT8Y) 34 


TetUIIT OSY 


friend inline istream& operator>>> (istream &is，rmwATyray 芝 ): 
iniine istreatm& operatot> 人 > (istream &is，mwArray &m) 
《 
ra Read (is); 
returhn is# 


} 


通过 调用 运算 符 二 <<， 用户 可 以 将 一 个 阵列 ( 即 mwArray 类 对 象 ) 插 人 到 一 个 指定 的 流 
中 ， 如 果 该 指定 的 流 为 cout， 那 么 阵列 的 内 容 将 被 输出 到 终端 屏幕 上 。 如 果 用 户 通过 命 
令 行 ， 对 标准 的 输出 流 进 行 了 重 定向 ， 那 么 阵列 的 内 容 将 被 输出 到 用 户 指定 的 位 置 。 通 
过 调用 运算 符 >>, 用 户 可 以 从 一 个 指定 的 流 中 读 人 阵列 ,该 流 可 以 为 任何 的 C 十 十 流 对 
象 ， 例 如 标准 终端 输入 cin、 文 件 或 一 个 字符 串 。 

从 上 面 运算 符 <<< 和 运算 符 > 之 的 声明 中 ,可 以 着 到 ， 实 际 上 ， 这 两 个 运算 符 并 不 
是 类 mwArray 的 真正 的 成 员 函 数 ， 而 是 类 mwArray 的 友 员 函数 ， 这 一 点 必须 注意 。 此 
外 在 运算 符 二 二 和 运算 符 > 之 的 实现 中 ,我 们 可 以 看 到 ， 它 们 分 别 调用 了 函数 Write (〈) 
和 Read ()， 这 两 个 函数 为 类 mwArray 的 公用 成 员 函 数 ， 它 们 的 定义 分 别 如 下 : 
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voigd Read (istream& int is2D 一 0); 
void 而 rite 〔ostream 久 ) const i 


函数 Read () 用 来 从 一 个 流 中 读 人 阵列 ， 输 入 阵列 的 格式 必须 为 如 下 形式 : 
以 关 La， b ， 人 ] 
其 中 为 系数 ，* 为 乘 号 ， 符 号 [ ] 内 为 阵列 元 束 ，a、b 和 上 为 单个 的 阵列 元 素 ， 阵 列 
中 每 一 行 的 元 素 利 用 分 号 进行 分 跑 ， 而 利用 带 号 分 隔 单个 的 元 素 。 
函数 Write () 用 来 将 阵列 格式 化 后 输出 到 指定 的 流 中 。 


6. 大 小 函数 


在 类 mwArray 中 , 提供 了 三 个 不 同 的 获取 大 小 的 函数 ,分 别 完成 不 同 的 功能 , 它们 
的 定义 和 实现 分 别 如 下 : 


int32 Size 〔)》const 
int32 Size 《int32 dimy》 consts 
int32 Size (int32 x dims，int maxdims 一 2) const， 


inline int32 mwArray:: Size 〈《) const 
{ 


retutn mxGetNutmnberOfDimensions 【GetData 《>》)3 


inline int32 mwArray::， Size (int32 qinms》conast 
《 
MattabMatTix * matrix 一 CretDara 《〈《) 
这 (tmatrix 上 一 0) 


了 
人 


话 (dim 盖 Size 〔7)) 
{ 
teturn 13 
} 
const int +# 而 marray 一 mxGerDimensions 《GetPata 〈)) 
return dimatrray [dim 一 1]; 
} 


Tettuxzn 0; 


inline int32 mwArray::， Size (int32 * dims，int inaxdirms 一 2) const 
{ 
jnt i，8ize 一 Size 〔); 
const int # dimarlay 一 InxGetDimensions (GetData 《)73 
int ndims 一 size>>tmnaxdims? maxdims ，size， 
for ti 一 01 < ndims; i 十 十 ) 
《 
dims [让 一 《int32) dimatrray [i; 
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让 《size > Imaxdims》 
{ 
jint last 一 maxdims 一 1# 
for (4 1 < sjzer i 十 十 ) 
{ 
dims [last] * 一 (int32) dimarray [i]; 
} 
} 
eljsge 这 〈(maxdims > size ) 
{ 
fcert (1 < 扫 maxdirnsi [十 十 ) 
dms [让 一 1; 
} 
》 
} 
它们 的 函 雪 名 完全 相同 , 而 输入 参数 却 各 不 相同 , 用 于 不 同情 况 , 这 是 利用 了 C 十 十 
的 函数 重 载 机 制 。 其 中 第 一 个 函数 可 以 用 来 获取 阵列 的 维 数 ， 第 二 个 函数 可 以 用 来 获取 
指定 维 数 的 大 小 , 而 第 三 个 函数 则 可 以 同时 获得 多 个 维 的 大 小 , 并 存储 在 一 个 数组 之 中 ， 
其 中 数组 dims 的 元 素 个 数 不 得 少 于 输入 参数 maxdims 。 如 果 输 人 参数 maxdimas 的 值 小 
于 阵列 的 维 数 , 则 数组 dims 中 的 最 后 一 个 元 素 的 值 为 所 有 余下 维 数 的 大 小 的 乘积 ,函数 
的 返回 值 为 阵列 的 总 的 维 数 。 


7. 数据 提取 未 数 


在 类 mwArray 中 , 提供 了 若干 个 成 员 函 数 ,， 通过 这 些 成 员 函 数 , 用 户 可 以 方便 地 获 
取 mwArray 类 对 象 〈 即 阵列 ) 中 的 数据 。 分 别 说 明 如 下: 
。 GetData 〔〈) 
函数 GetData 〈)》 的 定义 如 下 
MatlabMatrix * GetDara 〈) const; 
其 返回 值 为 一 个 mxArray 结构 体 类 型 的 指针 。 通过 该 指针 和 MATLAB 应 用 程序 接 
口中 的 mx 一 函数 ， 就 可 以 对 mwArray 类 对 象 中 的 数据 进行 访问 了 ， 例 如 
mwArray 和 -= maglc 《17)3; 
double xfeal _data 一 tnxGetPr (和 A.GetData 〔)); 

这 里 指针 real _data 维 实际 指向 mwArray 类 对 象 的 指针 , 所 以 不 能 对 该 指针 进行 释 
放 操作 ， 和 否则 将 导致 内 存 错误 。 

在 类 mwArray 中 ,与 范 数 GetData 〈) 功能 相对 应 的 函数 为 SetData〈)， 通 过 
该 函数 ， 用 户 可 以 对 类 mwArray 的 对 象 的 数据 进行 设置 。 不 过 函数 SetData 〈) 的 
使 用 必须 非常 小 心 ， 因 为 它 可 以 骗 过 MATLAB C 十 十 数学 函数 库 的 自动 内 存 管理 


分 )， 
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机 制 ， 导 致 内 存 的 泄漏 , 建议 读者 尽量 不 要 使 用 该 函数 进行 mwArray 类 对 象 的 数据 
设置 操作 ， 而 最 好 通过 类 mwArray 的 构造 函数 来 完成 。 
。， 下 xftractScalar ( ) 和 正 xtractpData 〔《 ) 

醋 数 ExtractScalar ( 》 和 函数 ExtractData 〔 ) 为 用 户 提 供 了 一 种 更 加 方便 而 
且 更 加 安全 的 获取 mwArray 类 对 象 的 方法 。 函 数 ExtractSealar 【 ) 的 定义 如 下 : 


double ExtractScalar (doeubie&，int323》 const; 
double ExttractScalar (int32) const; 


通过 这 两 种 版 本 的 函数 ， 用 户 可 以 从 实数 或 复数 类 型 的 mwArray 类 对 象 中 轻 
松 地 获得 单个 的 数据 。 函 数 ExtraetScalar ( ) 在 执行 时 ， 将 一 个 mxXa 的 阵列 神 为 
一 个 1X (mxn) 的 阵列 。 
枉 数 ExtracetData ( ) 的 定义 如 下 ， 
void 下 xtractData 《int32 : ); 


void 了 上 xtractData 《double < ); 
void 正 xtractData 《double *# ，double * ); 


通过 这 三 种 版 本 的 函数 ， 用 户 可 以 将 指定 的 mwArray 类 对 象 的 数据 拷贝 到 指 
定 的 C 十 十 数组 中 。 下 面 为 一 个 简单 的 例子 : 


InWArray 太 一 magic (11)》 十 《rand 《11》 共 【7 
double rdata ，cdara; 

rdata 一 太 . 世 xtractScealar (973 

rdata 一 及 . 卫 xtractScalatr 《cqata，377》4 

int32 * integers 一 new int32 { 11 * 11j; 

和 丰 。 王 xtractData 《integers)3 

double * real _data 一 new double [ 11 * 11 ]; 
deuble * complex _data 一 new double [LI11 * 11 ]; 
起 ,下 xtractData 〔Teal _datay》 1 

号 ,ExtractData (〔real _data，complex _ data)# 

"。 ToString 《》 


函数 ToString () 在 类 mwArray 中 的 定义 为 
mwgString ToSttring 《)》 const; 


通过 该 函数 用 户 可 以 方便 地 从 一 个 字符 串 类 型 的 阵列 中 获取 数据 ， 其 返回 值 为 一 个 
类 mwString 的 类 对 象 。 例 如 


inwArray 丰 一 bedefg* 
mwgString s 一 入 .ToString 〈《) 
char #fe 一 strdup (〔〈 (〔char 关 ) 5)5 


8. 其 他 成 员 函数 
除了 上 面 的 一 些 成 员 函 数 外 , 在 类 mwArray 中 , 还 提供 了 下 面 的 一 些 成 员 函 数 〈 部 
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二 rc 一 一 


mWBool IsDIN (〈)] const { teturn (data 一 一 mwa&Array:，DIN.data)，} 
twWwBool ls 也 mpty 〔》const; 

mwBool jsNullMatrix 〔〈) consti 

ImwBool jsString 〔) const# 

ImwBool IsJnitialized 〈《》 constf 

mwBool IsUnassigned 〔) consty 

int32 EltCouat 《)》 const 

static void SetLineWidth (int32 i) (line _width 一 j) 
staftic int32 GetLineWidth 〈) { return line _wiqdth; } 
void LUJnshare 〔)# 

void Unrinitialize 〔)? 

void CopyInput 上 Arg (const mwArray &a); 

voi 允 Copy()utputAtg 〔〈const ImwArray Ba)+ 

void MakeDIN (); 


static int Constructers 【》 { returr ConstructorCount; }》 
static int Destructors 《》 { return DestructorCount;， } 
static int ScalarCtors {《) { return Scalar(ornstructer3y }》 


它们 全 部 在 头 文件 dhlmtrs, h 中 得 到 声明 ， 有 兴趣 的 读者 可 以 自行 参阅 该 文件 。 
8. 1.3 基于 MATLAB C 十 十 数学 函数 库 应 用 程序 的 建立 


在 使 用 MATLAEB C 十 十 数学 项 数 库 建立 可 独立 执行 的 应 用 程序 之 前 ， 用 户 必 须 对 
自己 所 使 用 的 C 十 十 编译 器 和 链接 器 进行 正确 的 配置 ， 和 否则 将 无 法 得 到 正确 的 可 执行 的 
应 用 程序 。 然 而 ， 对 于 习惯 了 使 用 集成 工作 环境 的 用 户 来 说 ， 这 却 是 一 个 非常 麻烦 的 工 
作 ， 正 因为 如 此 ，Mathbworks 公司 为 了 方便 用 户 ， 提 供 了 帮助 用 户 进 行 C 十 十 编译 器 和 
链接 器 设置 的 命令 行 工具 mbuild ， 通 过 命令 ， 用 户 可 以 在 系统 提示 下 ， 一 步 一 步 地 完成 
配置 工作 ， 并 生成 一 个 默认 的 选项 文件 ， 记 录 配 置信 息 。 在 以 后 不 对 选项 文件 进行 指定 
的 情况 下 ， 命 令 mbuild 将 调用 该 默认 的 选项 文件 对 基于 MATLAB C 十 十 数学 晒 数 库 的 
应 用 程序 源 程 序 进 行 编译 链接 。 

在 本 小 节 中 , 我 们 将 基于 Microesoft Windows NT i.5b 操作 系统 和 Visual C 十 十 编译 
链接 器 ,首先 对 基于 命令 行 工具 mbuild 的 MATILAB C 十 十 数学 函数 库 应 闲 程序 的 建立 
进行 说 明 ， 然 后 对 MATLAB 所 提供 的 一 些 选项 文件 进行 说 明 。 


1， 命 令 行 工具 mbuild 


命令 行 工具 mbuild 是 MathWerks 公司 为 了 方便 用 户 而 提供 的 一 个 功能 强大 的 工 
具 ， 用 户 不 但 可 以 通过 它 对 基于 MATLAB C 十 十 数学 函数 库 的 应 用 程序 的 源 程 序 进行 
编译 链接 ， 而 且 可 以 帮助 用 户 对 C 十 十 编译 器 和 链接 器 进行 设置 。mbuild 命令 的 使 用 极 
为 简单 ， 如 果 需 要 对 某 个 源 程序 进行 编译 链接 ， 只 需 输 和 人 以 下 命令 即 可 : 
mbnuild fename. cpbb 
其 中 flename. cpp 为 用 户 希 望 建立 的 应 用 程序 的 源 程 序 。 如 果 用 户 在 此 之 前 没有 对 系统 
进行 过 C 十 十 编译 器 和 链接 器 的 配置 ， 那 么 mbuild 命令 将 显示 如 下 内 容 : 


mhbuild bas detected the following compilers on your Inachine: 
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[1] :， Borland compiler in 下 ，NBorlandNBC. 500 
[2] : 榴 ATCOM coempiler in 本 ，NwatcomsNe. 106 


[0 : None 
Please select a cotmpiler，This cotmpier will becotme the default， 
提示 用 户 选择 C 十 十 编译 器 ， 然 后 进一步 要 求 用 户 输入 C 十 十 编译 器 信息 ， 其 中 [1] 和 
[2] 为 在 用 户 系统 中 可 以 找到 的 C 十 十 编译 器 。 建议 用 户 最 好 不 要 采用 这 种 方式 , 而 是 要 
在 对 基于 MATLAB C 十 十 数学 函数 库 的 应 用 程序 的 沐 程 序 进行 编译 之 前 ， 首 先 使 用 
mbuiid 命令 的 setup 参数 , 对 用 于 编译 和 链接 源 程 序 的 C 十 十 编译 链接 器 进行 设置 .整个 
过 程 如 下 ， 首 先 在 MATLAB 命令 提示 符 下 键 人 以 下 命令 ， 
? tmbuild -setuP 


这 时 系统 将 启动 一 个 DOS 命令 框 ， 并 显示 如 下 内 容 ; 


Piease choose your cotmpiiet for building standalone MATI.AB applications， 


攀 ould you lige mbuild to locate installed compilers [yj ay? 


提示 用 户 是 否 需 要 命令 mbuild 自动 地 对 系统 中 的 C 十 十 编译 和 链接 器 进行 定位 , 如 果 选 


Please verify yotur choices : 


Cormpiler， Microsoftt 6.0 
Loeation : e: NProgram FilesNMicrosoft Visual Studio 


Are these cotrect?《 [y] rn)， 


告知 用 户 氛 找到 的 C 十 十 编译 器 和 路 径 ， 并 提示 用 户 确认 是 否 正确 ,如 果 选 择 n, 命令 将 
显示 

MBUILD, BAT: No compiler was set 
并 终止 命令 的 运行 ; 如 果 选 择 y， 命令 将 以 上 面 的 路 径 信息 对 编译 器 进行 一 定 的 设置 , 如 
果 失 残 ， 将 给 出 错误 信息 ， 


MBUILD,.BAT， Error: mhbuild requires that the Microsoft Visual C 十 十 6.0 
directeries ”VC98* and ”Cotmtinon” be located within the saime parernt directory- 
《Ceuld net find e，NProgram FilesNMicrosoft Visual StudioNCormmon. 》 
说 明 路 径 错误 , 并 终止 命令 的 运行 。 这 时 用 户 重新 运行 命令 并 在 第 一 步 中 选择 n, 告知 命 
令 不 进行 自动 编译 器 定位 ， 接 下 来 命令 将 显示 如 下 内 容 ， 


Choose your CAC 十 十 cotmnpiler: 


说 ] Borland CAC 十 十 (version 5,0，5-2，or 5. 3) 
{2] Microeseft Visual CAC 十 十 《versiou 4.2，5.0，oT 6.0) 
[3] 机 atecorm CA 十 十 (vetsion 10.6 er 11) 


[9] None 
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Compiler: 2 
提示 用 户 选择 MATLAB 所 提供 支持 的 C 十 十 编译 器 ， 选 择 2 后 命令 将 显示 
Choosge the version of your CAC 十 十 compiler: 
加 ] Micreseft Visual CAC 十 十 4,2 


[2] Microseft Visual CAC 十 十 5.0 
[3] Mierosoft Visual CAC 十 十 6.0 


version : 3 
提示 用 户 选择 编译 器 的 版 本 ， 选 择 3 后 ， 命 令 将 要 求 用 户 进一步 确认 编译 器 的 路 径 信息 
Yonr tnachine has a Microsgoft Visual CAC 十 十 compiler located at e; NProgram FilesNM 


ierosoft Visual Studio， 
Do you want to use this ecompiler FEy] /mn? 


如 果 该 路 径 正 确 ， 用 户 可 以 直接 选择 y， 命 令 将 要 求 用 户 确 认 配 置 的 正确 性 ， 
Are these correct? 〔 [y] An):， y 
选择 y， 命 令 将 最 示 


The default options fiie: 
”CC，NWINNTNProfiiesN\AdministratorNAPPlication 
DataNMathWorksNMATLABNcompopts. baty 


is being updated. . . 


告知 用 户 默认 的 选项 文件 已 被 更 新 。 
如 果 在 确认 路 径 信息 时 ， 用 户 选择 了 n， 命 令 将 要 求 用 户 输入 正确 的 路 算 ， 


Please enter the location of your CC 十 十 compiler: [e，NProgram FilesNMIicrosoft Vi 
sual Studio] e，NProgratn FiiesN\Microsoft Visual StudioNVc98 


当 输 入 路 径 并 回 车 后 ， 命 令 同 样 将 要 求 用 户 进一步 确认 路 径 信息 的 正确 性 : 


上 Are these correct? 〈 Ly] Zn)，, y 


The default cptions 所 ne: 


”C:，NWINNTNProfiles\AdministratorNAPPlication 
DataNMathWeorksNMATLABNeompopts. bat 


is being updated, , ， 


告知 用 户 默 认 的 选项 文件 已 被 更 新 。 
在 配置 完成 之 后 , 必须 对 配置 的 正确 性 进行 测试 ,用 户 可 以 在 MATLAB 命令 提示 符 


下 键 人 以 下 命令 


2 tmhbuild exl. cppP 
并 回 车 , 这 村 命令 mbuild 将 调用 前 面 所 产生 的 默认 的 选项 对 源 程 序 exl.cpb 进行 编译 和 


链接 , 如 果 配 置 正 确 , 命令 在 生成 可 执行 程序 exl. exe 后 , 将 直接 返回 MATLAB 命令 提 
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示 符 下 显示 信息 ; 如 果 配 置 不 正确 , 将 显示 错误 信息 。exl.cpp 为 MATLAB 提供 的 一 个 
范例 程序 ， 位 于 目录 
MATLAB 根 目 录 NEXTERNNEXAMPLESNCPPMATH 
中 。 
通过 以 上 的 配置 和 验证 后 ， 用 户 就 可 以 对 基于 MATLAB C 十 十 数学 郴 数 库 的 应 用 
程序 的 源 程 序 进行 编译 链接 生成 可 执行 程序 了 。 
如 果 在 生成 默认 的 选项 文件 后 ， 再 次 运行 命令 
? Imbuild-setup 
对 C 十 十 编译 器 进行 配置 ， 命 令 mbuild 将 使 用 新 生成 的 选项 文件 覆盖 旧 的 选项 文件 。 通 
过 这 种 方法 ， 用 户 可 以 对 默认 的 选项 文件 进行 更 新 。 
mbuild 实际 上 是 一 个 功能 非常 丰富 的 命令 行 工具 ,通过 它 的 各 种 命令 参数 ， 允 许 用 
户 自 定义 地 对 程序 的 源 代 码 进 行 编 译 和 链接 。 命 令 mbuild 的 使 用 格式 如 下 ， 
mbuild [-e -Dname -f file -g -h [elp] -Ipathname -lang language 
-link target -setUP -output tesultnatme -outdir dirname -O 〇 
-Uname -y ] sourcefile. . .人 <<objectflle>,.obj ,.。.] 
[ <libraryfile>,lib .,.，][ <exportfile>,expotts ,.. ] 


虽然 对 于 大 多 数 的 用 户 来 说 ， 命 令 中 的 大 多 数 参 数 是 不 必要 的 ， 仅 仅 使 用 最 简单 的 
形式 
mbuild fiiename 
就 可 以 完成 大 部 分 的 任务 , 但 是 对 命令 mbuild 进行 深 和 大 的 理解 , 将 有 助 于 用 户 更 加 灵活 
地 掌握 命令 mbuild 的 使 用 ， 因 此 我 们 仍 将 给 出 命令 mbuild 的 所 有 命令 参数 ， 并 加 以 说 
明 ， 详 见 表 8, 1。 
胡 8.1 mbuild 命令 参数 


命 今 参数 说 轩 
-ce 告知 命令 mbuild 充 编译 而 不 链接 
-D<nmame> 定义 忆 十 士 预 处 理 的 宏 所 name> 








-f <<file>> | 告知 命令 mbuild 使 用 文件 一 tile> 作 为 选项 文件 


在 编译 链接 可 执行 程序 时 ， 包 含 人 商 试 信息 


CE 显示 帮助 信 息 ee 
-IEpathaamey 上 将 路 径 名 二 pwaaReX 咎 育 人 全 仿 的 文件 盾 索 哺 生 中 


强制 语言 类 型 说 明 , 当 <-language> 为 或 C 时 , 表示 和 梗 用 的 语言 是 C 语言 ,而 
当 <language> 为 pp 或 C 十 十 时 , 表示 使 用 的 语言 为 C 十 十 汪 言 , 该 条 散 主 要 











2 使 用 在 输 和 的 文件 名 的 后 级 不 为 命令 mbuild 支持 时 ， 例 如 输入 文件 名 为 ie- 
Tmarne, 名 

Ti 本 和 到 <<targmt>> 为 exe 时 ， 人 而 <target 

ee > 为 du 时 ， 表 示 为 默认 这 
指定 存放 建立 的 强 和 的 让 在 <iEine> 如 时 在 便 用 大 于 - -output 时 ， 

-Dutdir < 出 rnarpe> 出 了 全 ， 册 

-output <<natne>> 是 让 和 ns 的 何 执行 和 后 腿 名 由 命令 自动 梁 加 

站 建立 一 个 优化 的 可 执行 程序 

-setup 设置 默认 的 选项 文件 

-U<name>> 取消 C 十 十 杞 处 理 窗 <<name> 芍 定义 


-v 询 出 所 使 用 的 C 十 十 编译 器 和 链接 侨 的 所 有 设置 选项 
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2. 选项 文件 


MATLAB V5. 3 版 本 为 不 同 的 C 十 十 编译 器 提供 了 不 同 的 选项 文件 ， 在 Widows 操 
作 系统 中 ， 这 些 选 项 文件 均 放 在 目录 
MATLAB 根 目录 \bin 
中 ， 详 见 表 8. 2。 
表 8.2 选项 文件 
类 型 版 本 渤 项 文件 和 名 
msyccotnpp. bat 


Microsoft Visual CC 十 十 1 | msvc50compP. bat 


msvc60compp. bet 











本 和 3 
10.6 watccompP. bat 
允 atcom C 十 十 一 一 一 
1 watltTccompp, bat 


通过 在 命令 mbuild 中 使 用 参数 -f 指定 这 些 选 项 文件 中 的 某 一 个 , 用 户 可 以 轻松 地 使 
用 各 种 类 型 的 编译 器 建立 基于 MATLAB C 十 十 数学 函数 库 的 应 用 程序 ， 而 无 须 类 繁 地 
使 用 命令 mbuild 一 setup 对 默认 的 选项 文件 进行 修改 ， 

使 用 命令 mbuild 一 setup 产生 的 默认 的 选项 文件 名 为 compopts. bat， 存 放 于 路 径 


c，NwinntsprofiiesNadministraterNappltication dataNmathworksNmatlab 


下 。 该 路 径 对 于 不 同 的 操作 系统 ， 或 同一 操作 系统 的 不 同 用 户 可 能 不 同 。 下 面 我 们 对 该 
文件 进行 一 定 的 分 析 ， 以 加 深 读者 对 应 用 程序 建立 过 程 的 理解 
选项 文件 compopts. bat 的 内 容 如 下 ， 


@echo oc 芷 
Tem comPpoPts. bat 


YET 并 上 次 关 和 其 六 关 其 枯 其 入 其 其 关 并 和 其 关 入 洲 长 其 六 庆 攻 关押 其 才 其 其 凑 凑 尖 其 其 半生 


rem (1) 普通 参数 设置 


erm 其 入 并 闪 关 其 状 共 关 六 计 其 其 关头 其 其 天 关 庆 其 交 匣 以 次 关 六 贡 兴 其 放 站 直 其 其 凑 匆 冲 芝 


set MATLAB 一 外 MATLAB5% 
set MSVCDir 一 e，NProgram FilesgNMicrosoft Visual StudioNVc98\ 
set MSDevDir 王 MMSVCDirN ,NCommonNmsdev98 
set PATH= %MSVCDir%NBIN; %MSDevDirWNbin; WMATLAB _BIN 中 5%PAT 瑞 3% 
set INCLUDE= %MSVCDir%NNCLUDE; 外 MSVCDir%NMFCNNCLUDEI 
多 MSVCPDirW%\ATLNINCLUDE;%INCLUDE%% 
set LIB= %MSVCDir%NLIB; WMSVCPir 和 NMFCAYL 耳 ; 最 LJB 凶 
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TEID 并 闪闪 其 其 并 其 关 关 基尼 种 并 其 尖 次 和 入 兴 居 其 凑 关 关 关上 其 凑 关 基 其 天 其 六 愉 让 关 


rem《2) 缩 译 器 和 勇 至 设置 


Yerrl 长 并 关外 关 凑 术 芝 和 和 洲 基 六 和 疾 基 其 洪江 入 并 其 关 其 并 并 六 其 其 折 计 其 其 其 其 其 关 并 


set COMPILER 一 cl 
set OPTIMEFLAGS 一 -O2 
set DEBUGFLAGS 一 -Zi 
set CPPOPTIMFLAGS=-O2 
set CPPDEBUGCEFLAGS 一 -Zi 
set COMPFLAGS 一 -c -Zp8 -G5 - 允 3 -nologo 
set CPPCOMPFLAGS 一 - -Zp8 -G5 -多 3 -nelogo -Zm500 -GX -MD 
一 IM%MATLAB%% NexternNincludeNeppb -DMSVC -DIBMPC -DMS 允 IND 
set DLLCOMPFLAGS 一 -c -Zb8 -G5 -W3 -nologo -DMSVC -DIBMPC -DMSWIND 
set NAME _OBJECT 一 /Fo 


Tetn 其 凑 洪 讲 详 凑 六 入 诗 其 綦江 诸 其 其 洲 站 话 话 凑 洲 话 其 其 其 认 基 其 六 讲 许 必 其 詹 洲 许 必 


rem《3) 库 刨 建 命令 〈 预 编译 过 程 ) 


Term 并 其 深长 其 并 洲 认 其 六 洲 前 其 直 洲 长 其 沪 讲 关 基 其 其 六 并 被 诬 洲 关 裕 入 兴学 二 怕 其 旗 


set PRELINK _CMDS1i=-lib /def:”%MATLAB%NexternNincludeNibmrtnfile.def> 
/machine: ix86 /OUT:%LIB _NAME%1.lib /NOLOGO 
set PRELINK _CMPS2=1lib /deft> %MATLAB%NexternNincluqeNiibmecc. defw /machine:， ix86 
ADOUTi:%LIB _NAME%2.lib /NOLODGO 
set PRELINK _CMDS3=-lib /def:r%MATLAB%NexternsincludeNlibmatlb. defw Aimachine，ix86 
ADOUT:%LIB _NAME%3,lib ANOLOGO 
set PRELINK _CMDS4 一 lib /def:” %MATILAB 闻 NexternNincludeNlibmx. def machine : ix86 
IOUT :%LIB _NAME%d.lib /NOLOGG 
set PRELINK _CMDS5 一 lib /def :外 MATLAB%% NexternNincludeNlibmat, defr Amachine: ix86 
IOUT:%LIB _NAME%5.lib /NOLOGO 
rem HGLIB set PRELINK _CMDPS6 一 lib /def:” 外 MATLAB 名 NexternNincludeNibhg. defy 
Amachine;， 这 86 /OUT:%LIB _NAME%iilib /NOLOGO 
set PRELINK _DLLS=lib /defs” %%MATLAB%%NexternaNincludeN\%DLL _NAME 近 .def 
Amachine:， ix86 /OUT: DLL _NAME%.lib /NOLOGO 
get DLL _MAKEDEKF 一 type %LIB __NAMR %.exports | perl 一 a ”brint NY LIBRARY 
WMEX NAME%.dlNnaEXPORTSSnNs while 〈<>) {Printy jw 
> %LIB_NAME%.def 


Tetm 社 凑 并 诗 长 其 入 其 其 其 并 外 其 其 入 基 其 凑 并 关 其 其 六 关 六 凑 种 计 尖 次 许 关 其 其 欠 丑 才 


retm《4) 链接 器 参数 设置 

rem MATLAB _EXTLIB is set automatically by mmex- bat 

TEL 其 其 并 站 其 关 关 入 其 其 六 并 其 关 关 和 关 六 共和 其 并 并 关 其 导 革 关 并 关 天 让 共 其 其 生 特攻 

set LINKE 习 一 link 

set LINKFLAGS 一 kernel132.Iib user32.lib gdi32.1lib 奴 世 了 由 _NAME%%1.] 耶 
%LIHB_NAME%2.iib %LIB _NAME%3.lib /implib， %LIB _NAME 妈 ,lib /nologo 

set LINKELAGS=%LINKFLAGSW% %W%LB_NAME%41lib %LIB_NAME%%5.Hib 
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term FIHGILIB set LINKFLAGS= 上 %%LINKFLAGSIM 上 LIHB_NAME06,1lib 


set CPPELINKELAGS 一 %LINKFLAGS% %MATLAB _EXTLIB%%Mibmatpm. lib 

set DLLLINKFLAGS 王 %%LINKFLAGS% Apdil /implib 避 外 DUTDIR 儿 外 MEX _NAME 冶 .tiby 
Adef ,%%LHRB_NAME 凶 .def 

set LINKOPTIMFLAGS 一 

set LINKDEBUGFLAGS 一 /debug 

setf LINK _FILE 一 

set LINK _LIB 一 

set NAME _OUTPUT=” /out:W%OUTDIR 儿 匠 MEX __ NAME 各 .exe” 

set DLL _NAME _OUTPUT=” /out: WOUTDIR 归 外 MEX_NAME 双 ,dll* 

set RSP _FILE _INDICATOR= 包 


em 六 并 其 关 共产 洲 其 其 凑 寺 可 基准 入 六 其 其 坟 放 其 并 并 六 其 基站 其 洲 六 其 其 凑 曙 时 其 其 其 关 


rem 资源 编译 器 参数 设置 


Tema 关 闪 共和 关 并 其 闫 并 郑 基 其 短 和 苏芮 凑 入 关 检 短 和 其 关 其 其 六 科 其 共 其 甸 放 闪闪 产 关 入 其 亲 


set RC__COMPILER=rc /fo *%OUTDIR 忽 mexversion. resy 
set RC _ _LINKER 一 


由 上 面 的 源 代 码 可 以 看 出 ,选项 文件 compopts. bat 的 结构 非常 清晰 , 总 共 可 以 分 为 
五 个 部 分 : 
第 一 部 分 为 普通 参数 设置 ， 定 义 了 一 些 关 于 MATLAB 以 及 C 十 十 语言 编译 器 的 路 
径 信息 ,其 中 WMATLAB% 和 外 MSVCDir%% 分 别 代 表 了 MATLAB 和 Microsoft Visual 
C 十 十 6.0 所 在 的 安装 路 径 ， 其 余 的 一 些 相关 定义 ， 如 头 文件 包含 路 径 和 库 文 件 包含 路 
径 ， 都 是 建立 在 它们 的 基础 之 上 ; 
第 二 部 分 为 编译 器 参数 设置 , 在 该 选项 文件 中 , 通过 环境 变量 COMPILER 设置 了 编 
译 器 为 ct， 并 且 通 过 环境 变量 COMPFLAGS、OPTIMFLAGS、CPPOPTIMFLAGS、 
CPPDEBUGELAGS.CPPCOMPFLAGS、DEBUGFLAGS 和 DLLCOMPRLAGS 对 编译 
器 进行 了 全 面 的 设置 ， 其 中 各 参数 的 含义 如 下 ， 
-G5 人 贱 表 针对 奔 跨 处 理 器 进行 优化 处 理 
- 允 3 代表 设置 警告 级 别 为 3 级 
-Zi 代表 使 能 调试 信息 
-O2 代表 以 最 大 速度 优化 
-nologo 代表 禁止 版 权 信 息 
-c 代表 告诉 编译 器 ， 只 对 源 文 件 进行 编译 而 不 用 链接 
-Zp8 代表 按 8 个 字 节 对 准 
-MD 代表 与 库 文 件 MSVCRT. LIB 链接 
MSVC、IBMPC 和 MSWIND 为 预定 义 的 宏 名 
第 三 部 分 为 库 创建 命令 ， 即 枝 编译 过 程 ， 用 于 创建 输入 和 输出 的 函数 库 
第 四 部 分 为 链接 参数 设置 , 在 这 部 分 内 容 中 , 首先 通过 环境 变量 LINKER 设置 了 链 
接 器 的 名 字 为 link ， 然 后 通过 环境 变量 LINKELAGSs 设置 了 链接 器 的 一 些 参数 选项 ， 声 
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明了 一 些 在 生成 应 用 程序 时 所 需要 氢 人 的 库 文件 ， 包 括 在 第 三 部 分 中 生成 的 库 文件 ; 
第 五 部 分 为 资源 编译 器 参数 设置 。 


8. 2 ”阵列 对 象 的 创建 和 索引 


阵列 对 象 ， 即 mwArray 类 对 象 , 是 MATLAB C 十 十 数学 函数 库 中 最 基本 的 数据 类 
地 ， 几 乎 所 有 的 库 函 数 均 以 它们 作为 计算 和 处 理 的 对 象 ， 学 会 对 它们 的 操作 ， 对 于 学 习 
MATLABC 十 十 数学 函 炎 库 的 使 用 是 至 关 重 要 的 . 在 上 一 节 中 , 我 们 已 经 对 类 mwArray 
的 概念 及 其 构成 进行 了 一 定 的 说 明 , 在 本 节 中 , 我 们 将 详细 说 明 如 何 使 用 类 mwArray 来 
创建 各 种 不 同类 型 的 阵列 对 象 ， 包 括 数值 阵列 、 单 元 阵列 、 结 构 体 阵列 字符 阵列 各 稀 杖 
矩阵 , 它们 分 别 对 应 于 MATLAB 中 的 一 种 阵列 类 型 , 同时 讲述 如 何 对 阵列 对 象 的 元 素 内 . 
容 进 行 访 问 、 赋 值 和 修改 等 操作 ， 即 阵列 对 象 的 索引 操作 。 


8. 2.1 阵列 对 象 的 创建 


在 MATLAB C 十 十 数学 函数 库 中 , 通过 类 mwArray 对 五 种 类 型 的 MATLAB 阵列 
类 型 提供 了 支持 ， 它 们 分 别 为 数值 阵列 、 稀 朴 和 矩阵 、 字 符 阵 列 、 单 元 阵列 和 结构 体 阵列 ， 
本 小 节 将 对 这 五 种 阵列 对 象 的 创建 进行 介绍 。 有 关 这 五 种 MATLAEB 阵列 的 概念 在 本 书 
的 第 一 章 有 详细 的 介绍 ， 这 里 不 再 说 明 。 


1， 数 慎 阵 列 对 象 的 创建 


在 MATLAB C 十 十 数学 函数 库 中 , 提供 了 大 重 的 用 于 创建 数值 阵列 对 象 的 函数 , 分 
细 如 下 : 


Imw 上 ITay 入; 

mW 上 ArTa7 〈double); 

TawArTRyY 《int)9 

gwArray (〔int，int， double * ，double * 》 
mwArray 《int， inty int# ，intx 7) 
mwArray (int，int，unsigned short + ，unsigned short # )3 
mnW 和 上 ITB7 【《 mnX 和 Array # 》; 

mw 上 rray 〔《consgt mwArrayg&r)j 

mw 上 rray 《int，inty，int73 

tmW 太 rray 《const mwSubArray&r) 
horzcat 〔)# 

VETte8at 《7 

Cat 《7》1 

randn 〈); 

2eroa 《)3 

tand 〔)5 

empty 〔)4 

Ones 《)1 

eye 《)》; 
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magic 《)1 


总 的 来 说 ， 可 以 将 这 些 郴 教 可 以 分 为 五 类 ， 如 下 
， 使 用 类 mwArray 的 构造 函数 来 创建 数值 阵列 对 象 ， 主 要 包括 以 下 的 一 些 构造 函 
数 : 


ImwAtrray 及; 

mwArray (double); 

mwArray 〔int7# 

mwArray (int，int，double + ，double * ?3 

ImwAtray [int，int，int 关 intX#)# 

twWArray 《int，int，Unsighed short x ，thsigned short + )4 
mwArray 《1nXATrray # )1 

mwWArray 《const niwArray&); 

mATray (ipt，int，int7; 

mwAtray 【const mwSubArray&); 


通过 这 些 构造 画 数 ， 用 户 既 可 以 使 用 默认 的 构造 梢 数 mwArray A 创建 一 个 未 初 
始 化 的 数值 阵列 对 象 ， 也 可 以 使 用 范 数 mnwArray (int，int，double * ，double 
*# ) 创建 指定 行 数 和 列 数 以 及 实 部 和 虚 部 数据 的 数值 阵列 对 象 ， 此 外 还 可 以 通过 
tmwArray (int) 和 mwaArray 《double) 司 用 输 大 的 单个 的 双 精 度 实数 和 整数 来 创 
建 1X1 的 数值 阵列 对 象 ， 而 且 还 可 以 通过 现 有 的 mwArray 类 对 象 和 mxArray 
结构 对 象 使 用 函数 mwArray (const mwArtrray&) 和 twArray 〔〈 tmxArrayx ) 
来 创建 数值 阵列 对 象 。 在 实际 操作 中 ， 用 户 可 以 灵活 选取 不 同 的 构造 冰 数 ,下面 
是 一 个 简单 的 例子 ， 

doubile data [一 {1，4，2，5，3，6}5 

mwArray C 【2，3，data)j 

包罗 上 ArTay DC) 

cout 愉 < = < 挟 5 芝 所 endli 

cout < 民 " eopy af CC 一” 所 了 << end[; 


执行 这 段 代码 ， 将 显示 如 下 结果 : 

C 一 [ 

123; 

456 

] 

Copy of 马 一 [ 

123 

4 56 

] 


这 里 必须 注意 的 是 ， 阵 列 对 象 的 数据 为 列 优先 存放 的 。 
。 使 用 阵列 创建 函数 来 创建 数值 阵列 对 象 ， 主 要 包含 以 下 一 些 函 数 ， 


ODes 《)5 


zekos 【《]# 


第 8 章 MATLABC 十 十 数学 画 数 库 的 使 用 383， 


rand 《)4 
randqdn 〔)# 
empty 《)》) 
magic 《]# 
eye 〔)3 


通过 函数 ones (), 用 户 可 以 创建 一 个 所 有 几 列 元 索 为 1 的 数值 阵列 对 象 ; 通过 函 
数 zeros() ,用户 可 以 创建 一 个 所 有 阵列 元 索 为 0 的 数值 阵列 对 象 ; 通 过 郴 数 emp- 
ty 〈()， 用 户 可 以 创建 一 个 相当 于 MATLAB 中 [ ] 的 数值 阵列 对 象 ， 通 过 函数 
randn〔) 和 rand (), 用 户 可 以 创建 一 个 所 有 舞 列 元 素 为 随机 数 的 数值 阵列 对 象 ， 
其 中 函数 randn 〈《) 产生 的 随机 教 服从 正 态 分 布 。 以 上 的 这 些 函 数 ， 由 用 户 输 和 人 
参数 的 个 数 确定 所 创建 阵列 的 维 数 ， 假 如 给 定 n 个 输入 参数 ， 则 生成 一 个 n 维 的 
阵列 对 象 。 下 面 是 一 个 简单 的 例子 ， 


B = randn (2，3，2); 
cout <” 了 =” <B << endly 


执行 这 段 代码 ， 将 显示 如 下 结果 : 
B =[ 
〈《:，:，1)》 一 
[ 
一 D. 4326 0. 1253 一 1. 1465 
一 1.6656 0. 2877 1. 1909 
] 
(:，:，2) 一 
[ 
1,1892 0.3273 一 0.1867 
一 0.0376 0.1746 0.7258 
] 
] 


而 函数 magic 〈) 和 eye () 仅 可 用 于 生成 二 维 阵列 ， 其 中 eye 〈) 用 于 生成 一 个 
单位 矩阵 对 象 , magic () 用 于 生成 一 个 特殊 的 方 阵 对 象 , 其 行 元 素 和 , 列 元 素 和 、 
对 角 线 元 素 和 均 相 等 ， 例 如 
了 王 magic (5)} 
cout < < ” 吾 = < 所 B < 二 endl 
执行 这 段 代码 ， 将 显示 如 下 结果 ， 
如 一 
[ 
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全 


] 


调用 数学 函数 来 创建 数值 阵列 对 象 。 这 一 点 与 MATLAB 非常 地 类 似 ， 在 
MATLAB C 十 十 数学 函数 库 中 大 部 分 的 数学 函数 和 运算 符 均 将 产生 一 个 新 的 阵 
列 对 象 ， 例 如 下 面 的 代码 ， 

mwArray 入 ，BP 

页 一 magic (5)5 

也 一 eye〈5714 

TwaArtray 一 太 # Bi 
其 中 C 为 一 个 新 的 数值 阵列 对 象 ， 它 为 阵列 对 象 A 和 了 的 习 积 。 
通过 拼接 已 有 的 数值 阵列 来 创建 新 的 数值 阵列 对 象 ， 这 主要 是 通过 西数 

horzeat 〈《)# 

VETtcat 《》1 

cat 《)》; 
来 完成 的 ， 其 中 函数 horzcat 〔() 用 于 完成 水 平 拼接 操作 ， 琴 数 vertcat 〔) 用 于 完 
成 垂直 拼接 操作 ,函数 cat () 用 于 完成 拼接 创建 多 维 阵列 。 例 如 在 MATLAB 环 
境 中 定义 一 个 如 下 形式 的 阵列 


上 太一 [12345] 


直接 在 MATLAB 命令 提示 符 下 键 人 命令 
A= 一 [12345] 

即 可 ， 向 车 后 MATILAB 将 显示 
下 二 


12345 


而 在 C 十 十 中 ,通过 MATLAB C 十 十 数学 阔 数 库 则 必须 通过 函数 horzcat () 来 
构造 ， 如 下 ， 
mWwArray 太 ; 


二 一 horzcat〔1，2，3，4，5 )7 
cout < 上 一 ， 执 所 六 挟 扫 endl; 


执行 这 段 代码 ， 将 显示 如 下 结果 : 
A 一 [ 
12345 
] 
同 理 ， 对 于 构造 列 向 量 也 相同 ， 不 过 使 用 的 函数 为 vertcat 〈)。 通过 联合 使 用 画 
数 horzcat () 和 函数 vertcat (0) 可 以 创建 二 维 的 数值 阵列 对 象 ， 例 如 ， 
mwArray 及 == veftcat 〔 borzcat 《1，2，3)， horzcat 〈4，5，6)] 7)3 


mwArray 台 一 vertcat 《horzcat (1，2，3)，horzcat (4，5，67) 7 
mwArrayC = vettcat (下 ,也 ) 
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执行 这 段 代 码 ， 将 显示 如 下 结果 ， 
C =[ 
123) 
4563 
123; 
456 
] 


上 细 数 eat(〈) 与 果 数 horzcat 〈《) 和 图 数 vettcat () 存在 较 大 的 不 同 ， 其 主要 功能 
是 在 指定 的 维 数 上 ， 将 若干 个 阵列 拼接 为 一 个 单独 的 阵列 ， 例 如 ， 


Inw 太 rray 由 一 yertcat 〔 horzcat 《1。，2，3)1，horzcat 《4，5，6)》); 
IaW 太 Tray 吾 一 vertcat 〔《 borzcat 《1，2，3)》，horzeat 《4，5，6) 7 
mwArrayC 一 cat《3， 太 ，B 7) 


执行 这 段 代码 ， 将 显示 如 下 结果 ， 


C=[ 
(:，3:9， 1) 一 
[ 
1233 
456 
] 
{《:， 49 2)》 一 
[ 
123 
456 
] 
] 


函数 的 第 一 个 参数 为 指定 的 拼接 的 维 数 . 如 果 指 定 的 维 数 大 于 用 户 指定 的 阵列 的 
维 数 ， 则 函数 自动 地 添加 一 个 大 小 为 1 的 维 ， 例 如 


mwrArray 太 一 Verteat 〔 horzcat 《1，2，37，horzcat 《4，5，6?》 )5 
ImwArray B 一 vertcat 〔 horzcat (1，2，3)，horzcat (4，5，6) )4 
mwArrayC 一 eat〔〈4， 太 ， 导 )， 


执行 这 段 代码 ， 将 显示 如 下 结果 : 


CC 一 [ 
《:，:，1，1) 一 
[ 
1235 
456 
] 
{:y :1，2》 一 
[ 
123i 
456 
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"通过 赋值 操作 完成 数值 阵列 对 象 的 创建 。 这 种 方法 非常 简单 ， 例 如 
mwaAatrray 太一 14; 
该 语句 创建 了 一 个 大 小 为 1X1 的 数值 阵列 。 


2， 称 秽 姓 阵 的 创建 


稀 琉 矩阵 是 MATLAB V5.X 版 本 所 提供 的 一 种 新 的 阵列 数据 类 型 ， 它 提供 了 一 种 
高 效 的 存储 包含 大 量 零 元 素 的 二 维 阵列 的 方式 ， 在 本 书 的 第 一 章 我 们 已 经 对 它 进行 了 详 
细 的 介绍 。 在 MATLAB C 十 十 数学 琐 数 库 2. 0 版 本 中 , 提供 了 对 稀 朴 矩阵 的 支持 ,这 与 
1, 2 版 本 相 比 是 一 个 明显 的 功能 增强 。 表 8. 3 是 函数 库 中 一 些 稀 琉 和 矩阵 的 创建 函数 和 基 














本 的 稀 琉 矩阵 操作 函数 的 列表 ， 
表 8.3 有 关 释 琉 矩 阵 的 库 函 数 
函数 原型 功 能 
gparse 〔《) 亿 建 一 个 希 琉 矩阵 
full 《) 将 一 个 释 闵 矩阵 转化 为 一 个 满 抵 阵 
spones 〔》 将 所 有 的 非 零 的 奖 琉 矩阵 元 到 替 忆 为 1 
区 (> 
sprandn 《) 将 所 有 的 非 零 的 稀 朴 宅 阵 元 素 用 随 杭 数 符 代 
spPrandnsym 〔) 
speonvert 《) 将 一 个 文本 文件 转换 为 稀 朴 矩阵 
speye 〔》 创建 -- 个 稀疏 的 单位 矩阵 
spdiags 〔》 | 从 一 个 妆 人 阵列 中 提取 数据 ， 并 使 用 这 些 数 据 创 症 一 个 稀 玻 矩阵 
aaz 《) 察看 某 个 数值 矩阵 中 非 鹤 元 素 的 个 数 
any 〈) 或 al () 兰 断 是 否 数值 矩阵 的 元 率 背 为 零 元 束 或 伺 为 非 零 元 素 
nzmnax 《) 确定 稀 芯 矩阵 中 非 堆 元素 的 个 数 
monzer0s 〔) 获取 禹 朴 年 阵 中 所 有 的 非 零 元 素 并 存储 为 一 个 操 量 
spfun 《》 对 多 疏 矩阵 中 的 所 有 非 泽 元 素 应 用 一 个 画 数 


总 的 来 说 ， 可 以 通过 两 种 方法 创建 稀 朴 矩阵， 
。 将 一 个 现 有 的 数值 矩阵 转换 为 稀 玖 矩阵 , 这 主要 是 通过 函数 sparse〈) 来 完成 的 ， 
例如 
mwArray 上 太 ，BI 
由 一 Eye (103) 
cout << 太守 捷 endl# 
名 一 sparse 《起 )) 
cott << 日 所 < endl 


执行 这 段 代码 ， 将 显示 如 下 的 内 容 : 
[ 
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人 口才 
总 
[| 
已 忆 妆 虽 上 上 己 
[人 
总 已 中 
证 着: 站- 全 二 
忆 马 王 安 上 岂 口 避 居 
忆 一 呈 人 
可 


(1，1l) 1 
(2，2) 1 
(3，3) 1 
(t，4) 1 
(5，5) 1 
(6，6) 1 
(7，7) 1 
(8，8) 1 
(9，9) 1 
(10，10) 1 


。 从 一 定 的 数据 中 创建 一 个 稀 朴 矩阵 ， 这 同样 是 通过 函数 sparse 〈) 来 完成 的 ， 不 
过 在 使 用 函数 sparase 时 ， 必 须 按 以 下 的 格式 提供 参数 ， 
spatse 〔iy， jy ,mn [，nzmax]) 

其 中 ij 和 k 为 三 个 具有 同样 长 度 的 阵列 对 象 ,i 中 包含 了 稀 朴 矩阵 中 非 鹤 元 素 的 
行 的 下 标 , j 中 包含 了 稀 琉 矩阵 中 非 零 元 素 的 列 的 下 标 , k 中 则 包含 了 稀疏 矩阵 中 
非 堆 元素 的 值 ; m，n 和 nzmax 为 三 个 数量 ，m 和 决定 了 所 创建 稀 琉 矩阵 的 行 
数 和 列 数 , nzmax 为 一 个 可 选 参数 ,用 于 确定 稀 玻 矩阵 中 可 以 存放 的 最 多 的 非 零 
元 素 的 个 数 。 例 如 

// 数 据 的 定义 

double inums [] 一 (3，4，5，4，5，6); 


deuhble jnums 口 ] 3 {4， 3，3，5，5， 4}3 
double knuma 口 SR {1， 2，3，4， 5 6)5 


// 创建 阵列 对 象 

Im 允 AArray S; 

mwaAarrayi (1，f6，inutmns，NULIL 7; 
mwAarray j《1，6，jinums，NULILD 
mwArrayk (1，6，jnums，NULL72) 


// 创建 稀 蚊 矩阵 
S 一 SParSe 〈iy， j， xx， 8,， 8，10); 
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cout < < S < < endl; 
cout << tul (S)》 << endl; 


执行 这 段 代码 ， 将 显示 如 下 内 容 ， 


Am 
[9 
中 
Se 

cm 本 避 hi 


0000000 
0000000 
0001000 
0020400 
0030500 
0006000 
00000000 
0000000 
3. 字符 阵列 的 创建 


一 般 我 们 对 于 一 维 的 字符 阵列 称 之 为 字符 串 ， 而 对 于 多 维 的 字符 阵列 则 称 之 为 字符 
襄 数组 。 在 MATLAB 中 ， 字 符 串 数组 要 求 其 中 的 每 一 个 字符 串 拥 有 同样 的 长 度 ， 在 
MATLAB C 十 十 数学 函数 库 中 , 字符 串 数组 有 着 同样 的 要 求 , 不 过 这 一 点 无 需 用户 在 编 
制程 序 时 专门 指出 ， 函 数 库 中 的 字符 阵列 创建 函数 在 创建 字符 串 数组 时 ， 会 自动 在 长 度 
不 足 的 字符 串 后 添加 空格 ， 使 数组 中 所 有 的 字符 串 拥 有 同样 的 长 度 。 
在 MATLAB C 十 十 数学 函数 库 中 , 握 供 了 若干 个 用 于 创建 字符 阵列 对 象 的 库 函 数 ， 
分 别 如 下 ; 
mwArrtay 《 const char # ) 
char _func 〈)+ 
gtr2mat 【7; 
sfrcat 〔)5 
strvcat 《)1 
num2str 〈)) 
int2str (7 


总 的 来 说 ， 可 以 将 这 些 函 数 分 为 三 类 ， 如 下 : - 
。 使 用 类 mwArray 的 构造 枉 数 来 创建 字符 阵列 对 象 ， 即 使 用 画 数 
mwAtrray 〔 const charx 》 
来 创建 字符 阵列 对 象 ， 这 也 是 最 简单 的 一 种 字符 阵列 对 象 的 构造 方法 。 例 如 
mwaArray A 《7 MATLABC 十 十 Math Library”)1 
cout < < 有 一 4 < 开 所 六 二 所 endl 
执行 这 段 代码 ， 将 显示 如 下 内 容 : 
'IMATLAB C 十 十 Math Libratry 
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。 通过 将 数值 阵列 转换 为 字符 阵列 来 创建 字符 阵列 对 象 , 这 主要 是 通过 以 下 三 个 郴 
数 来 实现 的 : 


char _func (); 
ntm2sttr 〔)# 
int2str 〔〈)5 


其 中 函数 char _func (〈) 可 以 按 ASCII 码 表 的 数值 和 字符 的 对 应 关系 将 一 个 数值 
阵列 转换 为 字符 阵列 ， 例 如 


// 声明 两 个 mwArray 类 对 象 

imWArray 上 太 ， 卫 ; 

// 将 点 初始 化 为 一 个 数值 阵列 

二 一 horzeat 《109，121，32，115，116，114，105，110，10373 
// 使 用 函数 char _fune 〈) 将 转换 为 字符 阵列 

也 一 chatr _func 〔 和 ) 

// 输出 字符 阵列 也 

cout 必 必 B << enql; 


执行 这 段 代 码 ， 将 显示 如 下 内 容 ， 
"my string' 
此 外 通过 画 数 char _func 〈)， 用 户 还 可 以 轻松 地 构造 多 维 的 字符 阵列 ， 例 如 
tnw 丰 rray 下 【2 MATILAB 入 PIw)) 
mwArray 再 〈《" MATLAB CC 十 十 Math Library ”)# 
TawArray C 一 char _func 〔〈Z，Y); 
cout < < CC << endl) 


执行 这 段 代码 ， 将 显示 如 下 内 容 : 
[ 
MATLAB API' 5 
MATLABC 十 十 Math Library ”) 
] 


函数 aum2str () 可 以 直接 将 一 个 数值 阵列 转换 为 一 个 字符 阵列 ， 例 如 
// 声明 两 个 mwArray 类 对 象 
mwAtrtray 六， 了 
// 将 A 初始 化 为 一 个 数值 阵列 
和 一 horzcat (109，121，32，115，116，114，105，110，10373 
// 司 用 画 数 num2str (将 A 转换 为 字符 阵列 
B = num2str (入 )5$ 
// 输出 字符 阵列 B 
cout < < 耻 女 挟 endli; 
执行 这 段 代码 ， 将 显示 如 下 内 容 : 
"109 121 32 115 116 114 105 110 103' 
冰 数 int2str 〈) 完成 的 工作 与 两 数 aum2str () 类 似 ， 只 不 过 在 转换 前 需要 进行 


四 含 五 人 的 取 整 操作 ， 例 如 
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// 声明 两 个 mwArray 类 对 象 


IPArtray C bi; 


/1/ 将 c 初 始 化 为 一 个 数值 阵列 

c 一 horzcat (1.0，1,1，1.2，1.3，1.4，1.5，1.6，1.7，1.8，1.9)7 
A/ 使 用 函 教 int2str 〔() 将 和 转换 为 字符 颖 烈 

hb 一 int2str (《c); 

cout < < b << endjii 


执行 这 段 代 码 ， 将 显示 如 下 内 容 ， 


和 下 区 
。 通过 拼接 已 有 的 字符 阵列 来 构造 新 的 字符 阵列 对 象 ， 这 主要 是 通过 尊 数 


stT2mat 〔)j 
Strcat 《7j 
strVveat 《)1} 


来 完成 的 ， 其 中 函数 str2mat () 和 郴 数 strvcat 〈) 的 功能 相同 ， 它 们 都 是 将 输 
人 的 字符 阵列 按 行 垂 直 拼 接 起 来 , 并 且 通 过 添加 空格 使 阵列 中 所 有 的 字符 串 拥 有 
同样 的 长 度 , 它们 之 间 惟 一 的 不 同 是 函数 str2mat () 不 忽 路 输 和 人 字符 阵列 中 的 空 
阵列 ， 而 函数 strveat 〈) 将 忽 鹭 空 阵列 ， 例 如 

// 声明 两 个 mwArray 类 对 象 

mArray ay by 

/7/ 使 用 函数 str2mat 〈)》 构造 字符 阵列 

a 一 str2mat (” abcdefg” ”2 ”lmhopqr 7; 

/7/ 使 用 函数 strveat () 构造 字符 阵列 

和 一 strveat 〔(” abcdefg” yw lmnopqy >》 

// 输出 字符 阵列 

cout << ”aa 一 ”所 所 endl; 

cout 必 忌 a 扫 挟 endly 

cout << nr b 一 ”< 捷 <<endli 

cout <<b 所 所 endl; 


执行 这 段 代码 ， 将 显示 如 下 内 容 : 


[ 
,abcdefg' # 
1 F 


nmnopq ' 


"abcdefg”; 
!]mnopg 


] 
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王 数 strcat 〈)》 的 功能 是 将 输入 的 字符 阵列 在 水 平方 向 上 拼接 起 来 ， 例 如 
// 声明 一 个 mwArray 类 对 象 
Imw 太 tray 8 
jy/ 使 用 范 数 str2mat 〈》 构造 字符 阵列 
a 一 strfcat 《7 abcdetg” ,9 ”lmnopq”*)3 
// 输出 字符 阵列 
cout <<< ”aa 一 ” 民 < 所 endi 
cout << a <<<< endl; 


执行 这 段 代 码 ， 将 显示 如 下 内 容 : 


"abcdefglmnopq 


4， 单元 阵列 的 创建 


单元 阵列 是 MATLAB V5.X 版 本 所 提供 的 一 种 新 的 阵列 数据 类 型 ， 它 提供 了 一 种 
将 多 个 不 同类 型 的 阵列 数据 存放 在 一 起 的 手段 ， 在 本 书 的 第 一 章 我 们 已 经 对 它 进行 了 详 
细 的 介绍 . 在 MATLAB C 十 十 数学 本 数 库 2. 0 版 本 中 , 提供 了 对 单元 阵列 的 支持 , 这 与 


1. 2 版 本 相 比 是 一 个 明显 的 功能 增强 ， 其 中 用 于 创建 单元 阵列 对 象 的 函数 主要 有 以 下 一 
些 ， 


区 一 人 


cell ()4 
cellstr (7# 
cellhcat 〔); 
sttruct2cell 〔(); 


num2cell ()# 


总 的 来 说 ， 用 户 可 以 通过 四 种 方法 来 创建 单元 阵列 对 象 ， 分 别 为 ， 
。 使 用 单元 阵列 的 创建 函数 来 构造 单元 阵列 对 象 ， 这 主要 是 通过 函数 cell () 来 完 
成 的 ， 例 如 
// 声明 mwArray 类 对 象 


mwWArTay di 
// 通过 函数 cell () 构造 一 个 3X3X3 的 单元 阵列 


d 一 cel (3，3，3)7 
cout 女性 一 ”< 必 <<endls 
cout < < d <<endl 


执行 这 段 代码 ， 将 显示 如 下 内 容 : 
由 一 
《:，:，1) 一 
器， 加: 中 
[中 “加 “和 罩 
[中 -区 “ 回 
(:， 4，2) 一 
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吕 吕 ] 加 

口 器 器 

各 口 ] 世 
《ti 3) 一 

口 口 口 

[] [ [ 

口 器 口 


。 使 用 转换 函数 构造 单元 阵列 对 象 ， 这 主要 是 通过 以 下 三 个 范 数 
cellstr 〔)》+ 
struct2retl 《)? 
numz2cell 〈《)) 


来 完成 的 ， 其 中 函数 cellstr () 可 以 将 一 个 字符 阵列 转换 为 一 个 单元 阵列 ， 例 如 


tnwArTrayb，ds 

b 一 strvcat (〔" abcedefgn" yw tmnopqy); 
d 一 cellstr 《by)+ 

cout <<<< ” d 一 "” <<<end]; 

cout << d 女 <endl 


执行 这 段 代码 ， 将 显示 如 下 内 容 ， 
d 二 
abcdefg: 


"lmnepd 
函数 num2cell 〈) 可 以 将 一 个 数值 阵列 转换 为 一 个 单元 阵列 ， 例 如 


ImW 太 rrTa7 Ci 

cC 一 Daes(〔2，371 

c 一 num2cell (c)3 

eout << ”Cc 一 ”<<eh 由 ; 
cout << cc <<endl; 


执行 这 段 代码 ， 将 显示 如 下 内 容 ， 
D] [3 [1] 
[ [] 1 
函数 struct2cell () 可 以 将 一 个 结构 体 转 换 为 单元 阵列 。 

。 使 用 拼接 的 方法 来 构造 单元 阵列 对 象 ， 这 主要 是 通过 函数 celihcat () 来 完成 的 ， 
该 函数 的 使 用 方法 与 MATLAB 中 的 {} 运算 符 非常 相似 ， 例 如 在 MATLAB 中 
我 们 可 以 通过 在 命令 提示 符 下 键 人 如 下 命令 

? e 一 {ijoin us' oneg (5) eye (6) 8} 


来 创建 一 个 单元 阵列 e， 而 在 C 十 十 语言 中 ， 通 过 以 下 的 代码 


mWAATTay7 e 
e 一 cellheat ("” join us ，oneg 《5)，eye 〈6)，8) 
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cout << ”ee 一 ”< <endl) 
cout < < e < <endl]i 


完成 同样 的 工作 ， 执 行 这 段 代码 ， 将 显示 如 下 汶 容 ， 


"join us' [5x5 double ] [6xt6 double] [8] 


如 果 用 户 希 望 创建 多 行 或 多 维 的 单元 阵列 ， 可 以 配合 使 用 函 教 verteat () 和 画 数 
cat 〈) 即 可 。 例 如 


Imw 上 trray ey 

e 一 vertcat 《cejlhcat 《” join us ，ones 〔5)》，ecellhcat (eye (6)，8773 
于 一 cat 〔3，eellheat 《" join us ，ohes 〔〈5))》，cellhcat 《eye (6)，8773 
cout < < ee 一 ”<<endl; 

cout < < ee <<endly 

cout 必 扫 ”于 ”<<end]i 

cout 所 所 ff <<endl; 


执行 这 段 代 码 ， 将 显示 如 下 内 容 ， 
e 一 
"join us' [5x5 double] 
[6x6 double] 18] 
去 
《:::，1)》 一 
"join ug' [5x5 deuble] 
{《:，:，27》 一 
[6x6 double] [8] 


， 通 过 赋值 来 完成 单元 阵列 对 象 的 构造 ， 例 如 


TowArray gj 

g (2，2) 一 cellhcat 《” join us* )4 
cout 民 所 ”有 一 ”<<endl; 

cout <<g <<endl; 


执行 这 段 代码 ， 将 显示 如 下 内 容 ， 


g 一 
日 [] 


口 :+join ug: 


5。 结 板 体 阵列 的 创建 


结构 体 阵 列 是 MATLAB V5.X 版 本 所 提供 的 一 种 新 的 阵列 数据 类 型 ， 在 本 书 的 第 
一 章 我 们 已 经 对 这 种 阵列 类 型 进行 了 详细 的 介绍 。 在 MATLAB C 十 十 数学 函数 库 2.0 
版 本 中 ， 提 供 了 对 结构 体 阵 列 的 支持 ， 这 与 1. 2 版 本 相 比 是 一 个 明显 的 功能 增强 。 总 的 
来 说 , 在 MATLAB C 十 十 数学 函数 库 中 , 共 提 供 了 三 种 构造 结构 体 阵列 对 象 的 方法 ， 分 
别 如 下 : 
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， 使 用 结构 体 阵列 的 构造 函数 来 创建 结构 体 阵列 对 象 ， 这 主要 是 通过 函数 struct _ 
funec 《) 来 完成 的 ， 例 如 


Im 上 ArT3a7 aa bi 


晶 一 struct _func 《” first _ name ， Ar field name 
”三 angnr， /7 value 
” lasgt name ， Ar field name 
” Xiao rming" ， /value 
? agen， AZ jield hame 
17》4 AAA valbe 


cout << aa 一 << endli; 
cout << a 捷 < endl; 


执行 这 段 代 码 ， 将 显示 如 下 内 容 : 
肌 一 
first _name: “Wang' 
laat _narme: 'xiac Iming: 


age: 17 


。 通过 转换 范 数 将 单元 阵列 对 象 转 换 为 结构 体 阵 列 对 象 ， 这 主要 是 通过 函数 
cell2struct 〈) 来 完成 的 ， 例 如 
mw 上 Array 8，b，ci 
/7/ 构造 单元 阵列 对 象 ， 用 于 存放 值 
a 一 celihcat (” 到 ang xiaormirg”， 
7， 
”tingzaing” 7 了 
cout < < a << endl; 


/7 构造 单元 阵列 对 象 ， 用 于 存放 城 名 
b 一 eellhcat 《” haraeY ， 
音 age ， 
”micknatme”) ; 


/7/ 将 单元 阵列 对 象 转换 为 结构 体 阵列 对 象 


c 一 cell2struct (ab，2)# 
cout 民心 ”ee 一 ”< 所 <endli 
cout << ce 女 < endl; 


执行 这 段 代码 ， 将 显示 如 下 内 容 : 
:Wang xiaotmning' [1I7] :mingming- 
name: /Wang xiaoming' 


age: 17 


nickname: mingrming 


， 授 过 赋值 操作 来 创建 结构 体 阵 列 对 象 ， 例 如 
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IW 丰 ITaYy Of 

cC〔3，3) 一 struct _fiunce (”hamer ,+ Wang xiaomingr age" 7 172"7)， 
eout << ”ec 一 ” 才女 end]i 

cout < < << endly 


执行 这 段 代码 ， 将 显示 如 下 内 容 ， 


《 一 
3x3 sttuct array With fields , 
matmne 


age 


8.2.2 阵列 对 象 的 索引 操作 


在 上 一 小 节 中 ， 我 们 对 MATLAB C 十 十 数学 函数 库 中 各 种 类 型 的 阵列 对 象 的 创建 
操作 进行 了 说 明 , 在 本 小 节 中 , 我 们 将 讲述 MATLAB C 十 十 数学 函数 库 中 另 一 种 关于 阵 
列 对 象 的 基本 操作 ， 即 索引 操作 ， 通 过 索引 操作 用 户 可 以 方便 地 完成 对 阵列 对 象 中 元 素 
的 访问 、 禾 改 和 删除 任务 。 在 MATLASB 中 , 对 于 三 种 不 同类 型 的 阵列 ， 即 数值 阵列 、 单 
元 阵列 和 结构 体 阵 列 提供 了 三 种 不 同 的 索引 操作 、 即 小 括号 ()、 大 括号 {) 和 域名 (field 
name)。 相 应 的 , 在 MATLAB C 十 十 数学 函数 库 中 ,同样 对 三 种 不 同 的 阵列 对 象 提供 了 
不 同 的 索引 操作 ， 它 们 之 间 的 对 应 关系 如 下 ， 

数值 阵列 对 象 一 一 运算 符 〈) 
单元 阵列 对 象 一 - mwArray:,:， cell () 
结构 体 阵 列 对 象 一 -- mwArray::， field (0 
其 中 运算 符 〈) 和 画 数 mwArray:: celi《〈) 的 输入 参数 为 数值 ， 而 函数 mwArray:: field 
() 的 输入 参数 为 阵列 的 域名 。 下 面 我 们 将 对 它们 进行 分 别 讲述 。 
在 进行 详细 讲述 之 前 ， 用 户 必 须 清楚 两 个 基本 概念 ， 即 
。 索 引 和 下 标 。 参 见 下 面 的 表达 式 ， 
及 《2，47) 
该 式 为 一 个 典型 的 索引 表达 式 ， 其 中 A 为 一 个 mwArray 类 对 象 ， 数值 2 和 4 统 
称 为 索引 ， 而 〈2，4) 作为 一 个 整体 称 为 下 标 ， 并 且 是 一 个 二 维 下 标 ， 通 常 小 
() 中 用 逗号 分 隔 开 的 独立 的 索引 的 个 数 称 为 下 标的 维 数 。 
。 盏 列 对 象 元 素 的 存储 。 关于 这 一 点 我 们 在 前 面 已 经 多 次 提 到 ， 阵 列 对 象 元 素 的 存 
储 方 法 与 C 士 十 语言 中 的 数组 的 存储 方法 截然 不 同 ， 在 C 十 十 语言 中 ， 数 组 元 素 
为 按 行 存储 ， 而 阵列 对 象 元 素 则 恰好 相反 ， 为 按 列 存储 。 例如 一 个 二 维 的 大 小 为 
[d, d] 的 阵列 对 象 ， 其 中 第 〈(i, j) 个 元 素 的 偏 移 量 为 〈(j 一 1) * 中 十 ( 注 ， 阵 
列 对 象 的 元 素 的 索引 值 的 起 始 值 为 1， 而 C 十 十 数组 则 为 0); 对 于 多 维 的 阵列 与 
此 类 似 ， 假设 一 个 n 维 阵列 对 象 的 大 小 为 Ld ，dq:，ds，… d,], 则 其 中 第 (ai， ay， 
ad，…， an)》 趟 元 过 的 估 交 是 而 以 由 下 面 的 公式 进行 计 各 
(a 一 1) (ds 一 1 ) (du ..，(di) 十 《an-1)》 (do-z)，。 (di) 十 ,.、 十 《az 一 
1)》 (di) 十 an 
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1. 数值 阵列 对 象 的 索引 操作 


根据 下 标的 维 数 和 类 型 ， 可 以 将 数值 阵列 对 象 索引 操作 的 运算 符 〈) 分 为 三 种 类 型 ， 
即使 用 一 维 下 标的 索引 操作 ， 使 用 多 维 下 标的 索引 操作 和 使 用 有 还 辑 下 标的 索引 操作 ， 下 
面 我 们 将 分 别 进 行 说 明 。 
*。 使 用 一 维 下 标的 家 引 操作 
通过 使 用 不 同形 式 的 一 维 下 标 表示 方式 ， 用 户 可 以 获得 不 同 的 索引 结果 。 当 一 维 
下 标 中 仅 包 含 单一 的 家 引 元 素 时 ， 所 获取 的 索引 结果 同样 为 单一 的 阵列 元 素 ， 例 如 
令 
类 二 
1 2 3 
4 5 1 
7 了 7 8 9 
则 索引 表达 式 A (2) 的 结果 为 4 当 一 维 下 标 由 一 个 向 基 组 成 时 ， 则 所 获取 的 索引 
结果 同样 为 一 个 向 量 , 例如 家 引 表 达 式 A (horzeat (3,， 5, 7)) 和 索引 表达 式 A (vert- 
cat 《3，5，7)) 的 结果 分 别 为 
7 了 53 


?了 
5 
3 
当 一 维 下 标 由 一 个 矩阵 表示 时 , 则 索引 表达 式 返 回 的 结果 为 一 个 同样 大 小 的 矩阵 , 例 
如 矩阵 也 为 
B 一 
3 5 
7 9 
则 索引 表达 式 A〈B) 的 索引 结果 为 
7 了 5 
3 9 
此 外 ,用 户 还 可 以 通过 函数 colon 〈) 作为 索引 来 获取 所 有 的 阵列 元 素 ， 例 如 索引 表 
达 式 A (celon (0) 的 索引 结果 为 
1 


4 
7 
2 
5 
8 
3 
6 
9 

使 


用 多 维 下 标的 索引 操作 
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在 使 用 多 维 下 标 时 ， 下 标 中 的 第 一 个 索引 代表 阵列 的 行 索引 值 ， 第 二 个 索引 代 
表 阵 列 的 列 索引 值 ， 第 三 个 索引 代表 阵列 的 页 面 索引 值 ， 第 四 个 第 五 个 索引 以 此 类 
推 ， 例 如 索引 表达 式 A (2,，3) 的 索引 结果 为 5， 这 里 阵列 A 的 值 同上 。 当 用 户 希 肩 
从 阵列 中 提取 出 若干 个 元 素 并 表示 为 向 量 时 ， 可 以 用 多 维 下 标 表示 为 如 下 形式 ， 

由 〈horzcat (2，3)，1)》 或 入 〈1，horzcat (2，3)) 
它们 的 索引 结果 分 别 为 

才 

了 


2 3 
将 函数 coion 〈() 作为 行 或 列 的 索引 ， 可 以 获得 阵列 中 整 行 或 整 列 的 元 素 ， 例 如 索引 表达 式 
二 《colon ()，2) 或 和 《2，colon ()) 
它们 的 索引 结果 分 别 为 
2 
5 
8 


4586 
如 果 将 所 有 的 索引 用 向 量 的 形式 表示 ， 则 所 获取 的 索引 结果 为 阵列 形式 ， 例 如 索引 
表达 式 
六 《horzcat (1，2)，horzcat (1，27)) 
的 结果 为 
1 2 
45 
对 于 索引 维 数 大 于 2 的 索引 表达 式 ， 使 用 方法 与 二 维 情况 类 似 ， 令 


43 14 15 
16 17 18 


则 索引 表达 式 B (colon ()，colon (0),， 2) 和 B 1， colon 《)，colon 〈()) 
的 索引 结果 分 别 为 


l0 11 12 
13 14 15 
16 17 18 
Page 1 
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Page 2 
10 11 上 必 
。 使 用 还 辑 下 标的 索引 操作 ， 
所 调 逻 辑 下 标 就 是 指 所 有 的 索引 的 元 素 均 由 逻辑 值 零 和 一 构成 的 下 标 , 例如 和 珑 阵 
了 =- 


已 天书 


1 
1 


妆 上 二 号 


就 是 一 个 逻辑 下 标 ， 令 


页 三 


-3 中 呈 
co cm 
cp ep 


则 索引 表达 式 A_ 《logical (B)) 的 结果 为 

2 

入 

6 

8 
当 到 辑 索引 表达 式 为 如 下 形式 

由 【iogical (herzeat (1、0，1))，logical (horzcat (0，1，07)) 
时 ， 索 引 结果 为 

8 

这 里 logical (horzcat (1 0, 1)) 表示 行 索引 ,含义 为 选取 阵列 A 的 第 一 和 第 三 
行 , 而 logical (horzcat (0, 1, 0)) 表示 列 索引 ,含义 为 选取 阵列 A 的 第 二 列 。 在 
使 用 逻辑 索引 时 , 同样 可 以 使 用 函数 colon () 对 阵 行 或 阵列 的 阵列 元 素 进 行 访 问 ， 
例如 索引 表达 式 

A(〈logical (eolon 〈)，logical (herzcat (0，1，1))》 

的 索引 结果 为 
2 3 
5 6 
8 9 

2. 单元 阵列 对 象 的 索引 操作 

单元 阵列 是 MATLAB V5.X 版 本 所 提供 的 一 种 新 型 的 阵列 对 象 ， 其 构成 与 常规 的 
峰 列 对 象 “〈 与 稀 朴 矩阵 相对 ) 相同 ， 可 以 为 任意 维 数 、 任 意 大 小 ， 只 不 过 阵列 中 的 每 一 
个 元 素 均 为 一 个 阵列 对 象 ， 称 为 单元 ， 各 个 单元 所 包含 的 阵列 对 象 之 间 的 类 型 、 维 数 和 
大 小 均 可 以 各 不 相同 ， 并 且 人 允许 嵌 套 ， 即 单元 阵列 的 某 个 单元 所 包含 的 阵列 对 象 仍然 是 
一 个 单元 阵列 ， 有 关 单 元 阵列 在 本 书 的 第 一 章 有 详细 的 描述 。 
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= 一 一 -< 一 


在 MATLAB 中 ,对 单元 阵列 的 索引 操作 提供 了 两 种 索引 运算 符 , 即 常规 的 索引 运算 
符 〈) 和 专用 索引 运算 符 {【}。 相 应 地 ， 在 MATLAB C 十 十 数学 函数 库 中 则 赃 媒 供 了 两 
种 关于 单元 阵列 对 象 的 索引 操作 ， 分 别 为 运算 符 〈) 和 类 mwArray 的 成 员 函 数 ceil ()。 

单元 阵列 对 象 的 索引 操作 同 数值 阵列 对 象 的 索引 操作 方法 基本 类 似 、 既 可 以 通过 用 
向 晶 形 式 表示 的 下 标 来 获取 向 量 形式 的 索引 结果 ， 也 可 以 通过 和 邱 阵 形式 表示 的 下 标 来 获 
取 抢 阵 形式 的 索引 结果 ， 同 时 还 可 以 通过 郴 数 colon 〈) 来 获取 整 行 或 整 列 的 阵列 内 容 ， 
不 过 这 里 必须 注意 的 一 点 是 使 用 标准 索引 符 () 和 使 用 类 mwArray 的 成 员 函 数 cell ( ) 进 
行 索引 所 返回 的 结果 并 不 相同 , 使 用 标准 索引 符 〈) 时 , 返回 的 结果 仍然 为 单元 阵列 , 而 
使 用 类 mwArray 的 成 员 函 数 cell () 返回 的 结果 却 是 与 单元 阵列 对 象 中 某 个 指定 单元 所 
包含 的 阵列 对 象 类 型 相同 的 阵列 对 象 ， 下 面 我 们 将 举例 说 明 单 元 阵列 对 象 的 各 种 索引 操 


作 。 
人 党 


由 ,cell (1,，1) 一 vertcat 《horzcat 《1，3》，borzcat 《2，4774 
上 .eell (1，2》 一 complex (一 2，57)3 

Aceell (2，1)》 一 ”MATLABC 十 十 Math Library”; 

上 .cell 《2，2》 一 3; 


。 对 单元 阵列 单个 单元 的 索引 操作 ， 这 主要 是 通过 索引 运算 符 〈) 来 完成 的 ， 例 如 


索引 表达 式 
了 一 和 (2，1) 
其 中 B 为 一 个 mwArray 类 对 象 ， 执 行 该 索引 表达 式 返 回 的 结果 为 
B 一 
MATLAEBC 二 十 Math Library' 
并 且 阵 列 对 象 B 为 一 个 1X1 的 单元 阵列 。 


。 访 问 单元 阵列 对 象 的 一 个 子 集 ， 这 主要 是 通过 索引 运算 符 《〈) 来 完成 的 ， 例 如 索 


引 表 达 式 
了 = 上 (2，colen ()》 和 C = 三 入 (1，horzcat 【1，2)) 


其 中 B 和 fC 均 为 mwArray 类 对 象 ， 执 行 这 两 个 索引 表达 式 返回 的 结果 分 别 为 
了 一 
[1x23 char] [3] 
C 一 
[2x2 double] [一 2.0000 十 5. 0000i] 


并 且 阵 列 对 象 B 和 C 均 为 1X2 的 单元 阵列 。 


。 访 问 单元 阵列 中 某 个 单元 的 内 容 ， 这 主要 是 通过 类 mwArray 的 成 员 函数 cell () 


来 完成 的 ， 鲍 如 索引 表达 式 
B = A.cell (2，1) 
其 中 B 为 一 个 mwArray 类 对 象 ， 执 行 该 索引 表达 式 返 回 的 结果 为 


B 一 
MATLABC 十 十 Math Library 


并 且 阵 列 对 象 B 为 一 个 字符 串 阵 列 对 象 。 
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。 获取 单元 阵列 中 某 个 单元 的 内 容 的 子 集 ， 这 主要 是 通过 类 mwArray 的 成 员 郴 数 
cell () 和 索引 运算 符 〈) 联合 作用 来 完成 的 ， 例 如 索引 表达 式 
也 三 和 丰 .eell (2，17 《1，horzcat 55，9，15，2077# 
其 中 B 为 一 个 mwArray 类 对 象 ， 执 行 该 索引 表达 式 返 回 的 结果 为 
B=- 
:起 十 hr 
并 且 阵 列 对 象 B 为 一 个 字符 串 阵 列 对 象 。 
。 对 于 包含 左 套 的 单元 阵列 中 舱 套 单元 的 访问 ， 这 主要 是 通过 重复 使 用 类 mwAr- 
ray 的 成 员 函 数 cell () 来 完成 的 。 令 
mw 上 rray 也， 六 
六 ,eel[ 〔1，1》 一 vertcat 《horzeat 〔1，3)J。horzcat 《2，47?71 
六 ,cell (1，2) ,sell (1，1》 一 complex 《一 2，5)4# 
页 ,cell (1，2) .cell (1，2) 一 ”abcdefgry 
太 .cell (1i，2) ,cell 《2，1) 一 43 
上 ,cell (1，2》 .cell (2，2) .cell .(1，1) 一 10 
由 .ceil (1，2) .cell (2，2) .celi (1，2) 一 ”TstuVw7 + 
Aceell 2，1) 一 ”MATLAB CT 十 十 Math Library”; 
六 ,cell 《2，2)》 一 3; 


则 执行 以 下 代码 


也 一 Acell (1，2) .cell (2，2) ,cell 《1，273 
cout 必 必 7 日 =”<<endis 
cout < < B << endl 


返回 的 结果 为 
B== 
?rsStuvWwr' 


并 且 阵 列 对 象 B 为 一 个 字符 申 阵列 对 象 。 这 里 通过 多 次 使 用 成 员 函 数 cell () 访 


问 到 了 单元 的 最 底层 。 如 果 索 引 表 达 式 为 如 下 形式 ， 
BB 一 及 cell (1，2) ,cell 《2，2)? 


则 返回 的 结果 为 
了 一 
[10] 'rstuvw/ 
阵列 对 象 B 为 一 个 单元 阵列 对 象 。 
3， 结构 体 阵 列 对 象 的 索引 操作 


MATLAB 结构 体 (structure) 是 MATLAB V5. 共 中 的 一 种 新 型 的 阵列 类 型 ， 其 定 
义 与 C 语言 和 C 十 十 语言 中 结构 体 的 定义 类 似 , 是 由 一 系列 不 同 的 域 (field) 组 成 , 每 一 
个 域 均 可 以 为 不 同类 型 的 MATLAB 阵列 , 甚至 可 以 为 另外 一 个 MATLAB 结构 体 .与 党 
规 的 MATLAB 阵列 相同 , MATLASB 结构 体 同 样 为 面向 阵列 的 数据 类 型 ， 单一 的 结构 体 
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对 象 实际 为 一 个 1X1 的 结构 体 阵列 对 象 ， 这 与 MATLAB 中 将 数值 5 视 为 一 个 1X1 数 
值 阵列 对 象 的 概念 相同 。 同 理 ， 用 户 可 以 构造 多 维 的 结构 体 阵 列 对 象 ， 其 每 一 个 元 素 均 
为 一 个 结构 体 对 象 ， 不 过 这 里 必须 注意 的 一 点 是 在 结构 体 阵 列 对 象 中 ， 每 一 个 结构 体 对 
象 所 包含 的 域 必须 完全 相同 , 当 对 阵列 中 某 一 个 结构 体 对 象 进行 域 的 增加 和 删除 操作 时 ， 
结构 体 阵列 中 所 有 的 结构 体 对 象 将 同时 增加 或 贡 除 某 一 个 域 。 

在 MATLAB C 十 十 数学 函数 库 中 ， 为 结构 体 阵 列 对 象 的 家 引 操 作 提 供 了 两 种 不 同 
的 手段 ， 分 别 用 于 完成 不 同 的 任务 ， 在 使 用 标准 的 索引 操作 运算 符 〈) 时 ， 完 成 的 主要 
功能 是 对 结构 体 阵 列 中 结构 体 对 象 的 索引 操作 ， 而 在 使 用 类 mwArray 的 成 员 函 数 field 
() 时 , 可 以 通过 将 域名 作为 参数 完成 对 结构 体 阵 列 中 结构 体 对 象 的 域 的 索引 操作 。 例 如 
存在 一 个 名 为 peoples 的 结构 体 阵 列 ， 大 小 为 3X3X3， 其 中 peoples (2，2，2) 所 包含 
的 内 容 如 下 : 


peobles 〔2，2，2》 .field (” firstnameY ) 一 ”而 ang2i 

pecobjes (2，2，2》 .field 〔”]astmatne 》 一 ”Xiaolnin 帮 "7 

Peoples 〔2，2，2)》 .field ("” age") 一 174 

Peoples 〈《2，2，2》 .field 《”birthday" >》 .field《”year) 一 1975; 
Peoples (2，2，2) .field (birthday") .fieid 〈"” monthr) 三 11; 
Peoples 〈《2，2，2)》 .field《*” birthday" 》 ,field 《”day”》 一 15; 


该 结构 体 对 象 包含 四 个 域 , 分 别 为 firstname, lastname, age 和 hbirthday, 其 中 域 birthday 
又 为 一 个 结构 体 对 象 ， 包 含 三 个 域 ， 分 别 为 year，rmonth 和 day。 通 过 索引 表达 式 
了 一 Peoples 《2，2，2)) 
用 户 可 以 获得 指定 的 结构 体 对 象 , 其 中 了 被 声明 为 一 个 mwArray 类 对 象 , 执行 该 表达 式 
将 返回 如 下 结果 ， 
B 一 
firetname :Wang' 
jastnamet "xiaotming'/ 
age: 17 
birthaasy: [1xl struet] 


这 里 了 为 一 个 1X1 的 结构 体 阵 列 对象 。 通 过 索引 表达 式 

了 一 Peoples (2，2，2) .field 人 ”birthday” 7 
用 户 可 以 获得 指定 结构 体 阵 列 中 指定 结构 体 对 象 中 指定 域 的 内 容 ， 执 行 该 索引 表达 式 将 
返回 如 下 结果 ， 


3= 
yeari 1975 
month : 11 
day:， 15 


这 里 3 为 一 个 结构 体 对 象 ， 因 为 birthday 域 的 内 容 为 一 个 结构 体 对 象 ， 如 果 索 引 表 达 式 
为 


B 一 peoples 〔2，2，2) .field 《7 firstname”)7 


执行 该 表达 式 将 返回 下 结果 ; 
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了 一 
”Wang' 


这 里 B 为 一 个 字符 类 型 的 阵列 对 象 ， 因 为 firstname 域 的 内 容 为 一 个 字符 阵列 。 
8.3 应 用 程序 的 编写 


在 本 节 中 ， 我 们 将 对 MATLAB C 十 十 数学 函数 库 中 数学 运算 符 和 库 函 数 的 使 用 分 
别 进行 简要 说 明 ， 然 后 给 出 一 个 完整 的 基于 MATLAB C 十 十 数学 函数 库 编 写 的 范例 程 
序 ， 最 后 简要 讲述 刀 何 在 Microseft Visual C 十 十 6.0 集成 环境 中 建立 基于 MATLAB 
C 十 十 数学 函数 库 的 应 用 程序 。 


8. 3.1 数学 运算 符 的 使 用 


在 MATLAB 中 , 为 了 方便 用 户 对 阵列 的 数学 运算 ,系统 提供 了 大 量 的 数学 运算 符 供 
用 户 使 用 ， 分 别 如 下 ， 
下 
从 总 体 上 可 以 将 这 些 数学 运算 符 分 为 两 类 ， 即 阵列 运算 符 和 和 拖 阵 运算 符 ， 一 般 来 说 ， 气 
阵 运 算 符 的 前 方 没有 符号 “. ”， 而 阵列 运算 符 的 前 方 拥有 符号 “, ”， 例 如 运算 符 * 和 运 
算 符 . * 分 别 是 矩阵 的 乘法 运算 符 和 阵列 的 乘法 运算 符 。 符 阵 运算 符 和 阵列 运算 符 在 功 
能 上 存在 着 相当 大 的 差异 ， 和 矩阵 运算 符 的 定义 为 线性 代数 中 和 抢 阵 数学 运算 的 定义 ， 仅 仅 
适用 于 二 维 的 阵列 , 即 和 矩阵, 所 以 称 这 些 运算 符 为 矩阵 运算 符 , 而 阵列 运算 符 则 不 则 , 它 
作用 于 阵列 中 的 每 一 个 元 素 ， 使 用 于 任何 维 数 的 阵列 ， 包 括 二 维 ， 不 过 要 求 运 算 符 的 左 
右 两 个 操作 数 必 须 同 维 数 ， 并 且 每 一 维 的 大 小 也 相同 。 例 如 存在 矩阵 A 和 B8， 它 们 的 定 
义 分 别 如 下 : 
六 一 [11 11]， 
B=[22; 223j; 
使 用 矩阵 的 乘法 运算 符 ， 在 MATLAB 命令 提示 符 下 键 人 命令 
C 一 入 + 证 
回 车 后 可 以 得 到 如 下 结果 ， 
六 二 
二 二 


使 用 阵列 的 乘法 运算 符 ， 在 MATLAB 命令 提示 符 下 键 人 命令 
立 一 页 . # 卫 
回 车 后 可 以 得 到 如 下 结果 : 


2 2 
2 2 


可 见 二 者 的 计算 结果 完全 不 同 。 这 里 必须 注意 的 是 对 于 加 法 和 减法 没有 矩阵 运算 符 和 阵 
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列 运 算 符 的 区 别 , 因 为 它们 完成 的 功能 相同 ,所 以 在 MATELAB 中 只 提供 了 加 法 运算 符 十 
和 了 减法 运算 符 一 ， 而 没 用 提供 , 十 和 . 一 运算 符 。 

在 MATLAB C 十 十 数学 函数 库 中 , 对 所 有 的 MATLAB 的 数学 运算 符 提 供 了 对 应 函 
数 。 申 于 一 些 符号 在 C 十 十 语言 中 为 非法 的 标示 符 , 因此 在 MATLAB C 十 十 数学 函数 库 
中 无 法 定义 ， 只 能 使 用 函数 加 以 替代 ， 完 成 功能 。 表 8. 4 为 MATLAB 中 数学 运算 符 和 
MATLAB C 十 十 数学 函数 库 中 运算 符 及 函数 的 对 应 关系 表 。 


表 8.4 数学 运算 符 对 应 关系 




















MATLAB 数学 运算 符 C 十 十 函数 
ae 
。 mbpoewer 《) 
 : 
.7 无 rdivide 〈) 
pve 0 


它们 的 使 用 非常 简单 , 与 C 十 十 语言 中 普通 运算 符 和 函数 的 调用 完全 一 致 , 不同 的 只 
是 参数 类 型 应 为 mwArray 类 对 象 ， 例 如 


atatic double datal [] 一 1 ll,，1,，1); 
static doublte data2 []={2,，2,，2,，2); 
ta 上 Array 六 《2，2，datal)]y 
ImwArTay 了 〔2，2，data271 


// 矩阵 染 法 

mwWArtrayC 一 intimes 〔 丰 ， 马 )# 
cout << "CC 一” <<endii 
cout C<C 亡 扫 endl; 


// 活 列 禾 法 

tmwArray 了 了 一夫 十 了 

cout < < ” 卫 一 ”< 扫 <efndlj 
cout < < 了 < 反 endl; 


执行 该 段 代码 可 以 得 到 如 下 结果 : 
C 一 
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] 3 4 
3 


除了 MATLAB C 十 十 数学 函数 库 提 供 的 运算 符 外 , 用 户 还 可 以 通过 C 十 十 提供 的 重 
载 机 制 对 一 些 运算 符 进 行 重 载 ,用 以 完成 特定 任务 , 例如 用 户 希 望 对 C 十 十 支持 的 自 乘 运 
算 符 * 一 进行 重 载 ， 用 以 完成 矩阵 的 自 乘 操作 ， 可 以 用 以 下 代码 实现 ， 
mw 上 Array Operator # 一 《ImwArray &A，const mwArray &B) 
{ 
站 一 六 By 
return 友 # 


} 


8.3.2 库 洗 数 的 调用 


在 MATLAB C 十 十 数学 函数 库 中 总 共 提 供 了 大 约 400 个 数学 函数 ， 其 中 每 一 个 画 
数 都 对 应 于 MATLAB 中 的 一 个 数学 画 数 , 用 于 完成 同样 的 功能 , 但 是 由 于 MATLAB 语 
言语 法 和 C 十 十 语言 语法 的 区 别 , 二 者 之 间 的 调用 形式 不 尽 相 同 。 在 本 小 节 中 , 我 们 将 在 
分 析 MATLAB 语言 语法 和 C 十 十 语言 语法 区 别 的 基础 上 , 对 MATLAB C 十 十 数学 王 数 
库 中 函数 的 调用 进行 讲述 。 

对 于 MATLAB 中 的 这 样 一 些 函 教 ， 它 们 拥有 固定 个 数 的 输入 参数 和 单一 的 输出 参 
数 , 对 于 它们 , 几乎 无 需 任 何 的 转换 ， 就 可 以 直接 使 用 在 C 十 十 语言 中 这 主要 是 因为 在 
MATLAB 和 在 MATLAB C 十 十 数学 函数 库 中 ,对 于 这 些 函 数 调用 的 语法 完全 相同 ， 例 
如 函数 log 在 MATLAB 中 的 调用 语法 为 

y 一 log (x) 
而 在 MATLAB C 十 十 数学 函数 库 中 ， 可 以 使 用 同样 的 方法 进行 调用 
7 一 jjog 《xj 
只 不 过 在 调用 前 必须 将 变量 y 和 x 声明 为 mwArray 类 对 象 。 

对 于 MATLAB 中 拥有 可 选 输入 人 参数 的 函数 来 说 , MATLAB C 十 十 数学 函数 库 为 郴 
数 的 任何 一 种 调用 格式 提供 了 一 个 相应 的 C 十 十 语言 函数 , 用 以 完成 同样 的 功能 , 并 且 函 
数 名 完全 相同 , 惟一 的 区 别 是 函数 的 输入 参数 的 个 数 不 同 。 这 里 充分 地 利用 了 C 十 十 语言 
的 重 载 机 制 ， 根 据 参数 个 数 的 不 同 ， 选 择 调用 不 同 的 函数 。 对 于 这 些 函 数 ， 它们 的 调用 
语法 在 MATLAB 和 MATLAB C 十 十 数学 函数 库 中 几乎 没有 不 同 。 例如 函数 lnspace 在 
MATLAB 中 的 声明 为 


funetion y 一 linspace 〈d1，dq2，ny》 


该 函数 拥有 三 个 输入 参数 , 其 中 参数 n 为 一 个 可 选 参数 , 函数 在 MATLAB 中 有 两 种 调用 
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方法 ， 分 别 为 ， 


y 一 1nspace 《a，b》 
y 一 linspace (a、，b，n) 


而 在 MATLAB C 十 十 数学 函数 库 中 ， 对 两 种 调用 格式 分 别 声 明了 一 个 函数 ， 如 下 


mwArray linspace 《const mwAtrray &a，const mwArray gb)i 


mw 太 rray linspace 《const tmwArtay &a，const mwArray kb，const mwArray &n)i; 


它们 的 调用 格式 为 


y 一 linspace 《aa，hby)》， 


y 一 linspace 〈《a，b，n)7y 


对 于 MATLAB 中 拥有 多 个 可 选 输出 的 函数 来 说 ,在 MATLAB C 十 十 数学 陋 数 库 中 
的 调用 有 较 大 的 不 同 , 这 主要 是 因为 在 C 十 十 语言 中 , 不 支持 函数 拥有 多 个 返回 和信, 一 般 
函数 至 多 只 能 拥有 一 个 返回 值 ， 如 果 用 户 一 定 要 求 函 教 能 够 返回 多 个 值 ， 惟 一 的 办 法 是 
使 用 指针 ， 通 过 挫 向 相同 的 内 存 地 址 来 完成 数据 的 交换 ， 从 而 实现 多 返回 值 。 例 如 
MATLAB 本 数 find ()， 其 在 MATLAB 中 的 调用 格式 分 别 如 下 ， 
k = find 《和 )) 
(1, 让 = 一 find (和 )) 
世 ,，j，v] = find (X); 


在 MATLAB C 十 十 数学 画 数 库 中 ， 对 三 种 调用 格式 分 别 声 明了 一 个 函数 ， 如 下 


mwAtrray find 【const mwArray &X); 
mwArray find 【mwATray +#+ j， const PTWATTay &X); 


mw 上 tray find 【mwArray * j，mw 和 rray # vconst rw 大 Fray 你 X)3 


它们 的 调用 格式 为 

k 一 find 〈 有 3 

i = 一 find《&j，X)7 

i = fnd 〔&j，&v，X); 
其 中 ;为 第 一 个 输出 参数 ，j 为 第 二 个 输出 参数 ，* 为 第 三 个 输出 参数 ， 这 里 通过 取 地 址 
运算 符 & 实现 了 内 存 的 共享 。 这 里 必须 说 明 的 一 点 是 在 调用 郑 数 find 前 无 需 对 变量 i、j 
和 k 进行 内 存 分 配 ， 不 过 必须 将 它们 说 明 为 mwArray 类 对 象 。 

在 MATLAB 中 存在 这 样 的 一 些 枉 数 ， 它 们 可 以 拥有 任意 多 个 的 输入 参数 ， 在 
MATLAB 的 函数 定义 中 , 它们 的 输入 参数 列表 的 最 后 一 个 部 分 为 省 赂 号 …, 例如 MAT- 
LAB 中 函数 horzcat 的 定义 为 姐 下 形式 ， 

B 王 horzcat (Al1， 有 2， 丰 3，…) 
通过 该 画 数 ， 用 户 可 以 将 任意 多 个 的 阵列 按 水 平方 式 连接 起 来 。 在 调用 时 ， 用 户 可 以 在 
() 内 输入 任意 多 个 的 参 效 ， 例 如 

了 一 horzcaf 【AL1， 太 2， 太 3， 太 4， 太 5， 上 6， 太 7，A8) 

然而 在 C 十 十 语言 中 , 并 没有 提供 对 可 变 长 度 输 入 参数 列表 的 支持 , 同时 这 类 函数 也 
不 能 通过 C 十 十 语言 的 重 载 机 制 来 实现 , 因为 在 西数 调用 前 , 并 不 知道 将 有 多 少 个 输入 参 
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数 . 在 MATLAB C 十 十 数学 函数 库 中 , 主要 是 通过 类 mwArray 的 友 员 类 mwVarargin 和 
提供 默认 的 输 和 人 参数 来 完成 这 类 旺 数 在 C 十 十 中 的 实现 ,例如 函数 horzcat 在 MATLAB 
C 十 十 数学 函数 库 中 的 定义 为 


mwArtrray cellhcat《const ImwVaratgin &inl， 
eonst ImwArray &in2 一 mmwArray:l DIN ， 
const mWArTI8y &in3 一 mwArray:: DIN， 


conast ImWwWArray &in32 一 mwArray::， DIN); 


该 定义 中 包含 了 32 个 输入 参数 ， 其 中 第 一 个 参数 为 mwVarargin 类 型 的 变 基 , 第 二 至 第 
32 个 参数 为 mwArray 类 型 的 变量 ， 并 且 在 函数 的 定义 中 ,为 所 有 的 32 个 输入 变量 提供 
了 默认 的 参数 取 值 , 为 mwArray:: DIN, 当 用 户 调用 该 函数 而 没有 提供 这 些 参数 或 仅 提 
人 殿 了 这 些 参数 的 一 部 分 时 ， 函 数 将 自动 使 用 该 值 来 作为 默认 的 参数 取 值 。DIN 为 类 
mwArray 的 一 个 公有 成 员 数 据 ， 为 mwArray 类 对 象 ， 其 声明 可 以 参见 头 文件 
dbtmtrx,h。 当 用 户 在 C 十 十 应 用 程序 中 调用 该 画 数 时 ,根据 输 人 参数 的 多 少 可 以 分 为 两 
种 情况 ， 

第 一 种 情况 ， 当 输入 参数 的 个 数 不 大 于 32 个 时 ,用 户 无 需 使 用 mwVarargin 类 型 的 
变量 ， 而 可 以 简单 地 输入 一 系列 的 mwArray 类 型 的 变量 作为 输入 参数， 例如 

B 一 horzcat (上 1， 太 2， 丰 3， 太 4， 丰 5， 上 6 友 7，8) 

其 中 变量 B，A1，A2，A3，A4，A5，A6，A7 和 Ag8 均 为 mwArray 类 型 的 变量 。 这 里 
必须 注意 的 一 点 是 输入 变量 Al 仍然 对 应 的 是 mwVarargin 的 输 人 变量 ， 只 不 过 在 mw- 
Varargin 类 对 象 中 只 包含 一 个 mwArray 类 对 象 时 ，mwArray 类 对 象 和 mwVarargin 类 
对 象 等 价 ; 

第 二 种 情况 ， 当 输入 参数 的 个 数 大 于 32 时 ,， 则 用 户 必 须 构造 一 个 mwVarargin 类 型 
的 对 象 , 并 将 其 作为 第 一 个 参数 传递 给 本 数 ,类 mwVarargin 的 构造 范 数 同样 为 一 个 输入 
参数 个 数 可 变 的 函数 , 其 定义 大 致 与 郴 数 horzcat 的 定义 相同 , 包含 一 个 mwVarargin 类 
型 和 31 个 mwArray 类 型 的 输入 变量 , 从 而 保证 了 mwVarargin 类 对 象 可 以 撤 套 使 用 。 当 
用 户 希 望 向 函数 输入 68 个 输入 参数 时 ， 则 必须 书写 为 如 下 形式 ， 

horzgcat 《mwWarargih 《mwVarargin 〈 和 1， 太 2 ..， 和 32)， 上 33，.…， 太 63)， 
A64，A65，A66，A67，A68); 


与 拥有 任意 个 输 人 参数 的 函数 类 似 ， 在 MATLAB 中 还 存在 一 种 可 以 拥有 任意 个 输出 参 
数 的 函数 ， 例 如 函数 size ， 其 输入 参数 有 凡 维 ， 其 输出 参数 就 可 以 有 几 个 : 
[dl，d2,.,,.，de] = size (其 ) 
其 中 m 为 阵列 X 的 维 数 。 这 类 函数 在 MATLAB C 十 十 数学 函数 库 中 的 实现 与 拥有 任意 
个 输入 参数 的 函数 的 实现 方法 基本 类 似 ， 只 不 过 使 用 友 员 类 为 mwVarargout， 例 如 函数 
size 在 MATLAB C 十 十 数学 函数 库 中 的 定义 为 如 下 形式 ， 
ImnwArray size 《mwVatrargCut varargOut，+ 
const rwArTTYay7 RX， 


const mw 上 Airay &dim 一 mwrArray::， DINI)3 
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其 中 X 为 维 数 为 n 的 mwArray 类 对 象 ，varargout 为 一 个 mwVartargott 类 对 象 ，dim 为 
一 个 拥有 默认 取 值 的 可 选 的 mwArray 类 型 的 输 人 参数 。 在 MATLAB 中 , 如 下 的 函数 调 
用 语句 
[dl, d2, d3, d4,，…w，dn] = size (X) 

在 C 十 十 应 用 程序 中 可 以 使 用 下 面 的 语句 调用 

sjize 〔mwVarargout (dl1，d2，d3，dqd4，…，dqr)， 区 )5 
其 中 X 为 维 数 为 n 的 mwArray 类 对 象 。 与 拥有 可 选 个 输出 参数 调用 方法 不 同 的 是 这 里 
传递 给 函数 的 第 一 个 参数 为 一 个 mwVarargout 类 对 象 ， 而 不 是 指向 mwVarargout 类 对 
象 的 指针 ， 这 一 点 必须 非常 注意 。 


8$.3.3 范例 程序 


程序 example. cpp 是 一 个 非常 简单 的 使 用 MATLAB C 十 十 数学 函数 库 的 应 用 程 
程序 中 分 别 调用 了 库 函 数 lu ()、qr () 和 svd () 对 和 矩阵 A、B 和 X 进行 了 三 角 分 
QR 分 解 和 奇异 值 分 解 ， 程 序 的 源 代 码 如 下 : 


划 include ”matlab. hpp” 
帮 ibclude <stdlib.h> jx# Used for EXIT _SUCCESS #7 


闹 天 


提 idef GCC 
##jndef EXIT _SUCCESS 
并 define EXIT _SUCCESS 0 
共 endif 
共 end 开 


static double datal 口 ] = { 2，3，2，4，4，3，4， 2，4， 12， 一 IT，]， 2，f6，2，1] } 
Static double dat 和 2 吕 ] 宣 { ] ， 2，1， 一 ]，]， 1， 一 1，2， 一 1 0， 0， 1 }3 
static doubie data3 器 二 { 1，2，]1，ti，1， 一 ]， 一 1，0，0， 一 1，2，1 ) 


int :tain 《void) 

{ 
/7/ 对 矩阵 A 进行 三 角 分 解 
ImwAArray 贞 【4，4，dqatal); 
cout < < ”上 一 ”< 扫 <endl 
cout << << endl; 
twWwArray TU 
cout < < [LU] = lt (A) 二 < endl; 
二 = 一 lu (RU，A); 
cout << 必 "一 ” 挟 扫 endl; 
cout 导 所 直 < 所 < endly 
cout < < ”TU 一 ”所 < 妇 endli 
cout “< U << endi 


/7 对 扼 阵 8 进行 QR 分 解 
mwArray 也 〔4，3，data2): 
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cout < < "有 一 ” 民 挟 endl; 

cont 忆 所 再 < 二 < endl' 

IOWArray 人 ，R; 

cout < < ”[LQ,R] = qr (B)" << endl; 
QQ =qr (&R，B); 

cout < < "上 一 ”<< endl; 

cout 女 扫 QQ 这 所 endl; 

cout < < R 一 ”<< endl 

cout 所 所 R << endl} 


// 对 矩阵 X 进行 奇异 值 分 解 
mwArray 又 〔3，4，data37》; 
cout << 双 一 ”<< endl; 
rout 民心 六 < 反 endl; 
mwArtrray S，V; 

cout <” [U，S，、V] = syd (X) 二 < endl; 
U 一 svd (RS，RV，X)i 

coeut <<< mw U 一 ”<< endli 
cout “< U < < endl; 

cout < < "5 一 ”< 民 所 endi; 
cout < < 5 <<< endl; 

cout < < V 一 "< 所 endl 
cout <<V 挟 挟 endl 


return (EXIT SUCCESS); 
} 


在 MATLAB 中 使 用 命令 
mbuild examplie. cpp 


对 程序 进行 编译 后 运行 可 以 得 到 如 下 结果 ， 


由 一 

[ 
24 4 2 
33 12 6 
2 4 一 1 2 
42 1 1 

] 


[LU 一 lu(A) 


1 一 
[ 
0. 50000 1.00000 0.41667 1.00000 3 
0, 75000 0.50000 1.00000 0.00000 ; 
0. 50000 1.00000 0.00000 1000000 ; 
1.00000 0, 00000 0.00000 0.00000 


[ 
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] 
TUJ 一 
1.0e 十 001 # 
[ 
0. 40000 1 20000 0. 10000 0. 10000 
0.00000 0.30000 一 0 15000 0. 15000 ; 
0. 00000 0. 00000 1. 20000 0. 45000 ; 
0. 00000 0. 00000 0. 00000 一 0.18750 
] 
了 王 
[ 
了 下 “1 
2 ] 0#; 
1 一 1L 0 
一 1 2 1 
] 
[Q, R] 一 和 (B) 
忆 二 
[ 
一 心 37796 ”一 0. 37796 0.?75593 0. 37796 4 
一 0.75593 ”一 0,. 37796 ”一 0. 37796 一 0.37796 ; 
一 0 37796 0. 37796 ”一 避 37796 0,.75593 ; 
0. 37796 ”一 0.75593 一 0.37796 0. 37796 
] 
及 王 
一 2.64575 ”一 人 00000 0.75593 # 
0,. 00000 一 2.64575 一 0.37796 + 
0. 00000 0. 00000 ”一 1. 13389 ; 
0. 00000 0. 00000 0. 00000 
] 
基 王 
[ 
让 江 -， 二 二 全] 
2- :并 0 2 3 
1 一 L 0 1 
[U，S，V] = sevd () 
. U 三 
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0.08850 一 0.90288 一 0.42069 # 
0.92535 一 0. 08178 0.37018 ; 
0. 36863 0. 42204 ”一 0.82825 


3, 20792 0,. 00000 0.00000 0.00000 ; 
0. 00000 2.13495 0,.00000 0.00000 + 
0,. 00000 0.00000 1.07297 0.00000 


YV = 
[ 

0.71942 一 0.30183 一 0.47399 一 0.40825 8 

0. 20114 一 0.65889 0.72485 一 0.00000 ; 

一 0.02759 0. 42290 0. 39208 一 0.81650 ; 
9. 66424 人. 54398 0,. 31016 0. 40825 


8.3.4 和 集成 环境 中 MATLAB C 十 十 数学 函数 库 应 用 程序 的 建立 


虽然 MATLAB 为 用 户 担 供 了 一 个 方便 的 用 于 配置 系统 和 缩 译 基于 MATLAB CT+ 
十 数学 函数 库 应 用 程序 的 命令 mbuild， 但 是 如 果 读 者 使 用 该 命令 编译 过 应 用 程序 ， 仍 然 
会 感觉 到 相当 的 不 方便 。 因 为 一 个 应 用 程序 的 建立 过 程 是 一 个 不 断 收 改 不 类 编译 的 过 程 ， 
这 样 必然 会 导致 在 程序 的 建立 过 程 中 ， 用 户 不 断 在 MATLAB 环境 和 C 十 十 语言 环境 间 
切换 , 非常 麻烦 ， 而且 命 令 mbuild 没有 提供 相应 的 应 用 程序 调试 功能 ， 如 果 程 序 编译 通 
过 , 但 是 在 执行 时 发 生 错误 , 这 种 情况 下 只 有 通过 调试 才能 很 快 地 发 现 错误 并 加 以 改进 。 
如 果 需 要 对 应 用 程序 加 以 调试 ， 只 有 重新 建立 一 个 工程 来 完成 程序 的 调试 任务 ， 极 为 不 
方便 . 下 面 我 们 将 以 Mierosoft Visual C 十 十 6. 0 集成 环境 为 例 , 给 出 一 种 在 集成 环境 中 
完成 程序 的 全 部 建立 和 调试 任务 的 方法 ， 其 具体 步骤 如 下 : 

第 一 步 ， 进 和 Microsoft Visual C 十 十 6.0 集成 环境 ， 选 择 File 菜单 中 的 New 菜单 
项 ， 将 弹出 一 个 如 国 8. 1 所 示 的 对 话 框 ， 提 示 用 户 希 望 创建 的 应 用 程序 的 类 型 ， 总 的 来 
说 ， 可 以 选择 三 种 类 型 的 应 用 程序 ， 即 MFC AppWizard (exe)、WWin32 Applicaticn 和 
Win32 Console Application ， 为 了 说 明 方 便 这 里 选择 Win32 Console Application， 即 
允 in32 控制 台 程 序 ， 按 要 求 输入 文件 名 ， 并 点 击 OK 按钮 

第 二 步 ， 完 成 以 上 操作 后 , VC 十 十 6. 0 编译 器 将 弹出 如 图 8. 2 所 示 的 对 话 框 ， 提 示 
用 户 选 择 创 建 Win32 console Application 程序 的 类 型 ， 这 里 我 们 选择 其 中 的 最 为 简单 的 
类 型 An Empty projeet， 然 后 选择 Finish 按钮 ， 创 建 该 项 目 。 

第 三 步 ,在 项 目 工程 创建 完毕 之 后 ， 选 择 下 拉 式 菜单 Tools 中 的 菜单 项 Options, 将 
弹出 Options 对 话 框 ， 选 择 其 中 的 Directories 属性 页 ， 如 图 8. 3 在 其 中 的 Show directo- 
ries for 下 拉 式 选项 框 中 分 别 选 择 Include Files 和 Library Files， 在 下 部 的 编辑 框 中 输 人 
以 下 路 径 ， 
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第 四 步 , 在 DOS 命令 框 状态 下 , 进 人 用 户 安装 Microsoft VC 十 十 6.0 的 目录 , 如 di 
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图 5.3 Options Direcetories 赂 性 页 


NEogram filesNMicrosoft Visual StudioNVC98, 并 且 进 和 该 目录 下 的 子 目 录 Nbin， 按 下 面 
的 格式 运行 该 目录 下 的 命令 lib : 
lib /def，%MATLAB 嫩 NexternNincludeNibmmfile. def 
” Amachine，ix86 /OUT , libmmfiie, lib /NOLOGO 
lib /def，%MATLAB 抬 NexteraNineludeNiibmecc. def /machine: ix86 
AOUT: libmce, ,lib /NOLOGO 


lib /def，%MATLAB%NexterhNincludeNlibmatib. def /machine: ix86 
AOUT : libmatib. lib /7NOLOGO 

lib /def ，M%MATLAB 外 NexternNinciudeNlibmx, def Amachine:， 斌 86 
ADOUT : ibmx.lib /NOLOGO 

lib /def，%MATLAB 外 NexternNincludeNibrmat， de /machine: jx86 
ADOUT: libmat .lib /NOLOGO 


执行 完 这 五 条 命令 后 用 户 可 以 得 到 五 个 静态 链接 库 文件 ， 分 别 为 libmmfile.iib， libm- 
cc. ,lib，libmatlb.lib ，ibmx,lib 和 libmat.lib 。 命令 中 %MATLAB% 代 表 本 机 上 安装 
MATLAB 的 根 目录 ， 在 执行 这 些 命令 的 过 程 中 ， 必 须 加 以 圭 换 ， 如 D: NMATILAB; 

这 里 可 以 明确 一 点 ， 一 旦 五 个 静态 链接 库 文件 生成 后 ， 就 可 以 反复 使 用 ， 而 无 须 对 
每 一 个 项 目 进行 重新 建立 ; 

第 五 步 , 点 取 下 拉 式 菜单 Project 中 的 Settings 菜单 项 ， 将 弹出 一 个 如 图 8. 4 所 示 的 
对 话 框 ， 选 取 其 中 的 Link 属性 页 ， 在 Category 下 拉 框 中 选取 “Input ， 然后 在 Object/ 
Library modules 编辑 框 中 按 上 顺序 输 入 在 第 四 步 中 生成 的 五 个 库 文件 的 文件 名 以 及 库 文 
件 1libmatpm.lib; 

第 六 步 ,同样 在 Settings 菜单 项 弹出 的 对 话 框 中 , 选取 CAC 十 十 属性 页 , 在 Category 
下 拉 框 中 选取 “Code Generation ， 然后 在 Use run 一 time library 下 拉 式 选择 框 中 选择 
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图 8.4。 Project Setting Link 对 话 杠 


Multithreaded DLL 或 Dehug Multithreaded DLL; 这 一 步 对 于 使 用 MFC AppWizard 的 
应 用 程序 来 说 是 不 必要 的 。 

当 完 成 以 上 六 步 工作 之 后 ， 就 可 以 在 集成 环境 中 对 基于 MATLAB C 十 十 数学 函数 
库 的 源 程 序 进行 编译 和 链接 ， 生 成 可 执行 的 应 用 程序 了 。 这 里 必须 注意 的 一 点 是 在 发 布 
基于 VC 二 + 6.0 的 MATLAB C 十 十 数学 函 孝 库 应 用 程序 时 必须 同时 附带 VC 十 十 6.0 
提供 的 两 个 动态 链接 库 即 msvcrt, dil 和 msvcirt, dll 。 

在 本 章 中 我 们 简要 地 讲述 了 MATLAB C 十 十 数学 函数 库 的 基本 概念 和 库 函 数 的 使 
用 方法 ,已 经 基本 可 以 满足 最 简单 的 需求 , 但 是 仍然 很 不 深入 ,相当 多 的 内 容 没 有 讲述 ， 
例如 内 存 管理 、 异 常 处 理 等 ， 有 兴趣 的 读者 可 以 参阅 相关 的 书籍 和 联机 帮助 。 
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